A153889 Middle of five consecutive Fibonacci numbers such that sum of five consecutive Fibonacci numbers is prime number.
1, 3, 5, 21, 233, 377, 6765, 317811, 514229, 2178309, 53316291173, 10610209857723, 23416728348467685, 259695496911122585, 7540113804746346429, 36726740705505779255899443, 251728825683549488150424261, 37281903592600898879479448409585328515842582885579275203077366912825
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a=0;b=1;c=1;d=2;lst={};Do[e=Fibonacci[n];p=a+b+c+d+e;If[PrimeQ[p],AppendTo[lst,c]];a=b;b=c;c=d;d=e,{n,4,6!}];lst
Comments