OFFSET
1,26
COMMENTS
Previous name, "Number of non-unitary square divisors of central binomial coefficient", was incorrect. See A376556 for the correct sequence with this name. - Amiram Eldar, Sep 28 2024
MATHEMATICA
A056061[n_] := Count[Divisors@Binomial[n, Floor[n/2]], d_ /; IntegerQ@Sqrt@d]; A008833[n_] := First[Select[Reverse[Divisors[n]], IntegerQ[Sqrt[#]] &, 1]]; A055229[n_] := With[{sf = Times @@ Power @@@ ({#[[1]], Mod[#[[2]], 2]} & /@ FactorInteger[n])}, GCD[sf, n/sf]];
Table[A056061[n] - 2^(PrimeNu[Sqrt[A008833[Binomial[n, Floor[n/2]]]]/ A055229[Binomial[n, Floor[n/2]]]]), {n, 1, 15}] (* G. C. Greubel, May 20 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 09 2000
EXTENSIONS
Incorrect name replaced with a formula by Amiram Eldar, Sep 28 2024
STATUS
approved