OFFSET
1,1
MATHEMATICA
With[{prs=Prime[Range[3110000]]}, Table[SelectFirst[Partition[prs, 5, 1], Min[Differences[#]]>=2n&][[1]], {n, 30}]] (* Harvey P. Dale, Dec 01 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jeff Burch, Apr 19 2000
EXTENSIONS
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Nov 10 2000
a(22)-a(29) from Donovan Johnson, Sep 03 2008
STATUS
approved