|
%I #9 Sep 08 2022 08:46:05
%S 29,41,47,61,71,89,97,103,107,131,139,149,193,211,241,263,277,293,311,
%T 313,349,353,379,383,397,401,419,443,461,491,521,557,593,599,631,647,
%U 677,739,761,809,827,877,983,1013,1039,1061,1109,1117,1171,1193,1201
%N Smallest of 13 consecutive primes whose sum is a prime.
%H Vincenzo Librandi, <a href="/A229059/b229059.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1)=29 since 29+31+37+41+43+47+53+59+61+67+71+73+79=691 is a prime.
%t Transpose[Select[Partition[Prime[Range[250]], 13, 1], PrimeQ[Total[#]]&]][[1]]
%o (Magma) [NthPrime(n): n in [1..200] | IsPrime(&+[NthPrime(n+s): s in [0..12]])];
%Y Cf. A073681, A152468, A180948, A189571, A180950, A226380.
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Sep 13 2013
|
