OFFSET
1,1
MATHEMATICA
Binomial[2#, # ] - 1 & /@ Select[ Range[150], PrimeQ[(2#)!/#!^2 - 1] &] (* Robert G. Wilson v, Apr 14 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jorge Coveiro, Apr 12 2004
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Apr 14 2004
STATUS
approved