OFFSET
1,1
LINKS
Patrick De Geest, Nine Digits Digressions
EXAMPLE
84488^(1/6) = 6.{624185793}582700...
MATHEMATICA
ndaQ[n_]:=Module[{rdn=RealDigits[n^(1/6), 10, 15], ts=Range[9], ds}, ds= Sort[Take[ Drop[rdn[[1]], rdn[[2]]], 9]]; ds==ts]; Select[Range[100000], ndaQ] (* Harvey P. Dale, Mar 30 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Oct 15 1998
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 14 2024
STATUS
approved