OFFSET
0,15
COMMENTS
FORMULA
MATHEMATICA
Clear[f, g, n]; f[0] = 1; f[1] = 1; f[2] = 1;
f[n_] := f[n] = f[n - f[n - 1]] + f[n - f[n - 2]];
g[0] = 0; g[1] = 1;
g[n_] := g[n] = g[n - 1] + Ceiling[ -(f[n + 2]/f[n + 1])*Log[(f[n + 2]/f[n + 1])]/Log[2]]
a = Table[g[n], {n, 0, 200}]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Nov 02 2009
STATUS
approved