1,2

Do[ a = {}; While[ Apply[ Plus, a ] + 9 < n^4, a = Append[ a, 9 ] ]; If[ Apply[ Plus, a ] != n^4, a = Prepend[ a, n^4 - Apply[ Plus, a ] ] ]; Print[ FromDigits[ a ] ], {n, 1, 6} ]

Cf. A061104, A061105.

Sequence in context: A023343 A138917 A116327 this_sequence A128472 A093404 A031136

Adjacent sequences: A060708 A060709 A060710 this_sequence A060712 A060713 A060714

nonn

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