A337257 Number of even divisors of n!.
0, 0, 1, 2, 6, 12, 24, 48, 84, 140, 240, 480, 720, 1440, 2376, 3696, 5040, 10080, 13824, 27648, 38880, 57600, 91200, 182400, 232320, 325248, 510048, 649152, 882000, 1764000, 2246400, 4492800, 5356800, 7618560, 11796480, 15925248
Offset: 0
Keywords
Examples
The a(2) = 1 through a(5) = 12 divisors: 2 2 2 2 6 4 4 6 6 8 8 12 10 24 12 20 24 30 40 60 120
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..10000
Crossrefs
Programs
-
Mathematica
Table[Length[Select[Divisors[n!],EvenQ]],{n,0,15}]
-
PARI
a(n) = sumdiv(n!, d, !(d%2)); \\ Michel Marcus, Aug 24 2020