A209816 -id:A209816 - cp's OEIS frontend

A344416 Heinz numbers of integer partitions whose sum is even and is at most twice the greatest part.

3, 4, 7, 9, 10, 12, 13, 19, 21, 22, 25, 28, 29, 30, 34, 37, 39, 40, 43, 46, 49, 52, 53, 55, 57, 61, 62, 63, 66, 70, 71, 76, 79, 82, 84, 85, 87, 88, 89, 91, 94, 101, 102, 107, 111, 112, 113, 115, 116, 117, 118, 121, 129, 130, 131, 133, 134, 136, 138, 139, 146

Offset: 1

Gus Wiseman, May 20 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

Also numbers m whose sum of prime indices A056239(m) is even and is at most twice the greatest prime index A061395(m).

			The sequence of terms together with their prime indices begins:
      3: {2}         37: {12}          71: {20}
      4: {1,1}       39: {2,6}         76: {1,1,8}
      7: {4}         40: {1,1,1,3}     79: {22}
      9: {2,2}       43: {14}          82: {1,13}
     10: {1,3}       46: {1,9}         84: {1,1,2,4}
     12: {1,1,2}     49: {4,4}         85: {3,7}
     13: {6}         52: {1,1,6}       87: {2,10}
     19: {8}         53: {16}          88: {1,1,1,5}
     21: {2,4}       55: {3,5}         89: {24}
     22: {1,5}       57: {2,8}         91: {4,6}
     25: {3,3}       61: {18}          94: {1,15}
     28: {1,1,4}     62: {1,11}       101: {26}
     29: {10}        63: {2,2,4}      102: {1,2,7}
     30: {1,2,3}     66: {1,2,5}      107: {28}
     34: {1,7}       70: {1,3,4}      111: {2,12}

These partitions are counted by A000070 = even-indexed terms of A025065.
The opposite version appears to be A320924, counted by A209816.
The opposite version with odd weights allowed appears to be A322109.
The conjugate opposite version allowing odds is A344291, counted by A110618.
The conjugate version is A344296, also counted by A025065.
The conjugate opposite version is A344413, counted by A209816.
Allowing odd weight gives A344414.
The case of equality is A344415, counted by A035363.
A001222 counts prime factors with multiplicity.
A027187 counts partitions of even length, ranked by A028260.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A265640 lists Heinz numbers of palindromic partitions.
A301987 lists numbers whose sum of prime indices equals their product.
A334201 adds up all prime indices except the greatest.
A340387 lists Heinz numbers of partitions whose sum is twice their length.
Cf. A001414, A074761, A316413, A316428, A325037, A325038, A325044, A330950, A344293, A344294, A344297.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Total[primeMS[#]]]&&Max[primeMS[#]]>=Total[primeMS[#]]/2&]

Intersection of A300061 and A344414.

A320925 Heinz numbers of connected multigraphical partitions.

Original entry on oeis.org

4, 9, 12, 25, 27, 30, 36, 40, 49, 63, 70, 75, 81, 84, 90, 100, 108, 112, 120, 121, 147, 154, 165, 169, 175, 189, 196, 198, 210, 220, 225, 243, 250, 252, 264, 270, 273, 280, 286, 289, 300, 324, 325, 336, 343, 351, 352, 360, 361, 363, 364, 385, 390, 400, 441

Offset: 1

Gus Wiseman, Oct 24 2018

nonn

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

An integer partition is connected and multigraphical if it comprises the multiset of vertex-degrees of some connected multigraph.

			The sequence of all connected multigraphical partitions begins: (11), (22), (211), (33), (222), (321), (2211), (3111), (44), (422), (431), (332), (2222), (4211), (3221), (3311), (22211), (41111), (32111).

Cf. A000070, A000569, A007717, A056239, A112798, A147878, A209816, A300061, A320459, A320911, A320921, A320923, A320924.

prptns[m_]:=Union[Sort/@If[Length[m]==0,{{}},Join@@Table[Prepend[#,m[[ipr]]]&/@prptns[Delete[m,List/@ipr]],{ipr,Select[Prepend[{#},1]&/@Select[Range[2,Length[m]],m[[#]]>m[[#-1]]&],UnsameQ@@m[[#]]&]}]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Union[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
Select[Range[1000],Select[prptns[Flatten[MapIndexed[Table[#2,{#1}]&,If[#==1,{},Flatten[Cases[FactorInteger[#],{p_,k_}:>Table[PrimePi[p],{k}]]]]]]],Length[csm[#]]==1&]!={}&]

A339842 Heinz numbers of non-graphical, multigraphical integer partitions of even numbers.

Original entry on oeis.org

9, 25, 30, 49, 63, 70, 75, 84, 100, 121, 147, 154, 165, 169, 175, 189, 196, 198, 210, 220, 250, 264, 273, 280, 286, 289, 325, 343, 351, 361, 363, 364, 385, 390, 441, 442, 462, 468, 484, 490, 495, 507, 520, 525, 529, 550, 561, 588, 594, 595, 616, 624, 637, 646

Offset: 1

Gus Wiseman, Dec 27 2020

nonn

An integer partition is graphical if it comprises the multiset of vertex-degrees of some graph, and multigraphical if it comprises the multiset of vertex-degrees of some multigraph.

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
      9: {2,2}        189: {2,2,2,4}      363: {2,5,5}
     25: {3,3}        196: {1,1,4,4}      364: {1,1,4,6}
     30: {1,2,3}      198: {1,2,2,5}      385: {3,4,5}
     49: {4,4}        210: {1,2,3,4}      390: {1,2,3,6}
     63: {2,2,4}      220: {1,1,3,5}      441: {2,2,4,4}
     70: {1,3,4}      250: {1,3,3,3}      442: {1,6,7}
     75: {2,3,3}      264: {1,1,1,2,5}    462: {1,2,4,5}
     84: {1,1,2,4}    273: {2,4,6}        468: {1,1,2,2,6}
    100: {1,1,3,3}    280: {1,1,1,3,4}    484: {1,1,5,5}
    121: {5,5}        286: {1,5,6}        490: {1,3,4,4}
    147: {2,4,4}      289: {7,7}          495: {2,2,3,5}
    154: {1,4,5}      325: {3,3,6}        507: {2,6,6}
    165: {2,3,5}      343: {4,4,4}        520: {1,1,1,3,6}
    169: {6,6}        351: {2,2,2,6}      525: {2,3,3,4}
    175: {3,3,4}      361: {8,8}          529: {9,9}
For example, a complete list of all multigraphs with degrees (4,2,2,2) is:
  {{1,2},{1,2},{1,3},{1,4},{3,4}}
  {{1,2},{1,3},{1,3},{1,4},{2,4}}
  {{1,2},{1,3},{1,4},{1,4},{2,3}}
Since none of these is strict, i.e., a graph, the Heinz number 189 is in the sequence.

Eric Weisstein's World of Mathematics, Degree Sequence.
Gus Wiseman, Counting and ranking factorizations, factorability, and vertex-degree partitions for groupings into pairs.

See link for additional cross references.
Distinct prime shadows (images under A181819) of A340017.
A000070 counts non-multigraphical partitions (A339620).
A000569 counts graphical partitions (A320922).
A027187 counts partitions of even length (A028260).
A058696 counts partitions of even numbers (A300061).
A096373 cannot be partitioned into strict pairs.
A209816 counts multigraphical partitions (A320924).
A320663/A339888 count unlabeled multiset partitions into singletons/pairs.
A320893 can be partitioned into distinct pairs but not into strict pairs.
A339560 can be partitioned into distinct strict pairs.
A339617 counts non-graphical partitions of 2n (A339618).
A339659 counts graphical partitions of 2n into k parts.
Cf. A004251, A006129, A007717, A056239, A095268, A112798, A181821, A305936, A318284, A339559.

strr[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[strr[n/d],Min@@#>=d&]],{d,Select[Divisors[n],And[SquareFreeQ[#],PrimeOmega[#]==2]&]}]];
nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],EvenQ[Length[nrmptn[#]]]&& Select[strr[Times@@Prime/@nrmptn[#]],UnsameQ@@#&]=={}&&strr[Times@@Prime/@nrmptn[#]]!={}&]

Equals A320924 /\ A339618.

Equals A320924 \ A320922.

A344413 Numbers n whose sum of prime indices A056239(n) is even and is at least twice the number of prime factors A001222(n).

Original entry on oeis.org

1, 3, 7, 9, 10, 13, 19, 21, 22, 25, 27, 28, 29, 30, 34, 37, 39, 43, 46, 49, 52, 53, 55, 57, 61, 62, 63, 66, 70, 71, 75, 76, 79, 81, 82, 84, 85, 87, 88, 89, 90, 91, 94, 100, 101, 102, 107, 111, 113, 115, 116, 117, 118, 121, 129, 130, 131, 133, 134, 136, 138

Offset: 1

Gus Wiseman, May 19 2021

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Also Heinz numbers of integer partitions of even numbers m with at most m/2 parts, counted by A209816 riffled with zeros, or A110618 with odd positions zeroed out.

			The sequence of terms together with their prime indices begins:
      1: {}          37: {12}        75: {2,3,3}
      3: {2}         39: {2,6}       76: {1,1,8}
      7: {4}         43: {14}        79: {22}
      9: {2,2}       46: {1,9}       81: {2,2,2,2}
     10: {1,3}       49: {4,4}       82: {1,13}
     13: {6}         52: {1,1,6}     84: {1,1,2,4}
     19: {8}         53: {16}        85: {3,7}
     21: {2,4}       55: {3,5}       87: {2,10}
     22: {1,5}       57: {2,8}       88: {1,1,1,5}
     25: {3,3}       61: {18}        89: {24}
     27: {2,2,2}     62: {1,11}      90: {1,2,2,3}
     28: {1,1,4}     63: {2,2,4}     91: {4,6}
     29: {10}        66: {1,2,5}     94: {1,15}
     30: {1,2,3}     70: {1,3,4}    100: {1,1,3,3}
     34: {1,7}       71: {20}       101: {26}
For example, 75 has 3 prime indices {2,3,3} with sum 8 >= 2*3, so 75 is in the sequence.

Robert Israel, Table of n, a(n) for n = 1..10000

These are the Heinz numbers of partitions counted by A209816 and A110618.
A subset of A300061 (sum of prime indices is even).
The conjugate version appears to be A320924 (allowing odd weights: A322109).
The case of equality is A340387.
Allowing odd weights gives A344291.
The 5-smooth case is A344295, or A344293 allowing odd weights.
The opposite version allowing odd weights is A344296.
The conjugate opposite version allowing odd weights is A344414.
The case of equality in the conjugate case is A344415.
The conjugate opposite version is A344416, counted by A000070.
A001222 counts prime factors with multiplicity.
A027187 counts partitions of even length, ranked by A028260.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A301987 lists numbers whose sum of prime indices equals their product.
A330950 counts partitions of n with Heinz number divisible by n.
A334201 adds up all prime indices except the greatest.
Cf. A001414, A025065, A067538, A301988, A316413, A316428, A325037, A325038, A325044, A338914, A344294, A344297.

filter:= proc(n) local F,a,t;
  F:= ifactors(n)[2];
  a:= add((numtheory:-pi(t[1])-2)*t[2],t=F);
  a::even and a >= 0
end proc:
select(filter, [$1..300]); # Robert Israel, Oct 10 2024

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Total[primeMS[#]]]&&PrimeOmega[#]<=Total[primeMS[#]]/2&]

Members m of A300061 such that A056239(m) >= 2*A001222(m).

A209815 Number of partitions of 2n in which every part is

Original entry on oeis.org

0, 1, 4, 10, 23, 47, 90, 164, 288, 488, 807, 1303, 2063, 3210, 4920, 7434, 11098, 16380, 23928, 34624, 49668, 70667, 99795, 139935, 194930, 269857, 371413, 508363, 692195, 937838, 1264685, 1697810, 2269557, 3021462, 4006812, 5293650, 6968730, 9142306, 11954194

Offset: 1

Clark Kimberling, Mar 13 2012

nonn

			The 4 partitions of 6 with parts <3:
2+2+2, 2+2+1+1, 2+1+1+1+1, 1+1+1+1+1+1.
Matching partitions of 2 into rationals as described:
2/3 + 2/3 + 2/3
2/3 + 2/3 + 1/3 + 1/3
2/3 + 1/3 + 1/3 + 1/3 + 1/3
1/3 + 1/3 + 1/3 + 1/3 + 1/3 + 1/3.

Alois P. Heinz, Table of n, a(n) for n = 1..1000

Cf. A209816.

Cf. A231429.

a209815 n = p [1..n-1] (2*n) where
   p _          0 = 1
   p []         _ = 0
   p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m
-- Reinhard Zumkeller, Nov 14 2013

b:= proc(n, i) option remember; `if`(n=0, 1,
      `if`(i<1, 0, b(n, i-1)+`if`(i>n, 0, b(n-i, i))))
    end:
a:= n-> b(2*n, n-1):
seq(a(n), n=1..50);  # Alois P. Heinz, Jul 09 2012

f[n_] := Length[Select[IntegerPartitions[2 n], First[#] <= n - 1 &]];  Table[f[n], {n, 1, 34}]  (* A209815 *)
b[n_, i_] := b[n, i] = If[n==0, 1, If[i<1, 0, b[n, i-1] + If[i>n, 0, b[n-i, i]]]]; a[n_] := b[2*n, n-1]; Table [a[n], {n, 1, 50}] (* Jean-François Alcover, Oct 28 2015, after Alois P. Heinz *)

a(n) = A008284(3*n-1,n-1). - Hans Loeblich Apr 18 2019

More terms from Alois P. Heinz, Jul 09 2012

A321176 Number of integer partitions of n that are the vertex-degrees of some set system with no singletons.

Original entry on oeis.org

1, 0, 1, 1, 2, 3, 5, 7, 10, 15, 21, 28

Offset: 0

Gus Wiseman, Oct 29 2018

A set system is a finite set of finite nonempty sets.

			The a(2) = 1 through a(9) = 15 partitions:
  (11)  (111)  (211)   (221)    (222)     (322)      (2222)      (333)
               (1111)  (2111)   (2211)    (2221)     (3221)      (3222)
                       (11111)  (3111)    (3211)     (3311)      (3321)
                                (21111)   (22111)    (22211)     (4221)
                                (111111)  (31111)    (32111)     (22221)
                                          (211111)   (41111)     (32211)
                                          (1111111)  (221111)    (33111)
                                                     (311111)    (42111)
                                                     (2111111)   (222111)
                                                     (11111111)  (321111)
                                                                 (411111)
                                                                 (2211111)
                                                                 (3111111)
                                                                 (21111111)
                                                                 (111111111)
The a(8) = 10 integer partitions together with a realizing set system for each (the parts of the partition count the appearances of each vertex in the set system):
     (41111): {{1,2},{1,3},{1,4},{1,5}}
      (3311): {{1,2},{1,2,3},{1,2,4}}
      (3221): {{1,2},{1,3},{1,2,3,4}}
     (32111): {{1,2},{1,3},{1,2,4,5}}
    (311111): {{1,2},{1,3},{1,4,5,6}}
      (2222): {{1,2},{3,4},{1,2,3,4}}
     (22211): {{1,2,3},{1,2,3,4,5}}
    (221111): {{1,2},{1,2,3,4,5,6}}
   (2111111): {{1,2},{1,3,4,5,6,7}}
  (11111111): {{1,2,3,4,5,6,7,8}}

Cf. A000070, A000569, A147878, A209816, A283877, A306005, A318361, A320922, A320923, A320924, A321177.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
hyp[m_]:=Select[mps[m],And[And@@UnsameQ@@@#,UnsameQ@@#,Min@@Length/@#>1]&];
strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
Table[Length[Select[strnorm[n],hyp[#]!={}&]],{n,8}]

A344292 Numbers m whose sum of prime indices A056239(m) is even and is at most twice the number of prime factors counted with multiplicity A001222(m).

Original entry on oeis.org

1, 3, 4, 9, 10, 12, 16, 27, 28, 30, 36, 40, 48, 64, 81, 84, 88, 90, 100, 108, 112, 120, 144, 160, 192, 208, 243, 252, 256, 264, 270, 280, 300, 324, 336, 352, 360, 400, 432, 448, 480, 544, 576, 624, 640, 729, 756, 768, 784, 792, 810, 832, 840, 880, 900, 972

Offset: 1

Gus Wiseman, May 22 2021

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Also Heinz numbers of integer partitions of even numbers m with at least m/2 parts, counted by A000070 riffled with 0's, or A025065 with odd positions zeroed out.

			The sequence of terms together with their prime indices begins:
       1: {}                 84: {1,1,2,4}
       3: {2}                88: {1,1,1,5}
       4: {1,1}              90: {1,2,2,3}
       9: {2,2}             100: {1,1,3,3}
      10: {1,3}             108: {1,1,2,2,2}
      12: {1,1,2}           112: {1,1,1,1,4}
      16: {1,1,1,1}         120: {1,1,1,2,3}
      27: {2,2,2}           144: {1,1,1,1,2,2}
      28: {1,1,4}           160: {1,1,1,1,1,3}
      30: {1,2,3}           192: {1,1,1,1,1,1,2}
      36: {1,1,2,2}         208: {1,1,1,1,6}
      40: {1,1,1,3}         243: {2,2,2,2,2}
      48: {1,1,1,1,2}       252: {1,1,2,2,4}
      64: {1,1,1,1,1,1}     256: {1,1,1,1,1,1,1,1}
      81: {2,2,2,2}         264: {1,1,1,2,5}

These are the Heinz numbers of partitions counted by A000070 and A025065.
A subset of A300061 (sum of prime indices is even).
The conjugate opposite version is A320924, counted by A209816.
The conjugate opposite version allowing odds is A322109, counted by A110618.
The case of equality is A340387, counted by A000041.
The opposite version allowing odd weights is A344291, counted by A110618.
Allowing odd weights gives A344296, counted by A025065.
The opposite version is A344413, counted by A209816.
The conjugate version allowing odd weights is A344414, counted by A025065.
The case of equality in the conjugate case is A344415, counted by A035363.
The conjugate version is A344416, counted by A000070.
A001222 counts prime factors with multiplicity.
A027187 counts partitions of even length, ranked by A028260.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A301987 lists numbers whose sum of prime indices equals their product.
A330950 counts partitions of n with Heinz number divisible by n.
A334201 adds up all prime indices except the greatest.
Cf. A001414, A067538, A316413, A316428, A325037, A325038, A325044, A338914, A344294, A344297.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Total[primeMS[#]]]&&PrimeOmega[#]>=Total[primeMS[#]]/2&]

Members m of A300061 such that A056239(m) <= 2*A001222(m).

A304134 Number of partitions of 5n into exactly n parts.

Original entry on oeis.org

1, 1, 5, 19, 64, 192, 532, 1367, 3319, 7657, 16928, 36043, 74287, 148702, 290071, 552767, 1031391, 1887776, 3395084, 6007963, 10474462, 18010859, 30574655, 51284587, 85064661, 139620591, 226914505, 365371100, 583164222, 923075291, 1449643115, 2259616844

Offset: 0

Seiichi Manyama, May 07 2018

nonn

Also, the number of partitions of 4n in which every part is <=n.

			n | Partitions of 5n into exactly n parts
--+------------------------------------------------
1 | 5;
2 | 9+1, 8+2, 7+3, 6+4, 5+5;
3 | 13+1+1, 12+2+1, 11+3+1, 11+2+2, 10+4+1, 10+3+2,
  |  9+5+1,  9+4+2,  9+3+3,  8+6+1,  8+5+2,  8+4+3,
  |  7+7+1,  7+6+2,  7+5+3,  7+4+4,  6+6+3,  6+5+4,
  |  5+5+5;
====================================================================
n | Partitions of 4n in which every part is <=n.
--+-----------------------------------------------------------------
1 | 1+1+1+1;
2 | 2+2+2+2, 2+2+2+1+1, 2+2+1+1+1+1, 2+1+1+1+1+1+1, 1+1+1+1+1+1+1+1;
3 | 3+3+3+3, 3+3+3+2+1, 3+3+3+1+1+1, 3+3+2+2+2, 3+3+2+2+1+1,
  | 3+3+2+1+1+1+1, 3+3+1+1+1+1+1+1, 3+2+2+2+2+1, 3+2+2+2+1+1+1,
  | 3+2+2+1+1+1+1+1, 3+2+1+1+1+1+1+1+1, 3+1+1+1+1+1+1+1+1+1,
  | 2+2+2+2+2+2, 2+2+2+2+2+1+1, 2+2+2+2+1+1+1+1, 2+2+2+1+1+1+1+1+1,
  | 2+2+1+1+1+1+1+1+1+1, 2+1+1+1+1+1+1+1+1+1+1,
  | 1+1+1+1+1+1+1+1+1+1+1+1;

Alois P. Heinz, Table of n, a(n) for n = 0..3000 (first 501 terms from Seiichi Manyama)

Cf. A209816, A209818.

b:= proc(n, i) option remember; `if`(n=0 or i=1, 1,
      b(n, i-1) +b(n-i, min(i, n-i)))
    end:
a:= n-> b(4*n, n):
seq(a(n), n=0..35);  # Alois P. Heinz, May 07 2018

b[n_, i_] := b[n, i] = If[n==0 || i==1, 1, b[n, i-1] + b[n-i, Min[i, n-i]]];
a[n_] := b[4n, n];
a /@ Range[0, 35] (* Jean-François Alcover, Nov 27 2020, after Alois P. Heinz *)

{a(n) = polcoeff(prod(k=1, n, 1/(1-x^k+x*O(x^(4*n)))), 4*n)}

More terms from Alois P. Heinz, May 07 2018

A308684 Partition array T(n, k) for the coefficients of the n-th power sums of the second elementary symmetric function in terms of the elementary symmetric functions.

Original entry on oeis.org

1, 2, -2, 1, 3, -3, -3, 3, 3, -3, 1, 4, -4, -4, -4, 6, 4, 8, -8, -4, 4, -4, 4, 2, -4, 1, 5, -5, -5, -5, -5, 10, 5, 10, 10, -15, 5, -15, 5, 5, -5, -15, 10, 5, 10, -5, -5, -5, 5, 5, 5, -5, 5, 5, -5, 1

Offset: 1

Wolfdieter Lang, Jul 08 2019

The length of row n is A209816(n) (number of partitions of 2*n with at most n parts).
This is a generalization of the Girard-Waring array A115131.
In A324254 the general definition psigma(n, r) has been given for the r-th power sum of the n-th elementary symmetric function. There it is given in terms of the ordinary power sums {ps(j*r)}_{j=1..n}. Here psigma(2, n) = (1/2)*(-ps(2*n) + (ps(n))^2) is considered (see row n = 2 in A324254), and it is written in terms of elementary symmetric functions e_k(x1, x2, ...x_N), using the Girard-Waring formula for power sums ps. The number N >= 1 of indeterminates is suppressed in the notations.

			The irregular triangle (partition array) T(n, k)  begins:
n\k 1  2  3  4  5   6  7  8   9  10  11  12 13 14 15 ...
-------------------------------------------------------------------------------------------
1:  1
2:  2 -2  1
3:  3 -3 -3  3  3  -3  1
4:  4 -4 -4 -4  6   4  8 -8  -4   4  -4   4  2 -4  1
...
n = 5: [[5], [-5, -5, -5, -5, 10], [5, 10, 10, -15, 5, -15, 5, 5], [-5, -15, 10, 5, 10, -5, -5, -5, 5], [5, 5, -5, 5, 5, -5, 1]];
n = 6: [[6],[-6, -6, -6, -6, -6, 15], [6, 12, 12, 12, -24, 6, 12. -24, 6, -12, 12, 2], [-6, -18, -18, 18, 9, -18, 36, 0, 0, -18, 6, -18, 9, 0, 3], [6, 24, -12, -12, -18, 0, 0, 18, 12, 0, -12, -6, 6], [-6, 6, 6, 3,-6,-12, -2, 6, 9, -6, 1]];
n = 7: [[7], [-7, -7, -7, -7, -7, -7, 21] , [7, 14, 14, 14, 14, -35, 7, 14, 14, -35, 7, 7, -35, 14, 7, 7], [-7, -21, -21, -21, 28, 14, -21,-42, 56, 7, 28, 7, -21, -21, -7, 28, -21, 14, -21, 7, -7, -7, 14],  [7, 28, 28, -21, -21, 42, -63, -14, -7, -7, 35, 14, -21, 35, -14, 35, -14, -21, 7, -21, 14, -7, 7], [-7, -35, 14, 14, 7, 28, 7, 7, -21, -21,-21,-14, -7, 35, 7, 14, 7, -21, -7, 7], [7, -7, -7, -7, 7, 14, 7, 7, -7, -21, -7, 7, 14, -7, 1]]:
Brackets combine terms belonging to the same number of parts.
...
n = 3: psigma(2, 3) := Sum_{1<= i1 < i2 <= N} (x_{i1}*x_{i2})^3 = (1/2)*(-ps(2*3) + (ps(3))^2) = 3*e_6 - 3*e_1*e_5 - 3*e_2*e_4 + 3*(e_3)^2 + 3*(e_1)^2*e_4 - 3*e_1*e_2*e_3 + (e_2)^3. This becomes an identity if the e_j are written in terms of the indeterminates x_1, ..., x_N, for any N >= 1.

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].

Cf. A115121, A324254 (psigma(2, n) in terms of power sums).

psigma(2, n) = Sum_{k=1.. A209816(n)} T(n, k)*Product_{j=1..2*n} (e_j)^a(2*n,k,j), for n >= 1, if the k-th partition of 2*n (in Abramowitz-Stegun order) is Product_{j=1..2*n} j^a(2*n,k,j). Here the elemntary symmetric functions are e_j = e_j^{(N)} for N indeterminates x_1, ..., x_N, for any N >= 1.

A321184 Number of integer partitions of n that are the vertex-degrees of some multiset of nonempty sets, none of which is a proper subset of any other, with no singletons.

Original entry on oeis.org

1, 0, 1, 1, 3, 2, 7, 6, 15, 15, 30

Offset: 0

Gus Wiseman, Oct 29 2018

			The a(2) = 1 through a(8) = 15 partitions:
  (11)  (111)  (22)    (2111)   (33)      (2221)     (44)
               (211)   (11111)  (222)     (3211)     (332)
               (1111)           (321)     (22111)    (422)
                                (2211)    (31111)    (431)
                                (3111)    (211111)   (2222)
                                (21111)   (1111111)  (3221)
                                (111111)             (3311)
                                                     (4211)
                                                     (22211)
                                                     (32111)
                                                     (41111)
                                                     (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)
The a(6) = 7 integer partitions together with a realizing multi-antichain of each (the parts of the partition count the appearances of each vertex in the multi-antichain):
      (33): {{1,2},{1,2},{1,2}}
     (321): {{1,2},{1,2},{1,3}}
    (3111): {{1,2},{1,3},{1,4}}
     (222): {{1,2,3},{1,2,3}}
    (2211): {{1,2,3},{1,2,4}}
   (21111): {{1,2},{1,3,4,5}}
  (111111): {{1,2,3,4,5,6}}

Cf. A000070, A000569, A006126, A096827, A147878, A209816, A283877, A318360, A319719, A319721, A320799, A320921, A321176.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
multanti[m_]:=Select[mps[m],And[And@@UnsameQ@@@#,Min@@Length/@#>1,stableQ[#]]&];
strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
Table[Length[Select[strnorm[n],multanti[#]!={}&]],{n,8}]

cp's OEIS Frontend

A344416 Heinz numbers of integer partitions whose sum is even and is at most twice the greatest part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A320925 Heinz numbers of connected multigraphical partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A339842 Heinz numbers of non-graphical, multigraphical integer partitions of even numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A344413 Numbers n whose sum of prime indices A056239(n) is even and is at least twice the number of prime factors A001222(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A209815 Number of partitions of 2n in which every part is

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

Formula

Extensions

A321176 Number of integer partitions of n that are the vertex-degrees of some set system with no singletons.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A344292 Numbers m whose sum of prime indices A056239(m) is even and is at most twice the number of prime factors counted with multiplicity A001222(m).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A304134 Number of partitions of 5n into exactly n parts.

Views

Author

Keywords

Comments