|
%I #14 Aug 13 2021 15:20:47
%S 691,863,983,1153,1283,1553,1621,1753,1823,2111,2239,2311,2963,3191,
%T 3617,3853,4099,4357,4519,4597,4999,5081,5393,5471,5623,5693,5849,
%U 6229,6491,6971,7349,7673,8123,8191,8669,8933,9391,10141,10499,10949,11273
%N Primes that can be written as the sum of 13 consecutive primes.
%H Syed Iddi Hasan, <a href="/A127341/b127341.txt">Table of n, a(n) for n = 1..10000</a>
%e 691 = prime(10) + prime(11) + ... + prime(22) = 29 + 31 + ... + 79.
%t Select[Table[Sum[Prime[i], {i, n, n + 12}], {n, 1, 150}], PrimeQ[ # ] &]
%t Select[Total/@Partition[Prime[Range[200]],13,1],PrimeQ] (* _Harvey P. Dale_, Aug 13 2021 *)
%Y Cf. A034962, A034965, A082246, A082251, A127340.
%K nonn
%O 1,1
%A _Artur Jasinski_, Jan 11 2007
%E Edited by _Stefan Steinerberger_, Jul 31 2007
|
