%I #4 Sep 25 2024 11:44:26
%S 2,5,10,23,112,345,1942,30599,544828,434039265,3405254338,
%T 99194856500009835,1066340417590905452314582004,
%U 20201042817684183533764005921
%N Partial sums of Prime Fibonacci numbers/A005478.
%t a[n_]:=Fibonacci[n];lst={};s=0;Do[p=a[n];If[PrimeQ[p],s+=p;AppendTo[lst,s]],{n,5*5!}];lst
%t Accumulate[Select[Fibonacci[Range[150]],PrimeQ]] (* _Harvey P. Dale_, Sep 25 2024 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 12 2008