login
Smallest of 101 consecutive primes whose sum is prime.
9

%I #10 Aug 23 2013 06:18:48

%S 83,89,139,179,181,277,281,353,409,479,499,521,571,587,643,727,839,

%T 883,887,919,929,971,977,1019,1021,1117,1213,1223,1237,1259,1303,1327,

%U 1367,1381,1399,1423,1433,1481,1483,1667,1723,1789,1823,1861,1879,1913,2083

%N Smallest of 101 consecutive primes whose sum is prime.

%H Vincenzo Librandi, <a href="/A226380/b226380.txt">Table of n, a(n) for n = 1..1000</a>

%t Transpose[Select[Partition[Prime[Range[500]],101,1],PrimeQ[Total[#]]&]] [[1]]

%t Prime[Select[Range[400], PrimeQ[Sum[Prime[# + i], {i, 0, 100}]] &]] (* _Bruno Berselli_, Aug 21 2013 *)

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

%K nonn,easy

%O 1,1

%A _Harvey P. Dale_, Jun 05 2013