OFFSET
1,1
MATHEMATICA
PrimeNext[n_]:=Module[{k=n+1}, While[ !PrimeQ[k], k++ ]; k]; f[n_]:=(2n)!/n!/(n+1)!; Table[PrimeNext[f[n]], {n, 40}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 28 2010
STATUS
approved