A342975 Cubes composed of digits {0, 1, 3}.

0, 1, 1000, 1331, 1000000, 1030301, 1331000, 1000000000, 1003003001, 1030301000, 1331000000, 1000000000000, 1000300030001, 1003003001000, 1030301000000, 1331000000000, 1000000000000000, 1000030000300001, 1000300030001000, 1003003001000000, 1030301000000000, 1331000000000000

Offset: 1

Author

Daniel Blam, Nov 19 2021

Keywords

• nonn
• base

Comments

This sequence is infinite, because if m > 0 is a term, 1000*m will also be a term.

Crossrefs

Subsequence of A000578 and A043681.

Programs

Mathematica

Select[Range[0, 110000]^3, AllTrue[IntegerDigits[#], MemberQ[{0, 1, 3}, #1] &] &] (* Amiram Eldar, Nov 19 2021 *)

Python

from itertools import islice, count
def A342975(): return filter(lambda n: set(str(n)) <= {'0','1','3'},(n**3 for n in count(0)))
A342975_list = list(islice(A342975(),20)) # Chai Wah Wu, Nov 19 2021