OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..8192
FORMULA
a(n) = A004001(n) mod 2.
MATHEMATICA
a[1] = a[2] = 1; a[n_] := a[n] = a[a[n - 1]] + a[n - a[n - 1]]; Table[ a[n], {n, 105}]
PROG
(Scheme) (define (A095901 n) (A000035 (A004001 n))) ;; Further code found under those two entries, Antti Karttunen, Mar 21 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jun 12 2004
STATUS
approved