g[list_]:=Total[list]!/Apply[Times, list]/Apply[Times, Table[Count[list, n]!, {n, 1, 20}]]; f[list_]:=Apply[Plus, Table[Count[list, n], {n, 2, 20, 2}]]; Map[Total, Table[Map[g, Select[IntegerPartitions[n], EvenQ[f[#]]&]]*Map[Apply[LCM, #]&, Select[IntegerPartitions[n], EvenQ[f[#]]&]], {n, 1, 20}]] (*
Geoffrey Critzer, Mar 26 2013 *)