OFFSET
1,1
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, RATS Sequence
Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
FORMULA
a(n + 1) = A036839(a(n)).
MATHEMATICA
NestList[FromDigits[Sort[IntegerDigits[#+IntegerReverse[#]]]]&, 29, 40] (* or *) PadRight[{29, 112, 233, 556, 1112, 2233, 5555, 1111, 2222}, 50, {4558889, 13444447, 77888888, 156667777, 233444489, 1112278888, 11999, 11119, 1223, 4444, 8888, 16777, 34589, 112333, 444455, 889999, 1788899, 1177777}] (* Harvey P. Dale, Sep 17 2018 *)
PROG
(Haskell)
a209880 n = a209880_list !! (n-1)
a209880_list = iterate a036839 29
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 14 2012
STATUS
approved