OFFSET
1,4
PROG
(PARI) { a(n) = local(p, q, r); p=1; q=1; for(k=1, n, p*=n+k; q*=n-k; r=gcd(p, q); p\=r; q\=r; if(q==1, return(k))) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Feb 11 2005
STATUS
approved