OFFSET
0,5
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1001
MATHEMATICA
(*A004001*) f[0] = 0; f[1] = 1; f[2] = 1; f[n_] := f[n] = f[f[n - 1]] + f[n - f[n - 1]];
a[0] = 0; a[n_] := a[n] = f[n] + a[n - 1];
b[0] = 1; b[1] = 1; b[n_] := b[n] = (f[n])*b[n - 1];
Flatten[Table[{a[n], b[n]}, {n, 0, 30}]]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Roger L. Bagula, Jan 06 2009
STATUS
approved