|
%I #17 Mar 27 2020 09:01:21
%S 1,3,8,19,29,38,56,71,73,78,84,91,101,108,119,124,129,133,134,166,199,
%T 203,224,236,246,288,294,301,316,344,376,399,411,423,488,623,628,631,
%U 656,686,724,728,819,861,871,883,894,1008,1009,1053,1074,1086,1156,1179
%N Numbers k such that 12*k+1, 12*k+5 and 12*k+11 are primes.
%H Amiram Eldar, <a href="/A123982/b123982.txt">Table of n, a(n) for n = 1..10000</a>
%p a:=proc(n) if isprime(12*n+1)=true and isprime(12*n+5)=true and isprime(12*n+11)=true then n else fi end: seq(a(n),n=1..1400); # _Emeric Deutsch_, Nov 06 2006
%t Select[Range[1200], And @@ PrimeQ /@ ({1, 5, 11} + 12#) &] (* _Ray Chandler_, Nov 05 2006 *)
%Y Cf. A110801.
%K nonn
%O 1,2
%A _Artur Jasinski_, Oct 30 2006
%E Extended by _Ray Chandler_, Nov 05 2006
%E More terms from _Emeric Deutsch_, Nov 06 2006
|
