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
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
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