OFFSET
1,1
COMMENTS
a(A002503(n)) = 0. - Reinhard Zumkeller, Sep 16 2014
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Mod[Binomial[2 n, n], (n + 1)^2], {n, 100}] (* Bruno Berselli, Jan 06 2014 *)
PROG
(PARI) { for (n=1, 1000, write("b065350.txt", n, " ", binomial(2*n, n) % (n + 1)^2) ) } \\ Harry J. Smith, Oct 17 2009
(Haskell)
a065350 n = a065350_list !! (n-1)
a065350_list = zipWith mod (tail a000984_list) (drop 2 a000290_list)
-- Reinhard Zumkeller, Sep 16 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 30 2001
STATUS
approved