0,2

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} ]

Sequence in context: A092133 A071772 A051304 this_sequence A085706 A135084 A094630

Adjacent sequences: A060710 A060711 A060712 this_sequence A060714 A060715 A060716

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 21 2001