OFFSET
1,2
MATHEMATICA
Primorial[n_Integer] := Block[{k = Product[Prime[j], {j, n}]}, k]; f[n_] := Block[{p = Primorial[n]/2}, If[n == 1, j = 1, j = 2]; While[ !PrimeQ[p + 2Prime[j]], j++ ]; j]; Table[ f[n], {n, 70}] (* Robert G. Wilson v, Sep 04 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Aug 30 2004
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Sep 04 2004
STATUS
approved