OFFSET
1,1
COMMENTS
No further terms up to Catalan Number 3000, which has 1801 digits. - Harvey P. Dale, Jun 18 2021
MATHEMATICA
f[n_]:=(2n)!/n!/(n+1)!; Select[Table[f[n], {n, 0, 6!}], PrimeQ[ #-1]&&PrimeQ[ #+1]&]
Select[CatalanNumber[Range[200]], AllTrue[#+{1, -1}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 18 2021 *)
CROSSREFS
KEYWORD
nonn,bref
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 28 2010
STATUS
approved