OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..100
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, 1).
FORMULA
a(n + 1) = A036839(a(n)).
MATHEMATICA
rats[n_]:=Module[{idnr=FromDigits[Reverse[IntegerDigits[n]]]}, FromDigits[ Sort[ IntegerDigits[idnr+n]]]]; NestList[rats, 6999, 30] (* Harvey P. Dale, May 29 2014 *)
PROG
(Haskell)
a209879 n = a209879_list !! (n-1)
a209879_list = iterate a036839 6999
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 14 2012
STATUS
approved