A229059 Smallest of 13 consecutive primes whose sum is a prime.

29, 41, 47, 61, 71, 89, 97, 103, 107, 131, 139, 149, 193, 211, 241, 263, 277, 293, 311, 313, 349, 353, 379, 383, 397, 401, 419, 443, 461, 491, 521, 557, 593, 599, 631, 647, 677, 739, 761, 809, 827, 877, 983, 1013, 1039, 1061, 1109, 1117, 1171, 1193, 1201

Offset: 1

Author

Vincenzo Librandi, Sep 13 2013

Keywords

• nonn

Examples

			a(1)=29 since 29+31+37+41+43+47+53+59+61+67+71+73+79=691 is a prime.
		

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A073681, A152468, A180948, A189571, A180950, A226380.

Programs

Magma

[NthPrime(n): n in [1..200] | IsPrime(&+[NthPrime(n+s): s in [0..12]])];

Mathematica

Transpose[Select[Partition[Prime[Range[250]], 13, 1], PrimeQ[Total[#]]&]][[1]]