%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
|