A122594 a(0) = 2; a(1) = 5; a(n) = prime(a(n-1)) + prime(a(n-2)) if n > 1.

2, 5, 14, 54, 294, 2182, 21168, 258584, 3866528, 69094248, 1446704598, 34928585060, 959616504858, 29669964598708, 1022713744909606, 38985339660148638, 1631985092027500964

Offset

0,1

Links

Table of n, a(n) for n=0..16.

Example

a(2) = prime(2) + prime(5) = 3 + 11 = 14.

Maple

A122594 := proc(n) option remember: if(n=0)then return 2: elif(n=1)then return 5: else return ithprime(procname(n-1)) + ithprime(procname(n-2)): fi: end:
seq(A122594(n), n=0..8); # Nathaniel Johnston, Apr 26 2011

Mathematica

Transpose[NestList[{#[[2]], Prime[ #[[1]]]+Prime[ #[[2]]]}&, {1, 2}, 13]][[2]]

Crossrefs

Cf. A069103, A107327.

Sequence in context: A052649 A267561 A267560 * A267559 A047136 A047042

Adjacent sequences: A122591 A122592 A122593 * A122595 A122596 A122597

Keyword

nonn,more

Author

Carlos Alves, Oct 29 2006

Extensions

a(14)-a(16) from Jinyuan Wang, Nov 21 2020

Status

approved