A226380 Smallest of 101 consecutive primes whose sum is prime.

83, 89, 139, 179, 181, 277, 281, 353, 409, 479, 499, 521, 571, 587, 643, 727, 839, 883, 887, 919, 929, 971, 977, 1019, 1021, 1117, 1213, 1223, 1237, 1259, 1303, 1327, 1367, 1381, 1399, 1423, 1433, 1481, 1483, 1667, 1723, 1789, 1823, 1861, 1879, 1913, 2083

Offset: 1

Author

Harvey P. Dale, Jun 05 2013

Keywords

• nonn
• easy

Links

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

Crossrefs

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

Programs

Mathematica

Transpose[Select[Partition[Prime[Range[500]],101,1],PrimeQ[Total[#]]&]] [[1]]
Prime[Select[Range[400], PrimeQ[Sum[Prime[# + i], {i, 0, 100}]] &]] (* Bruno Berselli, Aug 21 2013 *)