|
%I #4 Oct 15 2013 22:31:51
%S 1,30,105,120,132,231,252,380,495,520,595,616,630,680,756,858,870,924,
%T 1040,1155,1173,1365,1428,1463,1547,1610,1722,1768,1820,1953,1976,
%U 1995,2002,2016,2080,2093,2170,2184,2277,2310,2508,2520,2530,2552,2618,2622
%N Binomial(n^2, n) reduced mod n^2 is 0.
%t Do[s=Mod[Binomial[n^2, n], n^2]; If[s==0, Print[n]], {n, 1, 10000}]
%Y Cf. A014062, A081369.
%K nonn
%O 1,2
%A _Labos Elemer_, Mar 20 2003
|
