login
A152784
Partial sums of Prime Fibonacci numbers/A005478.
0
2, 5, 10, 23, 112, 345, 1942, 30599, 544828, 434039265, 3405254338, 99194856500009835, 1066340417590905452314582004, 20201042817684183533764005921
OFFSET
1,1
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 *)
CROSSREFS
Sequence in context: A291559 A297074 A099963 * A112855 A361505 A299436
KEYWORD
nonn
AUTHOR
STATUS
approved