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
Vladimir Joseph Stephan Orlovsky, Jan 03 2009
STATUS
approved