OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Cubic Number
MATHEMATICA
a[n_] := Module[{i = 0}, While[DigitCount[i^3][[6]] != n, i++ ]; i]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 27 2006 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
a(14) from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 27 2006
a(15)-a(20) from Lars Blomberg, Jun 12 2011
a(21)-a(23) from Giovanni Resta, Jun 29 2018
STATUS
approved