OFFSET
1,1
MATHEMATICA
f[n_] := Block[{p = Prime[n + 1], k = 1, r}, While[r = Prime[k + 1]*p + 2; ! PrimeQ[r], k++ ]; r]; Table[f[n], {n, 52}] (* 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