login
A031997
Odd numbers which when cubed give number composed just of the digits 0, 1, 2, 3.
2
1, 11, 101, 1001, 10001, 100001, 684917, 1000001, 10000001, 100000001, 1000000001, 10000000001, 100000000001, 1000000000001, 10000000000001, 100000000000001, 1000000000000001, 10000000000000001, 100000000000000001, 1000000000000000001
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
Cf. A030175.
Sequence in context: A171750 A191420 A118937 * A116098 A116129 A056810
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