OFFSET
1,1
LINKS
MAPLE
for i from 1 by 1 to 4000 do if ithprime(i+1) = ithprime(i) +6 and ithprime(i+2) = ithprime(i) + 12 and ithprime(i+3) = ithprime(i) + 18 then print(ithprime(i), ithprime(i+1), ithprime(i+2), ithprime(i+3)); # Zerinvary Lajos, May 04 2007
MATHEMATICA
Select[Partition[Prime[Range[2000]], 4, 1], Differences[#]=={6, 6, 6}&]// Flatten (* Harvey P. Dale, May 31 2019 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
STATUS
approved