login
Partial sums of Prime Fibonacci numbers/A005478.
0

%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