A064210 Numbers n such that sum of the digits of n is >= the sum of the digits of n^4.

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]

Links

Table of n, a(n) for n=1..34.

Mathematica

Select[ Range[ 10^7 ], Apply[ Plus, IntegerDigits[ # ]] >= Apply[ Plus, IntegerDigits[ #^4 ]] & ]

Crossrefs

Sequence in context: A038211 A122226 A240791 * A249942 A300021 A363292

Adjacent sequences: A064207 A064208 A064209 * A064211 A064212 A064213

Keyword

base,nonn

Author

Robert G. Wilson v, Sep 21 2001

Extensions

More terms from Martin Raab, Aug 08 2006

Status

approved