OFFSET
1,1
LINKS
Matthew House, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[1]=1; a[2]=1; a[3]=1; a[n_]:= a[n] = a[a[n-3]] + a[n-a[n-3]]; Select[ Array[a, 200], EvenQ] (* Giovanni Resta, Jul 28 2015 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
More terms from James A. Sellers
STATUS
approved