A154280 List of pairs (a(n),b(n)): f(n) = A004001(n); a(n) = f(n) + a(n-1); b(n) = f(n)*b(n-1).

0, 1, 1, 1, 2, 1, 4, 2, 6, 4, 9, 12, 13, 48, 17, 192, 21, 768, 26, 3840, 32, 23040, 39, 161280, 46, 1128960, 54, 9031680, 62, 72253440, 70, 578027520, 78, 4624220160, 87, 41617981440, 97, 416179814400, 108, 4577977958400, 120, 54935735500800, 132

Offset: 0

Author

Roger L. Bagula, Jan 06 2009

Keywords

• nonn
• tabf

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1001

Crossrefs

Cf. A004001.

Programs

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}]]