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 A052449 #36 Feb 16 2025 08:32:42 %S A052449 2,2,3,7,31,241,3121,65521,2227681,122522401,10904493601, %T A052449 1570247078401,365867569267201,137932073613734401, %U A052449 84138564904377984001,83044763560621070208001,132622487406311849122176001,342696507457909818131702784001 %N A052449 a(n) = 1 + Product_{k=1..n} Fibonacci(k). %C A052449 The first 8 terms are primes. - _Jonathan Vos Post_, Dec 08 2012 %C A052449 a(22) and a(28) are also primes. - _Robert Israel_, Jun 10 2015 %C A052449 There are no further primes up to a(300). - _Harvey P. Dale_, Feb 28 2023 %H A052449 Robert Israel, <a href="/A052449/b052449.txt">Table of n, a(n) for n = 1..93</a> %H A052449 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/FibonacciNumber.html">Fibonacci Number</a>. %F A052449 a(n) = A003266(n)+1. - _Robert Israel_, Jun 10 2015 %p A052449 seq(1+mul(combinat:-fibonacci(j),j=1..n), n=1..30); # _Robert Israel_, Jun 10 2015 %t A052449 1 + Table[Times @@ Fibonacci[Range[n]], {n, 20}] (* _T. D. Noe_, Dec 29 2012 *) %t A052449 FoldList[Times,Fibonacci[Range[20]]]+1 (* _Harvey P. Dale_, Feb 28 2023 *) %o A052449 (PARI) vector(20, n, 1+prod(j=1,n, fibonacci(j))) \\ _G. C. Greubel_, Sep 26 2019 %o A052449 (Magma) [1+(&*[Fibonacci(j): j in [1..n]]): n in [1..20]]; // _G. C. Greubel_, Sep 26 2019 %o A052449 (Sage) [1+product(fibonacci(j) for j in (1..n)) for n in (1..20)] # _G. C. Greubel_, Sep 26 2019 %o A052449 (GAP) List([1..20], n-> 1+Product([1..n], j-> Fibonacci(j)) ); # _G. C. Greubel_, Sep 26 2019 %Y A052449 Cf. A000045, A003266, A053413, A053408. %K A052449 nonn %O A052449 1,1 %A A052449 _Eric W. Weisstein_