|
%I #16 Feb 10 2020 20:13:27
%S 0,1,8,27,64,125,216,343,512,729,1000,1331,2744,3375,8000,27000,46656,
%T 64000,238328,343000,778688,1000000,1030301,1331000,5177717,7077888,
%U 8000000,9393931,27000000,64000000,343000000,700227072
%N Cubes with at most three distinct digits.
%H Hugo Pfoertner, <a href="/A030295/b030295.txt">Table of n, a(n) for n = 1..111</a>
%F a(n) = A030294(n)^3. - _Peter Munn_, Feb 02 2020
%t Select[Range[900]^3, Length@ Union@ IntegerDigits[#] <= 3 &] (* _Michael De Vlieger_, Feb 10 2020 *)
%o (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)};
%o print1(0,", ");for(k=1,1000,if(j=disdigs(k,3),print1(j,", "))) \\ _Hugo Pfoertner_, Feb 10 2020
%Y Cf. A030293 (subsequence), A030294, A235718.
%K nonn,base
%O 1,3
%A _Patrick De Geest_
|
