OFFSET
0,4
COMMENTS
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1000
MATHEMATICA
a[0] = 1; a[1] = 1; a[2] = 1;
a[n_] := a[n] = 2*a[n - 1] - a[n - 3] + a[Floor[n/2]];
Table[a[n], {n, 0, 90}] (* A298402 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 10 2018
STATUS
approved