A081369 Binomial(n^2, n) reduced mod n^2.

0, 2, 3, 12, 5, 12, 7, 56, 9, 40, 11, 108, 13, 84, 90, 240, 17, 144, 19, 80, 315, 220, 23, 72, 25, 312, 27, 560, 29, 0, 31, 992, 759, 544, 770, 720, 37, 684, 1053, 520, 41, 252, 43, 1408, 1125, 1012, 47, 1872, 49, 1200, 918, 624, 53, 1404, 2475, 2744, 2223, 1624, 59

Offset: 1

Author

Labos Elemer, Mar 20 2003

Keywords

• easy
• nonn

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A014062, A081370.

Programs

Maple

A081369:=n->binomial(n^2, n) mod n^2; seq(A081369(n), n=1..100); # Wesley Ivan Hurt, Jan 28 2014

Mathematica

Table[Mod[Binomial[n^2, n], n^2], {n, 100}] (* Wesley Ivan Hurt, Jan 28 2014 *)

Formula

a(n)=Mod[C(n^2, n), n^2]