A123982 - OEIS

%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