OFFSET
0,3
COMMENTS
The limiting ratio a(n+1)/a(n) at the 500th iteration is:1.0039960716583698
FORMULA
a(n)=a(n-1)+a(n-2)-Floor[a(n-2)/4]-Floor[a(n-3)/2]-Floor[a(n-4)/4]
MATHEMATICA
f[-2] = 0; f[-1] = 0; f[0] = 1; f[1] = 1;
f[n_] := f[n] = f[n -
1] + f[n - 2] - Floor[f[n - 2]/4] - Floor[f[n - 3]/2] - Floor[f[n - 4]/4]
Table[f[n], {n, 0, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 23 2010
STATUS
approved