A282346 Least number m > 1 such that the central binomial coefficient C(2m,m) is divisible by m^n.
2, 924, 154836, 227736432, 84331608790, 1138842118714300
Offset: 1
Links
- Wikipedia, Kummer's theorem.
Programs
-
Mathematica
f[n_] := Block[{k = 2}, While[Mod[Binomial[2k, k], k^n] > 0, k++]; k]
Extensions
a(4)-a(5) from Giovanni Resta, Feb 23 2017
a(6) from Giovanni Resta, Mar 15 2017
Comments