A068066 The sum or half the sum of n consecutive primes starting at a(n) is prime.

2, 2, 5, 2, 5, 2, 17, 83, 3, 3, 5, 2, 29, 2, 3, 11, 3, 3, 11, 23, 7, 5, 7, 11, 5, 3, 7, 3, 13, 3, 13, 5, 7, 17, 5, 3, 5, 73, 13, 5, 7, 5, 7, 5, 7, 29, 7, 53, 11, 29, 17, 31, 3, 23, 3, 47, 97, 5, 29, 2, 3, 37, 13, 2, 3, 17, 19, 5, 19, 71, 3, 47, 5, 19, 3, 59, 23, 89, 7, 19, 11, 37, 53, 3

Offset: 1

Author

Robert G. Wilson v, Feb 16 2002

Keywords

• nonn

Comments

This eliminates the impossibles out of A007610 and the 'or' in the title is the exclusive or.

Examples

			a(3) = 5 because 5+7+11 = prime 23 and a(10) = 3 because 3+5+7+11+13+17+19+23+29+31 = 158 and half that or 79 is a prime.
		

Crossrefs

Cf. A007610.

Programs

Mathematica

Do[k = n; a = Table[Prime[i], {i, 1, n} ]; While[ !PrimeQ[Plus @@ a] && !PrimeQ[Plus @@ a/2], k++; a = Drop[a, 1]; a = Append[a, Prime[k]]]; Print[a[[1]]], {n, 1, 100} ]