A117400 Sum of the first F(n) primes, where F(n) is the n-th Fibonacci number.

0, 2, 2, 5, 10, 28, 77, 238, 712, 2127, 6338, 18650, 54169, 156108, 446276, 1267655, 3580644, 10058726, 28122767, 78293194, 217168960, 600499371, 1655455750, 4551547326, 12483130805, 34161551088, 93304665346, 254374561667

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..40

Formula

a(n) = A007504(A000045(n)). - Michel Marcus, Jun 30 2021

Mathematica

Join[{0}, Table[Sum[Prime[i], {i, Fibonacci[n]}], {n, 30}]] (* Stefan Steinerberger, Jun 04 2007 *)

Prog

(Magma) [0]cat[(&+[NthPrime(j): j in [1..Fibonacci(n)]]): n in [1..30]]; // G. C. Greubel, Jun 29 2021
(Sage)
@CachedFunction
def A117400(n): return 0 if (n==0) else sum(nth_prime(j) for j in (1..fibonacci(n)))
[A117400(n) for n in (0..40)] # G. C. Greubel, Jun 29 2021
(PARI) a(n) = sum(k=1, fibonacci(n), prime(k)); \\ Michel Marcus, Jun 30 2021

Crossrefs

Cf. A000040, A000045, A007504.

Sequence in context: A243338 A245306 A296530 * A005637 A233018 A209100

Adjacent sequences: A117397 A117398 A117399 * A117401 A117402 A117403

Keyword

nonn

Author

Giovanni Teofilatto, Apr 25 2006, Jun 01 2007

Extensions

More terms from Stefan Steinerberger, Jun 04 2007

Edited by N. J. A. Sloane, May 06 2008, at the suggestion of M. F. Hasler

Status

approved