A123979 Numbers k such that 12*k+1, 12*k+5 and 12*k+7 are primes.

1, 3, 8, 16, 23, 38, 51, 71, 73, 108, 141, 156, 166, 178, 198, 233, 271, 288, 346, 376, 451, 453, 471, 478, 646, 656, 773, 778, 786, 871, 926, 1003, 1013, 1031, 1156, 1213, 1311, 1338, 1543, 1576, 1618, 1696, 1751, 1776, 1793, 1846, 1856, 1921, 1933, 1963

Offset: 1

Author

Artur Jasinski, Oct 30 2006

Keywords

• nonn

Links

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

Crossrefs

Cf. A110801.

Programs

Maple

a:=proc(n) if isprime(12*n+1)=true and isprime(12*n+5)=true and isprime(12*n+7)=true then n else fi end: seq(a(n),n=1..2800); # Emeric Deutsch, Nov 06 2006

Mathematica

Select[Range[2000], And @@ PrimeQ /@ ({1, 5, 7} + 12#) &] (* Ray Chandler, Nov 05 2006 *)

Extensions

Extended by Ray Chandler, Nov 05 2006

More terms from Emeric Deutsch, Nov 06 2006