A030295 Cubes with at most three distinct digits.

0, 1, 8, 27, 64, 125, 216, 343, 512, 729, 1000, 1331, 2744, 3375, 8000, 27000, 46656, 64000, 238328, 343000, 778688, 1000000, 1030301, 1331000, 5177717, 7077888, 8000000, 9393931, 27000000, 64000000, 343000000, 700227072

Offset

1,3

Links

Hugo Pfoertner, Table of n, a(n) for n = 1..111

Formula

a(n) = A030294(n)^3. - Peter Munn, Feb 02 2020

Mathematica

Select[Range[900]^3, Length@ Union@ IntegerDigits[#] <= 3 &] (* Michael De Vlieger, Feb 10 2020 *)

Prog

(PARI)  disdigs(n, nd)={my(v=vector(10), d=digits(n^3)); for(j=1, #d, v[d[j]+1]=1); if(vecsum(v)<=nd, n^3, 0)};
print1(0, ", "); for(k=1, 1000, if(j=disdigs(k, 3), print1(j, ", "))) \\ Hugo Pfoertner, Feb 10 2020

Crossrefs

Cf. A030293 (subsequence), A030294, A235718.

Sequence in context: A048390 A000578 A062292 * A052045 A014187 A050750

Adjacent sequences: A030292 A030293 A030294 * A030296 A030297 A030298

Keyword

nonn,base

Author

Patrick De Geest

Status

approved