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
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 20 2003
STATUS
approved