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,1

Links

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

Example

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.

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 *)

Crossrefs

Sequence in context: A023225 A206581 A292940 * A104216 A269819 A040144

Adjacent sequences: A098082 A098083 A098084 * A098086 A098087 A098088

Keyword

easy,nonn

Author

Pierre CAMI, Sep 13 2004

Extensions

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

Status

approved