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

Author

Eric Angelini, Jun 11 2005

Keywords

• easy
• nonn

Comments

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

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

Examples

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

Programs

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

Extensions

More terms from Ryan Propper, Sep 04 2005