OFFSET
1,2
COMMENTS
Note that 684917 (whose cube is 321302302131323213) so far is the only entry not of the form 10^x + 1.
MATHEMATICA
Do[ If[ Union[ IntegerDigits[ n^3 ] ] [ [ -1 ] ] < 4, Print[ n ] ], {n, 0, 10^9} ]
PROG
(Python)
A031997_list = [n for n in range(1, 10**6, 2) if max(str(n**3)) <= '3'] # Chai Wah Wu, Feb 23 2016
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Robert G. Wilson v, Jun 23 2001
EXTENSIONS
Term 0 removed and a(12)-a(17) added by Chai Wah Wu, Feb 25 2016
a(18)-a(20) from Giovanni Resta, Mar 14 2020
STATUS
approved