A336940 Number of odd divisors of n!.
1, 1, 1, 2, 2, 4, 6, 12, 12, 20, 30, 60, 72, 144, 216, 336, 336, 672, 864, 1728, 2160, 3200, 4800, 9600, 10560, 14784, 22176, 28224, 35280, 70560, 86400, 172800, 172800, 245760, 368640, 497664, 559872, 1119744, 1679616, 2363904, 2626560, 5253120, 6451200, 12902400, 16128000
Offset: 0
Keywords
Examples
The a(1) = 1 through a(8) = 12 divisors: 1 1 1 1 1 1 1 1 3 3 3 3 3 3 5 5 5 5 15 9 7 7 15 9 9 45 15 15 21 21 35 35 45 45 63 63 105 105 315 315
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..10000
Crossrefs
Programs
-
Mathematica
Table[Length[Select[Divisors[n!],OddQ]],{n,0,15}]
-
PARI
a(n) = sumdiv(n!, d, d%2); \\ Michel Marcus, Aug 24 2020
-
PARI
a(n) = numdiv(prod(k=1, n, k >> valuation(k, 2))); \\ Michel Marcus, Aug 27 2020
Formula
Extensions
a(36)-a(44) from Seiichi Manyama, Aug 26 2020