OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
i:=1:for k from 1 to 1200 do if isprime(k) and isprime(k+6)and isprime(k+12) then a[i]:=k:a[i+1]:=k+6:a[i+2]:=k+12:i:=i+3 fi od: seq(a[n], n=1..i-1);
MATHEMATICA
#+{0, 6, 12}&/@Select[Prime[Range[150]], AllTrue[#+{6, 12}, PrimeQ]&] // Flatten (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 26 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Miklos Kristof, Sep 27 2006
STATUS
approved