OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1001
EXAMPLE
47, 53, 59
151, 157, 163
167, 173, 179
.....
MAPLE
for i from 1 by 1 to 400 do if ithprime(i+1) = ithprime(i) + 6 and ithprime(i+2) = ithprime(i) + 12 then print(ithprime(i), ithprime(i+1), ithprime(i+2)); fi; od;
MATHEMATICA
Select[Partition[Prime[Range[200]], 3, 1], Differences[#]=={6, 6}&]//Flatten (* Harvey P. Dale, Dec 09 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zerinvary Lajos, Apr 27 2007
STATUS
approved