OFFSET
1,1
COMMENTS
a(24) > 5*10^12, a(25) = 999996999999. - Giovanni Resta, Jun 29 2018
LINKS
Eric Weisstein's World of Mathematics, Cubic Number
MATHEMATICA
(* A048374 *)
nsmall = Table[Infinity, 11];
For[i = 0, i <= 10^6, i++, n0 = Count[IntegerDigits[i^3], 9];
If[nsmall[[n0]] > i, nsmall[[ n0]] = i]];
nsmall(* Robert Price, Sep 26 2018 *)
CROSSREFS
KEYWORD
nonn,base,more,changed
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
a(16)-a(22) from Lars Blomberg, Jun 12 2011
a(23) from Giovanni Resta, Jun 29 2018
STATUS
approved