A350951 Number of odd parts minus number of odd conjugate parts in the integer partition with Heinz number n.
0, 0, -2, 2, -2, 0, -4, 2, 0, 0, -4, 0, -6, -2, 0, 4, -6, 0, -8, 0, -2, -2, -8, 2, 2, -4, -2, -2, -10, 0, -10, 4, -2, -4, 0, 2, -12, -6, -4, 2, -12, -2, -14, -2, -2, -6, -14, 2, 0, 2, -4, -4, -16, 0, 0, 0, -6, -8, -16, 2, -18, -8, -4, 6, -2, -2, -18, -4, -6, 0
Offset: 1
Keywords
Examples
The prime indices of 78 are (6,2,1), with conjugate (3,2,1,1,1,1), so a(78) = 1 - 5 = -4.
Crossrefs
The version comparing even with odd parts is A195017.
The version comparing even with odd conjugate parts is A350849.
The version comparing even conjugate with odd conjugate parts is A350941.
The version comparing odd with even conjugate parts is A350942.
The version comparing even with even conjugate parts is A350950.
There are four individual statistics:
There are five other possible pairings of statistics:
There are three possible double-pairings of statistics:
A103919 counts partitions by number of odd parts.
A116482 counts partitions by number of even parts.
A122111 represents partition conjugation using Heinz numbers.
A316524 gives the alternating sum of prime indices.
Programs
-
Mathematica
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]]; Table[Count[primeMS[n],?OddQ]-Count[conj[primeMS[n]],?OddQ],{n,100}]
Comments