A065350 a(n) = binomial(2*n, n) mod (n+1)^2.

2, 6, 4, 20, 0, 42, 40, 72, 20, 110, 120, 156, 56, 0, 208, 272, 108, 342, 200, 378, 176, 506, 432, 600, 260, 459, 0, 812, 840, 930, 928, 396, 476, 490, 360, 1332, 608, 1131, 1200, 1640, 0, 1806, 880, 0, 920, 2162, 864, 2352, 1100, 1224, 208, 2756, 1296, 2145

Offset: 1

Author

Labos Elemer, Oct 30 2001

Keywords

• nonn

Comments

a(A002503(n)) = 0. - Reinhard Zumkeller, Sep 16 2014

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000108, A065344-A065349, A002503.

Cf. A002503, A000984, A000290.

Programs

Haskell

a065350 n = a065350_list !! (n-1)
a065350_list = zipWith mod (tail a000984_list) (drop 2 a000290_list)
-- Reinhard Zumkeller, Sep 16 2014

Mathematica

Table[Mod[Binomial[2 n, n], (n + 1)^2], {n, 100}] (* Bruno Berselli, Jan 06 2014 *)

PARI

a(n) = { binomial(2*n, n) % (n + 1)^2 } \\ Harry J. Smith, Oct 17 2009