cp's OEIS Frontend

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.

A172452 Partial products of A004001.

This page as a plain text file.
%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