OFFSET
1,2
COMMENTS
Any one of these terms can have an arbitrary number of 0's in between any two digits. Thus, the numbers with 0's have been omitted as trivial.
LINKS
Jonathan Schwartz, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[14000], DigitCount[#, 10, 0]==0&&IntegerQ[Surd[Total[ IntegerDigits[ #]^3], 3]]&] (* Harvey P. Dale, Sep 23 2019 *)
PROG
(PARI) for(n=1, 10^3, d=digits(n); if(vecsort(d, , 8)[1], s=0; for(i=1, #d, s+=d[i]^3); if(ispower(s, 3), print1(n, ", "))))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Derek Orr, Feb 11 2015
STATUS
approved