OFFSET
0,3
COMMENTS
Initial conditions: a(0)=0; a(1)=1;
MATHEMATICA
a[0]:= 0; a[1]:= 1; a[n_Integer]:=a[n]=a[n-1]+ Times@@Table[(a[n-2i+1]-(-1)^i a[n-2i]), {i, 1, (n-1)/2}];
Table[a[n], {n, 0, 13}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Olivier Gérard, Aug 24 2013
STATUS
approved