OFFSET
1,3
COMMENTS
While almost all larger terms have a regular digit pattern, there is the exception a(63) = 146796, a(63)^3 = A030295(63) = 3163316636166336. Are there other terms of this type? - Hugo Pfoertner, Feb 11 2020
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..130
MATHEMATICA
d3Q[n_]:=Count[DigitCount[n^3], _?(#>0&)]<4; Select[Range[0, 110000], d3Q] (* Harvey P. Dale, Mar 10 2016 *)
Select[Range[0, 101000], Count[DigitCount[#^3], 0]>6&] (* Harvey P. Dale, May 05 2023 *)
PROG
(Magma) [n: n in [0..400000] | #Set(Intseq(n^3)) le 3]; // Vincenzo Librandi, Nov 10 2014
(PARI) for(n=0, 10^9+1, if(#Set(digits(n^3))<=3, print1(n, ", "))); \\ Joerg Arndt, Dec 13 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved