A060712 Smallest number whose digit sum is 3^n.

1, 3, 9, 999, 999999999, 999999999999999999999999999, 999999999999999999999999999999999999999999999999999999999999999999999999999999999

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} ]
Join[{1, 3}, Table[FromDigits[PadRight[{}, 3^(n-2), 9]], {n, 2, 6}]] (* Harvey P. Dale, Jun 10 2015 *)

Prog

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

Crossrefs

Sequence in context: A137043 A112726 A112725 * A122463 A072005 A060377

Adjacent sequences: A060709 A060710 A060711 * A060713 A060714 A060715

Keyword

nonn,base

Author

Robert G. Wilson v, Apr 21 2001

Status

approved