|
Search: id:A060712
|
|
|
| A060712 |
|
Smallest number whose digit sum is 3^n. |
|
+0
1
|
|
| 1, 3, 9, 999, 999999999, 999999999999999999999999999, 99999999999999999999999999999999999999999999999999999999999999999999999999999999\ 9
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n=0,...,8
|
|
MATHEMATICA
|
Do[ a = {}; While[ Apply[ Plus, a ] + 9 < 3^n, a = Append[ a, 9 ] ]; If[ Apply[ Plus, a ] != 3^n, a = Prepend[ a, 3^n - Apply[ Plus, a ] ] ]; Print[ FromDigits[ a ] ], {n, 1, 6} ]
|
|
PROGRAM
|
(PARI) { for (n=0, 8, s=3^n; x=s\9; d=s - 9*x; write("b060712.txt", n, " ", (d+1)*10^x - 1); ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 10 2009]
|
|
CROSSREFS
|
Sequence in context: A137043 A112726 A112725 this_sequence A122463 A072005 A060377
Adjacent sequences: A060709 A060710 A060711 this_sequence A060713 A060714 A060715
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 21 2001
|
|
|
Search completed in 0.002 seconds
|
