OFFSET
1,1
MATHEMATICA
First /@ Split[Select[Range[63600], First[RealDigits[#^(1/3), 10, 1, -1]] == {9} &], #2 - #1 <= 1 &] (* Jayanta Basu, Jun 17 2013 *)
Table[Ceiling[(n + 9/10)^3], {n, 39}] (* T. D. Noe, Jun 17 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved