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

1, 40, 106, 133, 250, 265, 271, 280, 295, 313, 418, 580, 691, 736, 748, 826, 946, 1231, 1240, 1435, 1471, 1561, 1756, 2023, 2035, 2038, 2101, 2575, 2728, 2878, 2926, 3268, 3400, 3451, 3688, 3715, 3883, 4213, 4306, 4726, 4936, 5080, 5398, 5761, 5908, 6046

Offset: 1

Author

Artur Jasinski, Oct 30 2006

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A092022.

Programs

Maple

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

Mathematica

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

Extensions

Extended by Ray Chandler, Nov 05 2006