OFFSET
1,1
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, RATS Sequence
Index entries for linear recurrences with constant coefficients, signature (0, 0, 1).
FORMULA
a(n + 1) = A036839(a(n)).
MATHEMATICA
Join[{20169, 111267, 337788, 1122255}, LinearRecurrence[{0, 0, 1}, {4446666, 1111113, 2222244}, 25]] (* Ray Chandler, Aug 25 2015 *)
PROG
(Haskell)
a209878 n = a209878_list !! (n-1)
a209878_list = iterate a036839 20169
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 14 2012
STATUS
approved