OFFSET
1,2
COMMENTS
If n is in the sequence, so is 10n. See A122484 for the subsequence of terms not ending in "0". [Charles R Greathouse IV, Jan 12 2012]
MATHEMATICA
Select[ Range[ 10^7 ], Apply[ Plus, IntegerDigits[ # ]] >= Apply[ Plus, IntegerDigits[ #^4 ]] & ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Sep 21 2001
EXTENSIONS
More terms from Martin Raab, Aug 08 2006
STATUS
approved