OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[10^5], PrimeQ[10^4# + 1] && PrimeQ[10^4# + 3] && PrimeQ[10^4# + 7] && PrimeQ[10^4# + 9] &]
Select[Range[120000], AllTrue[10000#+{1, 3, 7, 9}, PrimeQ]&] (* Harvey P. Dale, Mar 18 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Oct 29 2001
STATUS
approved