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.

A052449 a(n) = 1 + Product_{k=1..n} Fibonacci(k).

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