A152784 Partial sums of Prime Fibonacci numbers/A005478.

2, 5, 10, 23, 112, 345, 1942, 30599, 544828, 434039265, 3405254338, 99194856500009835, 1066340417590905452314582004, 20201042817684183533764005921

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Dec 12 2008

Keywords

• nonn

Programs

Mathematica

a[n_]:=Fibonacci[n];lst={};s=0;Do[p=a[n];If[PrimeQ[p],s+=p;AppendTo[lst,s]],{n,5*5!}];lst
Accumulate[Select[Fibonacci[Range[150]],PrimeQ]] (* Harvey P. Dale, Sep 25 2024 *)