|
|
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).
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|