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,2

Links

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

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 *)

Crossrefs

Cf. A092022.

Sequence in context: A044227 A044608 A241024 * A235301 A235291 A235893

Adjacent sequences: A123989 A123990 A123991 * A123993 A123994 A123995

Keyword

nonn

Author

Artur Jasinski, Oct 30 2006

Extensions

Extended by Ray Chandler, Nov 05 2006

Status

approved