OFFSET
1,1
MATHEMATICA
f[n_] := Block[{m = 1}, While[ !IntegerQ[ Prime@ m!/n], m++ ]; Prime@ m!/n]; Array[f, 31] (* Robert G. Wilson v, Apr 17 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 13 2008
EXTENSIONS
More terms from Robert G. Wilson v, Apr 17 2008
STATUS
approved