[go: up one dir, main page]

login
A153862
Smallest of four consecutive Fibonacci numbers such that sum of four consecutive Fibonacci numbers is prime number.
10
1, 1, 3, 5, 21, 55, 233, 377, 987, 317811, 5702887, 39088169, 701408733, 12586269025, 591286729879, 72723460248141, 3416454622906707, 43566776258854844738105
OFFSET
1,3
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,...
MATHEMATICA
a=0; b=1; c=1; lst={}; Do[d=Fibonacci[n]; p=a+b+c+d; If[PrimeQ[p], AppendTo[lst, a]]; a=b; b=c; c=d, {n, 3, 6!}]; lst
Transpose[Select[Partition[Fibonacci[Range[500]], 4, 1], PrimeQ[ Total[ #]]&]] [[1]] (* Harvey P. Dale, Jan 11 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved