OFFSET
1,2
COMMENTS
Subsequence of A030294 where trailing zeros are allowed.
Conjecture: no more terms other than those of the form 10^n+1, n=0,1,2,... .
MATHEMATICA
Select[Range[150000], Mod[#, 10]!=0&&Count[DigitCount[#^3], 0]>6&] (* The program generates the first 26 terms of the sequience. To generate more, increase the Range constant but the program may take a long time to run. *) (* Harvey P. Dale, Sep 04 2021 *)
PROG
(PARI)
for(n=1, 10^9+1, if((n%10!=0) && #Set(digits(n^3))<=3, print1(n, ", ")));
\\ Joerg Arndt, Dec 13 2014
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Zak Seidov, Dec 26 2011
STATUS
approved