OFFSET
1,1
MATHEMATICA
Join[{2}, Select[Partition[Prime[Range[100]], 3, 1], #[[2]]-#[[1]]<6||#[[3]]-#[[2]]<6&][[;; , 2]]] (* Harvey P. Dale, Oct 29 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 11 2009
EXTENSIONS
Corrected (43 inserted) by R. J. Mathar, May 30 2010
Definition corrected to match data. - Harvey P. Dale_, Oct 29 2023
STATUS
approved