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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 30 2006
EXTENSIONS
Edited and extended by Ray Chandler and R. J. Mathar, Nov 05 2006
STATUS
approved