login
A123983
Numbers k for which 8*k+1, 8*k+5, 8*k+7 and 8*k+11 are primes.
1
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
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 30 2006
EXTENSIONS
Edited and extended by Ray Chandler and R. J. Mathar, Nov 05 2006
STATUS
approved