A153866 Largest of four consecutive Fibonacci numbers whose sum is a prime number.

3, 5, 13, 21, 89, 233, 987, 1597, 4181, 1346269, 24157817, 165580141, 2971215073, 53316291173, 2504730781961, 308061521170129, 14472334024676221, 184551825793033096366333

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, A153865.

Programs

Mathematica

a=0;b=1;c=1;lst={};Do[d=Fibonacci[n];p=a+b+c+d;If[PrimeQ[p],AppendTo[lst,d]];a=b;b=c;c=d,{n,3,6!}];lst
Alternate: Transpose[Select[Partition[Fibonacci[Range[200]],4,1],PrimeQ[Plus@@#]&]][[4]] (* Harvey P. Dale, Dec 05 2010 *)