This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A172452 #11 Apr 27 2021 05:41:33 %S A172452 1,1,1,2,4,12,48,192,768,3840,23040,161280,1128960,9031680,72253440, %T A172452 578027520,4624220160,41617981440,416179814400,4577977958400, %U A172452 54935735500800,659228826009600,8569974738124800,119979646333747200,1679715048672460800,25195725730086912000,377935885951303680000 %N A172452 Partial products of A004001. %H A172452 G. C. Greubel, <a href="/A172452/b172452.txt">Table of n, a(n) for n = 0..250</a> %t A172452 f[n_]:= f[n]= If[n<3, Fibonacci[n], f[f[n-1]] + f[n-f[n-1]]]; (* f = A004001 *) %t A172452 a[n_]:= Product[f[j], {j,n}]; %t A172452 Table[a[n], {n,0,35}] (* modified by _G. C. Greubel_, Apr 27 2021 *) %o A172452 (Sage) %o A172452 @CachedFunction %o A172452 def b(n): return fibonacci(n) if (n<3) else b(b(n-1)) + b(n-b(n-1)) # b=A004001 %o A172452 def a(n): return product(b(j) for j in (1..n)) %o A172452 [a(n) for n in (0..35)] # _G. C. Greubel_, Apr 27 2021 %K A172452 nonn %O A172452 0,4 %A A172452 _Roger L. Bagula_, Feb 03 2010 %E A172452 Definition simplified - The Assoc. Editors of the OEIS, Feb 24 2010 %E A172452 More terms added by _G. C. Greubel_, Apr 27 2021