OFFSET
1,1
EXAMPLE
2*3*5 - 13 = 17, prime; 2*3*5 + 13 = 43, prime; so for n=3, k=1.
MATHEMATICA
Primorial[n_] := Product[ Prime[i], {i, n}]; f[n_] := Block[{k = 1, p = Primorial[n], q = Prime[n + 3]}, While[k*p - q < 2 || !PrimeQ[k*p - q] || !PrimeQ[k*p + q], k++ ]; k]; Table[ f[n], {n, 63}] (* Robert G. Wilson v, Aug 31 2004 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Pierre CAMI, Aug 27 2004
EXTENSIONS
More terms from Robert G. Wilson v, Aug 31 2004
STATUS
approved