A152784 Partial sums of Prime Fibonacci numbers/A005478.

2, 5, 10, 23, 112, 345, 1942, 30599, 544828, 434039265, 3405254338, 99194856500009835, 1066340417590905452314582004, 20201042817684183533764005921

Offset

1,1

Links

Table of n, a(n) for n=1..14.

Mathematica

a[n_]:=Fibonacci[n]; lst={}; s=0; Do[p=a[n]; If[PrimeQ[p], s+=p; AppendTo[lst, s]], {n, 5*5!}]; lst

Crossrefs

Sequence in context: A291559 A297074 A099963 * A112855 A361505 A299436

Adjacent sequences: A152781 A152782 A152783 * A152785 A152786 A152787

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Dec 12 2008

Status

approved