OFFSET
1,1
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,...
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..28
Harvey P. Dale and others, A005479 and A153867, SeqFan list, Apr 24 2014.
FORMULA
a(n) = A005479(n+2). - R. J. Mathar, Jan 05 2009 [See also link to the SeqFan list. - M. F. Hasler, Apr 24 2014]
MATHEMATICA
a=0; b=1; c=1; lst={}; Do[d=Fibonacci[n]; p=a+b+c+d; If[PrimeQ[p], AppendTo[lst, p]]; a=b; b=c; c=d, {n, 3, 6!}]; lst
Select[Total/@Partition[Fibonacci[Range[500]], 4, 1], PrimeQ] (* Harvey P. Dale, Apr 23 2014 *)
PROG
(PARI) list(lim)=my(v=List(), a=7, b=11); while(a<=lim, if(isprime(a), listput(v, a)); [a, b]=[b, a+b]); Vec(v) \\ Charles R Greathouse IV, Oct 07 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 03 2009
EXTENSIONS
One additional term (a(19)) from Harvey P. Dale, Apr 23 2014
STATUS
approved