OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
i:=1:for k from 1 to 5000 do if isprime(k) and isprime(k+6)and isprime(k+12)and isprime(k+18) then a[i]:=k:a[i+1]:=k+6:a[i+2]:=k+12:a[i+3]:=k+18:i:=i+4 fi od: seq(a[n], n=1..i-1);
MATHEMATICA
Select[Table[p+{0, 6, 12, 18}, {p, Prime[Range[400]]}], AllTrue[#, PrimeQ]&]//Flatten (* Harvey P. Dale, Sep 17 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Miklos Kristof, Sep 27 2006
STATUS
approved