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
KEYWORD
nonn,base
AUTHOR
STATUS
approved