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

Author

Patrick De Geest

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A030293 (subsequence), A030294, A235718.

Programs

Mathematica

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

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

Formula

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