A153888 Second-to-smallest of five consecutive Fibonacci numbers such that sum of five consecutive Fibonacci numbers is prime number.
1, 2, 3, 13, 144, 233, 4181, 196418, 317811, 1346269, 32951280099, 6557470319842, 14472334024676221, 160500643816367088, 4660046610375530309, 22698374052006863956975682, 155576970220531065681649693
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..29
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,b]];a=b;b=c;c=d;d=e,{n,4,6!}];lst Select[Partition[Fibonacci[Range[0,150]],5,1],PrimeQ[Total[#]]&][[All,2]] (* Harvey P. Dale, Dec 11 2018 *)
Comments