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
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 12 2008
STATUS
approved