OFFSET
1,1
COMMENTS
A generalization of A052378.
MATHEMATICA
Transpose[Select[Partition[Prime[Range[78000]], 4, 1], Differences[#] == {16, 8, 16}&]][[1]] (* Harvey P. Dale, Mar 18 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 06 2005
STATUS
approved