A060711 Smallest number whose digit sum is n^4.

1, 79, 999999999, 49999999999999999999999999999, 4999999999999999999999999999999999999999999999999999999999999999999999, 999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999

Offset

1,2

Links

Harry J. Smith, Table of n, a(n) for n = 1..9

Formula

a(n) >= 10^(n^4/9) - 1.

Mathematica

Do[ a = {}; While[ Apply[ Plus, a ] + 9 < n^4, a = Append[ a, 9 ] ]; If[ Apply[ Plus, a ] != n^4, a = Prepend[ a, n^4 - Apply[ Plus, a ] ] ]; Print[ FromDigits[ a ] ], {n, 1, 6} ]

Prog

(PARI) { for (n=1, 9, s=n^4; x=s\9; d=s - 9*x; write("b060711.txt", n, " ", (d+1)*10^x - 1); ) } \\ Harry J. Smith, Jul 10 2009

Crossrefs

Cf. A061104, A061105.

Sequence in context: A138917 A265589 A116327 * A128472 A243432 A093404

Adjacent sequences: A060708 A060709 A060710 * A060712 A060713 A060714

Keyword

nonn,base

Author

Robert G. Wilson v, Apr 21 2001

Status

approved