OFFSET
1,1
MATHEMATICA
f[n_] := Block[{p = Prime[n + 1], k = 1, q}, While[q = Prime[k + 1]; ! PrimeQ[p*q + 2], k++ ]; q]; Table[f[n], {n, 95}] (* Ray Chandler, Feb 07 2007
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Feb 06 2007
EXTENSIONS
Extended by Ray Chandler, Feb 07 2007
STATUS
approved