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,4

Links

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

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

Crossrefs

Sequence in context: A152453 A368814 A277281 * A004527 A002871 A013172

Adjacent sequences: A172449 A172450 A172451 * A172453 A172454 A172455

Keyword

nonn

Author

Roger L. Bagula, Feb 03 2010

Extensions

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

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

Status

approved