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

Links

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

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

Crossrefs

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

Sequence in context: A139256 A166997 A204674 * A212682 A212134 A071270

Adjacent sequences: A123980 A123981 A123982 * A123984 A123985 A123986

Keyword

nonn

Author

Artur Jasinski, Oct 30 2006

Extensions

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

Status

approved