|
%I #41 Jun 20 2017 23:10:32
%S 5,7,17,19,29,47,59,89,127,139,167,199,227,239,257,269,397,409,419,
%T 467,479,607,619,727,797,929,997,1009,1039,1277,1279,1427,1447,1459,
%U 1487,1499,1559,1597,1697,1709,1777,1877,1889,1987,2087,2129,2269,2399,2609
%N Prime p such that p, p+12, p+24 are all primes.
%C Intersection of A046133 and A033560. - _M. F. Hasler_, May 19 2012
%H Salvatore Di Guida, <a href="/A185022/b185022.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[50], PrimeQ[#] && PrimeQ[# + 12] && PrimeQ[# + 24] &] (* _G. C. Greubel_, Jun 20 2017 *)
%o (PARI) forprime(p=1,2999,isprime(p+12)&isprime(p+24)&print1(p",")) \\ _M. F. Hasler_, May 19 2012
%K nonn,easy
%O 1,1
%A _Salvatore Di Guida_, May 19 2012
|
