A107817 Slowest increasing sequence where 2 consecutive integers sum up to a prime.

0, 2, 3, 4, 7, 10, 13, 16, 21, 22, 25, 28, 31, 36, 37, 42, 47, 50, 51, 52, 55, 58, 69, 70, 79, 84, 89, 90, 91, 100, 111, 112, 115, 118, 121, 130, 133, 136, 141, 142, 151, 156, 157, 160, 171, 176, 177, 182, 185, 188, 191, 192, 197, 200, 201, 208, 211, 220, 223, 226

Offset

0,2

Comments

Essentially the same as A073627. [R. J. Mathar, Aug 24 2008]

Essentially the same as A062042. [Zak Seidov, Nov 04 2009]

Links

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

Example

0+2=2, which is a prime; 2+3=5=prime; 3+4=7=prime; 4+7=11=prime, etc.

Mathematica

k = 0; Print[k]; Do[p = k + 1; While[ !PrimeQ[k + p], p++ ]; k = p; Print[k], {n, 1, 100}] (* Ryan Propper, Sep 04 2005 *)

Crossrefs

Sequence in context: A202016 A073627 A062042 * A008811 A144678 A309678

Adjacent sequences: A107814 A107815 A107816 * A107818 A107819 A107820

Keyword

easy,nonn

Author

Eric Angelini, Jun 11 2005

Extensions

More terms from Ryan Propper, Sep 04 2005

Status

approved