OFFSET
1,1
MAPLE
select(n -> not isprime(n) and coeff(Power(1+x, 2*n) mod n, x, n) = 2, [$4 .. 10000]); # Robert Israel, Sep 22 2014
PROG
(PARI) a(file, nmax)={my(n=0, p=1);
while(1, p++; if(((binomial(2*p, p)-2)%p)==0,
if(!isprime(p), n++; write(file, n, " ", p); if(n==nmax, break)));
); }
CROSSREFS
KEYWORD
dead
AUTHOR
Stanislav Sykora, Aug 16 2014
STATUS
approved