OFFSET
3,1
MATHEMATICA
PrimePrev[n_] := Module[{k=n-1}, While[ !PrimeQ[k], k--]; k]; f[n_] := (2n)!/n!/(n+1)!; Table[PrimePrev[f[n]], {n, 40}]
NextPrime[#, -1]&/@CatalanNumber[Range[3, 30]] (* Harvey P. Dale, Sep 19 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 28 2010
STATUS
approved