|
|
A172452
|
|
Partial products of A004001.
|
|
3
|
|
|
1, 1, 1, 2, 4, 12, 48, 192, 768, 3840, 23040, 161280, 1128960, 9031680, 72253440, 578027520, 4624220160, 41617981440, 416179814400, 4577977958400, 54935735500800, 659228826009600, 8569974738124800, 119979646333747200, 1679715048672460800, 25195725730086912000, 377935885951303680000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_]:= f[n]= If[n<3, Fibonacci[n], f[f[n-1]] + f[n-f[n-1]]]; (* f = A004001 *)
a[n_]:= Product[f[j], {j, n}];
Table[a[n], {n, 0, 35}] (* modified by G. C. Greubel, Apr 27 2021 *)
|
|
PROG
|
(Sage)
@CachedFunction
def b(n): return fibonacci(n) if (n<3) else b(b(n-1)) + b(n-b(n-1)) # b=A004001
def a(n): return product(b(j) for j in (1..n))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition simplified - The Assoc. Editors of the OEIS, Feb 24 2010
|
|
STATUS
|
approved
|
|
|
|