%I #9 Oct 11 2019 11:35:35
%S 1,3,8,38,71,73,108,166,288,376,656,871,1156,1338,1618,1751,1776,1856,
%T 1921,1963,2311,2418,2801,3501,3538,3648,3818,4266,4541,4611,4651,
%U 5076,6723,6751,7388,7533,7621,7698,7738,7796,8083,8193,9073,9243,9418,9516
%N Numbers n for which 12n+1, 12n+5, 12n+7 and 12n+11 are primes.
%H T. D. Noe, <a href="/A123985/b123985.txt">Table of n, a(n) for n=1..1000</a>
%t Select[Range[10^4], And @@ PrimeQ /@ ({1, 5, 7, 11} + 12#) &] (* _Ray Chandler_, Nov 22 2006 *)
%o (PARI) P=isprime;
%o for(n=0, 10^5, if(P(12*n+1) && P(12*n+5) && P(12*n+7) && P(12*n+11), print1(n", ")));
%o \\ _Joerg Arndt_, Jul 11 2014
%Y Cf. A110801.
%K nonn
%O 1,2
%A _Artur Jasinski_, Oct 30 2006
|