|
%I #11 Jun 14 2013 15:58:05
%S 131,251,337,503,743,929,1447,1597,3023,3919,4051,4157,5087,5897,6133,
%T 7649,7877,8269,9181,9433,9721,11411,11677,13151,13757,14009,14533,
%U 18133,18493,18743,20563,21023,21247,22651,22921,23057,23801,23893,24359,24733,24809
%N Primes that are the sum of three consecutive primes in A034962.
%H Vincenzo Librandi, <a href="/A207527/b207527.txt">Table of n, a(n) for n = 1..1000</a>
%t t = Select[Table[Prime[n] + Prime[n + 1] + Prime[n + 2], {n, 1000}], PrimeQ]; Select[Table[t[[n]] + t[[n + 1]] + t[[n + 2]], {n, Length[t] - 2}], PrimeQ]
%Y Cf. A034962.
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Feb 18 2012
|
