%I #2 Mar 31 2012 12:38:17

%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

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Dec 12 2008