OFFSET
1,1
COMMENTS
Next term is bigger than 2000. - Stefan Steinerberger, Jul 21 2006
MATHEMATICA
Select[Prime[Range[303]], IntegerQ[Sum[(Binomial[2n, n]/(n + 1))^2, {n, 0, #}]/# ] &] (* Stefan Steinerberger, Jul 21 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Jul 04 2006
STATUS
approved