OFFSET
0,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..19682
F. M. Dekking, Recurrent sets, Advances in Mathematics, vol. 44, no. 1 (1982), 78-104; page 96, section 4.10.
FORMULA
MATHEMATICA
Nest[ Flatten[ # /. {1 -> {1, 2, 1}, 2 -> {2, 3, 2}, 3 -> {3, 1, 3}}] &, {1}, 5] (* Robert G. Wilson v, Apr 12 2005 *)
PROG
(Scheme) (define (A105203 n) (if (zero? n) 1 (A105202 (+ n (A003462 (+ 1 (A062153 n))))))) ;; Antti Karttunen, Aug 12 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Apr 09 2005
EXTENSIONS
More terms from Robert G. Wilson v, Apr 12 2005
STATUS
approved