OFFSET
0,4
MATHEMATICA
a[n_Integer?Positive] := If[Mod[n, 4] == 0, a[n] = a[n - 1], If[Mod[n, 4] == 1, a[n] = a[n - 2] + a[n - 3], If[Mod[n, 4] == 1, a[n] = a[n - 3] + a[n - 4] + a[ n - 5], a[n] = a[n - 4] + a[n - 5] + a[n - 6] + a[n - 7]]]] a[0] = 0; a[1] = 1; a[2] = 1; a[3] = 2; a[4] = 3; a[5] = 5; a[6] = 8 aa = Table[a[n], {n, 0, 200}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 13 2005
STATUS
approved