A153865 Second-to-largest of four consecutive Fibonacci numbers such that sum of those four consecutive Fibonacci numbers is a prime number.

2, 3, 8, 13, 55, 144, 610, 987, 2584, 832040, 14930352, 102334155, 1836311903, 32951280099, 1548008755920, 190392490709135, 8944394323791464, 114059301025943970552219

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 03 2009

Keywords

• nonn

Comments

1+1+2+3=7, 1+2+3+5=11, 3+5+8+13=29, 5+8+13+21=47, 21+34+55+89=199,...

Crossrefs

Cf. A000045, A001906, A000071, A001605, A153862, A153863

Programs

Mathematica

a=0;b=1;c=1;lst={};Do[d=Fibonacci[n];p=a+b+c+d;If[PrimeQ[p],AppendTo[lst,c]];a=b;b=c;c=d,{n,3,6!}];lst
Select[Partition[Fibonacci[Range[0,200]],4,1],PrimeQ[Total[#]]&][[All,3]] (* Harvey P. Dale, Aug 21 2021 *)

Extensions

Definition modified by Harvey P. Dale, Jul 04 2022