A098085 Primes P(n)+P(n+1)+b(n) = least prime >= P(n)+P(n+1), P(i)=i-th prime, b(n) given in A098084.

5, 11, 13, 19, 29, 31, 37, 43, 53, 61, 71, 79, 89, 97, 101, 113, 127, 131, 139, 149, 157, 163, 173, 191, 199, 211, 211, 223, 223, 241, 263, 269, 277, 293, 307, 311, 331, 331, 347, 353, 367, 373, 389, 397, 397, 419, 439, 457, 457, 463, 479, 487, 499, 509, 521

Offset: 1

Author

Pierre CAMI, Sep 13 2004

Keywords

• easy
• nonn

Examples

			P(1) + P(2) = 2 + 3 = 5; least prime >= 5 = 5.
P(2) + P(3) = 3 + 5 = 8; least prime > 8 = 11.
P(3) + P(4) = 5 + 7 = 12; least prime > 12 = 13.
		

Programs

Mathematica

f[n_] := Block[{k = 0, p = Prime[n] + Prime[n + 1]}, While[ !PrimeQ[p + k], k++ ]; p + k]; Table[ f[n], {n, 55}] (* Robert G. Wilson v, Sep 24 2004 *)

Extensions

More terms from Robert G. Wilson v, Sep 25 2004