[go: up one dir, main page]

login
A153888
Second-to-smallest of five consecutive Fibonacci numbers such that sum of five consecutive Fibonacci numbers is prime number.
5
1, 2, 3, 13, 144, 233, 4181, 196418, 317811, 1346269, 32951280099, 6557470319842, 14472334024676221, 160500643816367088, 4660046610375530309, 22698374052006863956975682, 155576970220531065681649693
OFFSET
1,2
COMMENTS
0+1+1+2=3=7, 1+2+3+5+8=19, 2+3+5+8=13=31, 8+13+21+34+55=131, 89+144+233+377+610=1453, 144+233+377+610+987=2351,...
LINKS
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 *)
KEYWORD
nonn
AUTHOR
STATUS
approved