login
A153891
Largest of five consecutive Fibonacci numbers such that sum of five consecutive Fibonacci numbers is prime number.
1
3, 8, 13, 55, 610, 987, 17711, 832040, 1346269, 5702887, 139583862445, 27777890035288, 61305790721611591, 679891637638612258, 19740274219868223167, 96151855463018422468774568, 659034621587630041982498215
OFFSET
1,1
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,...
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, e]]; a=b; b=c; c=d; d=e, {n, 4, 6!}]; lst
Transpose[Select[Partition[Fibonacci[Range[0, 400]], 5, 1], PrimeQ[ Total[ #]]&]][[5]] (* Harvey P. Dale, Nov 14 2011 *)
KEYWORD
nonn
AUTHOR
EXTENSIONS
One more term (a(17)) from Harvey P. Dale, Nov 14 2011
STATUS
approved