A345196 Number of integer partitions of n with reverse-alternating sum equal to the reverse-alternating sum of their conjugate.
1, 1, 0, 1, 1, 1, 1, 3, 4, 4, 4, 8, 11, 11, 11, 20, 27, 29, 31, 48, 65, 70, 74, 109, 145, 160, 172, 238, 314, 345, 372, 500, 649, 721, 782, 1019, 1307, 1451, 1577, 2015, 2552, 2841, 3098, 3885, 4867, 5418, 5914, 7318, 9071, 10109, 11050
Offset: 0
Keywords
Examples
The a(5) = 1 through a(12) = 11 partitions: (311) (321) (43) (44) (333) (541) (65) (66) (2221) (332) (531) (4321) (4322) (552) (4111) (2222) (32211) (32221) (4331) (4332) (4211) (51111) (52111) (4421) (4422) (6311) (4431) (222221) (6411) (422111) (33222) (611111) (53211) (222222) (422211) (621111)
Crossrefs
Programs
-
Mathematica
sats[y_]:=Sum[(-1)^(i-Length[y])*y[[i]],{i,Length[y]}]; conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]]; Table[Length[Select[IntegerPartitions[n],sats[#]==sats[conj[#]]&]],{n,0,15}]
Comments