login
A064210
Numbers n such that sum of the digits of n is >= the sum of the digits of n^4.
3
1, 7, 10, 19, 67, 70, 100, 190, 670, 700, 1000, 1900, 6700, 7000, 10000, 19000, 67000, 70000, 100000, 124499, 190000, 670000, 700000, 1000000, 1244990, 1900000, 6700000, 7000000, 10000000, 12449900, 19000000, 67000000, 70000000, 100000000
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
Sequence in context: A038211 A122226 A240791 * A249942 A300021 A363292
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Sep 21 2001
EXTENSIONS
More terms from Martin Raab, Aug 08 2006
STATUS
approved