OFFSET
1,1
LINKS
MATHEMATICA
Flatten@Select[Partition[Prime@Range[39000], 4, 1], Differences[#] == {12, 12, 12} &] (* Arkadiusz Wesolowski, Aug 09 2012 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
EXTENSIONS
Offset corrected and name changed by Arkadiusz Wesolowski, Aug 09 2012
STATUS
approved