OFFSET
1,2
MAPLE
s[0]:=1: for n to 1000 do s[n]:= s[n-1]+binomial(2*n+2, n+1)/(n+2) end do: a:= proc (n) if isprime(s[n]) = true then n else end if end proc: seq(a(n), n= 0.. 1000); # Emeric Deutsch, Aug 28 2007
MATHEMATICA
s = 0; Do[s = s + (2n)!/n!/(n+1)!; If[ PrimeQ[s], Print[n-1]], {n, 200}]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Alexander Adamchuk, Feb 23 2007
EXTENSIONS
3 more terms from Emeric Deutsch, Aug 28 2007
Name clarified by Jon E. Schoenfield, Mar 25 2019
STATUS
approved