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