OFFSET
0,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..8
FORMULA
a(n) = A051885(3^n). - Andrew Howroyd, Dec 08 2024
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) a(n)={ my(s=3^n, x=s\9, d=s-9*x); (d+1)*10^x - 1 } \\ Harry J. Smith, Jul 10 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Apr 21 2001
STATUS
approved