A081370 Numbers k such that binomial(k^2, k) reduced mod k^2 is 0.

1, 30, 105, 120, 132, 231, 252, 380, 495, 520, 595, 616, 630, 680, 756, 858, 870, 924, 1040, 1155, 1173, 1365, 1428, 1463, 1547, 1610, 1722, 1768, 1820, 1953, 1976, 1995, 2002, 2016, 2080, 2093, 2170, 2184, 2277, 2310, 2508, 2520, 2530, 2552, 2618, 2622

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Max Alekseyev, PARI/GP Scripts for Miscellaneous Math Problems: Binomial coefficients modulo integers (binomod.gp).

Mathematica

Do[s=Mod[Binomial[n^2, n], n^2]; If[s==0, Print[n]], {n, 1, 10000}]

Prog

(PARI) is(k) = binomod(k^2, k, k^2) == 0; \\ Amiram Eldar, Jul 30 2024, using Max Alekseyev's binomod.gp

Crossrefs

Cf. A014062, A081369.

Sequence in context: A043998 A101056 A316362 * A257891 A158445 A046301

Adjacent sequences: A081367 A081368 A081369 * A081371 A081372 A081373

Keyword

nonn

Author

Labos Elemer, Mar 20 2003

Status

approved