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