|
| |
|
|
A060713
|
|
Smallest number whose digit sum is 5^n.
|
|
1
| | |
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,5
|
|
|
MATHEMATICA
| Do[ a = {}; While[ Apply[ Plus, a ] + 9 < 5^n, a = Append[ a, 9 ] ]; If[ Apply[ Plus, a ] != 5^n, a = Prepend[ a, 5^n - Apply[ Plus, a ] ] ]; Print[ FromDigits[ a ] ], {n, 1, 4} ]
|
|
|
PROG
| (PARI) { for (n=0, 5, s=5^n; x=s\9; d=s - 9*x; write("b060713.txt", n, " ", (d+1)*10^x - 1); ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 10 2009]
|
|
|
CROSSREFS
| Sequence in context: A172890 A195612 A051304 * A198402 A085706 A190350
Adjacent sequences: A060710 A060711 A060712 * A060714 A060715 A060716
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 21 2001
|
| |
|
|
