A123983 Numbers k for which 8*k+1, 8*k+5, 8*k+7 and 8*k+11 are primes.

12, 57, 162, 249, 432, 564, 984, 1734, 2007, 2427, 2664, 2784, 3627, 5307, 5472, 5727, 6399, 7614, 11082, 11547, 11607, 11694, 14127, 14274, 14484, 14862, 15117, 17049, 19104, 19422, 20577, 25677, 27612, 27714, 28152, 29307, 32232, 34602, 35592

Offset: 1

Author

Artur Jasinski, Oct 30 2006

Keywords

• nonn

Links

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

Crossrefs

Cf. A005122, A005123, A005124, A005125, A105133.

Programs

Maple

isA123983 := proc(n) RETURN( isprime(8*n+1) and isprime(8*n+5) and isprime(8*n+7) and isprime(8*n+11) ) ; end: for n from 1 to 7000 do if isA123983(n) then printf("%d,",n) ; fi ; od ; # R. J. Mathar, Nov 06 2006

Mathematica

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

Extensions

Edited and extended by Ray Chandler and R. J. Mathar, Nov 05 2006