A172452 Partial products of A004001.

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

Offset: 0

Author

Roger L. Bagula, Feb 03 2010

Keywords

• nonn

Links

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

Programs

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 *)

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))
[a(n) for n in (0..35)] # G. C. Greubel, Apr 27 2021

Extensions

Definition simplified - The Assoc. Editors of the OEIS, Feb 24 2010

More terms added by G. C. Greubel, Apr 27 2021