OFFSET
1,2
MATHEMATICA
With[{nn=160}, Select[Complement[Range[nn], #+Total[ IntegerDigits[ #^3]]&/@Range[nn]], #<=nn&]] (* Harvey P. Dale, Jul 19 2012 *)
CROSSREFS
KEYWORD
nonn,base,easy,less
AUTHOR
Miklos SZABO (mike(AT)ludens.elte.hu)
STATUS
approved