A123992 - OEIS

%I #15 Mar 28 2020 04:28:11

%S 1,40,106,133,250,265,271,280,295,313,418,580,691,736,748,826,946,

%T 1231,1240,1435,1471,1561,1756,2023,2035,2038,2101,2575,2728,2878,

%U 2926,3268,3400,3451,3688,3715,3883,4213,4306,4726,4936,5080,5398,5761,5908,6046

%N Numbers k such that 16*k+1, 16*k+3 and 16*k+13 are primes.

%H Amiram Eldar, <a href="/A123992/b123992.txt">Table of n, a(n) for n = 1..10000</a>

%p a:=proc(n) if isprime(16*n+1)=true and isprime(16*n+3)=true and isprime(16*n+13)=true then n else fi end: seq(a(n),n=1..5000); # _Emeric Deutsch_, Nov 03 2006

%t Select[Range[6100], And @@ PrimeQ /@ ({1, 3, 13} + 16#) &] (* _Ray Chandler_, Nov 05 2006 *)

%Y Cf. A092022.

%K nonn

%O 1,2

%A _Artur Jasinski_, Oct 30 2006

%E Extended by _Ray Chandler_, Nov 05 2006