OFFSET
1,1
FORMULA
MATHEMATICA
With[{n = 4}, Function[P, Join[Select[Prime@ Range@ n, NextPrime@ # == # + 2 &], Select[Partition[Select[Range[P + 1], CoprimeQ[#, P] &], 2, 1], Differences@ # == {2} &][[All, 1]]]]@ Product[Prime@ i, {i, n}]] (* Michael De Vlieger, May 15 2017 *)
CROSSREFS
KEYWORD
fini,full,nonn
AUTHOR
Labos Elemer, Dec 13 2002
STATUS
approved