|
%I #15 Dec 20 2020 08:34:12
%S 5,7,11,13,19,23,37,41,59,101,103,107,109,113,137,149,151,157,167,173,
%T 191,269,281,283,293,307,331,349,353,359,421,431,463,479,487,499,503,
%U 569,599,607,613,617,619,677,733,761,773,823,853,883,967,977,1051,1087
%N Smallest prime such that the sum of successive 11 primes is a prime.
%C Sum i=0 to 10 of prime(n+i) is a prime.
%C There are many twins: (11,13); (149,151); (1301,1303); (1997,1999); (8969,8971) ...
%C There are also consecutive primes: (101,103,107,109,113); (607,613,617,619); (8681,8689,8693)
%H Zak Seidov, <a href="/A180950/b180950.txt">Table of n, a(n) for n = 1..10000</a>
%e a(5)=19 since 19+23+29+31+37+41+43+47+53+59+61=443 is a prime.
%t Transpose[Select[Partition[Prime[Range[500]], 11, 1], PrimeQ[Total[#]] &]][[1]] [[1]] (* _Harvey P. Dale_, Jun 05 2013 *)
%t Prime[Select[Range[200], PrimeQ[Sum[Prime[# + i], {i, 0, 10}]] &]] (* _Bruno Berselli_, Aug 22 2013 *)
%Y Cf. A000040, A127338, A073681, A152468, A180948, A189571, A226380.
%K nonn
%O 1,1
%A _Carmine Suriano_, Sep 27 2010
%E More cross references from _Harvey P. Dale_, Jun 05 2013
|
