OFFSET
1,3
COMMENTS
Except for 0, 3, 4, 7, and 11, each term is of the form 10^x or 2*10^x. - Harvey P. Dale, Feb 05 2013
MAPLE
filter:= n -> nops(convert(convert(n^3, base, 10), set)) <= 2:
select(filter, [$1..10^5]); # Robert Israel, Nov 10 2014
MATHEMATICA
Join[Select[Range[0, 20], Count[DigitCount[#^3], 0]>7&], Flatten[Table[{10^n, 2*10^n}, {n, 2, 10}]]] (* Harvey P. Dale, Nov 23 2019 *)
PROG
(Python)
A030292_list, m = [0], [6, -6, 1, 0]
for n in range(1, 10**6+1):
for i in range(3):
m[i+1] += m[i]
if len(set(str(m[-1]))) <= 2:
A030292_list.append(n) # Chai Wah Wu, Nov 05 2014
(PARI) isok(n) = #Set(digits(n^3)) <= 2; \\ Michel Marcus, Nov 10 2014
(Magma) [n: n in [0..4000000] | #Set(Intseq(n^3)) le 2]; // Vincenzo Librandi, Nov 10 2014
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
EXTENSIONS
More terms from Lior Manor, Jul 24 2001
STATUS
approved