|
%I #5 Jan 02 2014 13:02:01
%S 29,37,47,89,103,127,137,149,179,193,229,241,257,293,307,317,401,431,
%T 463,509,557,571,587,613,719,809,823,863,937,947,967,991,1021,1039,
%U 1193,1213,1277,1291,1321,1373,1439,1483,1499,1559,1709,1723,1741,1873,1949,1979
%N Primes that are 6 plus the sum of three consecutive primes.
%C Primes of the form 6+A034961(k).
%H Vincenzo Librandi, <a href="/A234973/b234973.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Total[#] + 6&/@Partition[Prime[Range[200]], 3, 1], PrimeQ]
%Y Cf. A034961, A165982, A165985.
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Jan 02 2014
|
