A364537 -id:A364537 - cp's OEIS frontend

A381433 Heinz numbers of non section-sum partitions. Complement of A381431.

6, 12, 18, 21, 24, 30, 36, 42, 48, 54, 60, 63, 66, 70, 72, 78, 84, 90, 96, 102, 105, 108, 110, 114, 120, 126, 132, 138, 140, 144, 147, 150, 154, 156, 162, 165, 168, 174, 180, 186, 189, 192, 198, 204, 210, 216, 220, 222, 228, 231, 234, 238, 240, 246, 252, 258

Offset: 1

Gus Wiseman, Feb 27 2025

nonn

First differs from A364348, A364537, A350845 in not containing 65.
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
The section-sum partition (A381436) of a multiset or partition y is defined as follows: (1) determine and remember the sum of all distinct parts, (2) remove one instance of each distinct part, (3) repeat until no parts are left. The remembered values comprise the section-sum partition. For example, starting with (3,2,2,1,1) we get (6,3).
Equivalently, the k-th part of the section-sum partition is the sum of all (distinct) parts that appear at least k times. Compare to the definition of the conjugate of a partition, where we count parts >= k.
The conjugate of a section-sum partition is a Look-and-Say partition; see A048767, union A351294, count A239455.

			The terms together with their prime indices begin:
    6: {1,2}
   12: {1,1,2}
   18: {1,2,2}
   21: {2,4}
   24: {1,1,1,2}
   30: {1,2,3}
   36: {1,1,2,2}
   42: {1,2,4}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
   60: {1,1,2,3}
   63: {2,2,4}
   66: {1,2,5}
   70: {1,3,4}
   72: {1,1,1,2,2}
   78: {1,2,6}
   84: {1,1,2,4}
   90: {1,2,2,3}
   96: {1,1,1,1,1,2}
  102: {1,2,7}
  105: {2,3,4}
  108: {1,1,2,2,2}

Partitions of this type are counted by A351293, complement A239455.
The conjugate is A351295, union of A048767 (parts A381440, fixed A048768, A217605).
The complement is A381432, union of A381431 (conjugate A351294, parts A381436).
A000040 lists the primes, differences A001223.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A122111 represents conjugation in terms of Heinz numbers.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360, A318361.
Partition ideals: A300383, A317141, A381078, A381441, A381452, A381454.
Cf. A000720, A003557, A051903, A066328, A116861, A130091, A181819, A238745, A239964, A317081, A381437.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
egs[y_]:=If[y=={},{},Table[Total[Select[Union[y],Count[y,#]>=i&]],{i,Max@@Length/@Split[y]}]];
Select[Range[100],!MemberQ[Times@@Prime/@#&/@egs/@IntegerPartitions[Total[prix[#]]],#]&]

A364467 Number of integer partitions of n where some part is the difference of two consecutive parts.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 4, 5, 9, 13, 21, 28, 42, 55, 78, 106, 144, 187, 255, 325, 429, 554, 717, 906, 1165, 1460, 1853, 2308, 2899, 3582, 4468, 5489, 6779, 8291, 10173, 12363, 15079, 18247, 22124, 26645, 32147, 38555, 46285, 55310, 66093, 78684, 93674, 111104

Offset: 0

Gus Wiseman, Jul 31 2023

nonn

In other words, the parts are not disjoint from their own first differences.

			The a(3) = 1 through a(9) = 13 partitions:
  (21)  (211)  (221)   (42)     (421)     (422)      (63)
               (2111)  (321)    (2221)    (431)      (621)
                       (2211)   (3211)    (521)      (3321)
                       (21111)  (22111)   (3221)     (4221)
                                (211111)  (4211)     (4311)
                                          (22211)    (5211)
                                          (32111)    (22221)
                                          (221111)   (32211)
                                          (2111111)  (42111)
                                                     (222111)
                                                     (321111)
                                                     (2211111)
                                                     (21111111)

For all differences of pairs parts we have A363225, complement A364345.
The complement is counted by A363260.
For subsets of {1..n} we have A364466, complement A364463.
The strict case is A364536, complement A364464.
These partitions have ranks A364537.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A050291 counts double-free subsets, complement A088808.
A323092 counts double-free partitions, ranks A320340.
A325325 counts partitions with distinct first differences.
Cf. A002865, A025065, A093971, A108917, A196723, A229816, A236912, A237113, A237667, A320347, A326083.

Table[Length[Select[IntegerPartitions[n],Intersection[#,-Differences[#]]!={}&]],{n,0,30}]

from collections import Counter
from sympy.utilities.iterables import partitions
def A364467(n): return sum(1 for s,p in map(lambda x: (x[0],tuple(sorted(Counter(x[1]).elements()))), partitions(n,size=True)) if not set(p).isdisjoint({p[i+1]-p[i] for i in range(s-1)})) # Chai Wah Wu, Sep 26 2023

A364536 Number of strict integer partitions of n where some part is a difference of two consecutive parts.

Original entry on oeis.org

0, 0, 0, 1, 0, 0, 2, 1, 2, 2, 5, 4, 6, 6, 9, 11, 16, 17, 23, 25, 30, 38, 48, 55, 65, 78, 92, 106, 127, 146, 176, 205, 230, 277, 315, 366, 421, 483, 552, 640, 727, 829, 950, 1083, 1218, 1408, 1577, 1794, 2017, 2298, 2561, 2919, 3255, 3685, 4116, 4638, 5163

Offset: 0

Gus Wiseman, Jul 31 2023

nonn

In other words, strict partitions with parts not disjoint from first differences.

			The a(3) = 1 through a(15) = 11 partitions (A = 10, B = 11, C = 12):
  21  .  .  42   421  431  63   532   542   84    742   743   A5
            321       521  621  541   632   642   841   752   843
                                631   821   651   A21   761   942
                                721   5321  921   5431  842   C21
                                4321        5421  6421  B21   6432
                                            6321  7321  6431  6531
                                                        6521  7431
                                                        7421  7521
                                                        8321  8421
                                                              9321
                                                              54321

For all differences of pairs we have A363226, non-strict A363225.
For all non-differences of pairs we have A364346, strict A364345.
The strict complement is counted by A364464, non-strict A363260.
For subsets of {1..n} we have A364466, complement A364463.
The non-strict case is A364467, ranks A364537.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A323092 counts double-free partitions, strict A120641.
A325325 counts partitions with distinct first-differences, strict A320347.
Cf. A002865, A025065, A093971, A108917, A229816, A236912, A237113, A237667, A326083, A364347.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Intersection[#,-Differences[#]]!={}&]],{n,0,30}]

from collections import Counter
from sympy.utilities.iterables import partitions
def A364536(n): return sum(1 for s,p in map(lambda x: (x[0],tuple(sorted(Counter(x[1]).elements()))), filter(lambda p:max(p[1].values(),default=1)==1,partitions(n,size=True))) if not set(p).isdisjoint({p[i+1]-p[i] for i in range(s-1)})) # Chai Wah Wu, Sep 26 2023

A364673 Number of (necessarily strict) integer partitions of n containing all of their own first differences.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 3, 2, 1, 2, 2, 2, 5, 2, 2, 4, 2, 3, 6, 4, 4, 8, 4, 4, 10, 8, 7, 8, 13, 9, 15, 12, 13, 17, 20, 15, 31, 24, 27, 32, 33, 32, 50, 42, 45, 53, 61, 61, 85, 76, 86, 101, 108, 118, 137, 141, 147, 179, 184, 196, 222, 244, 257, 295, 324, 348, 380, 433

Offset: 0

Gus Wiseman, Aug 03 2023

nonn

			The partition y = (12,6,3,2,1) has differences (6,3,1,1), and {1,3,6} is a subset of {1,2,3,6,12}, so y is counted under a(24).
The a(n) partitions for n = 1, 3, 6, 12, 15, 18, 21:
  (1)  (3)    (6)      (12)       (15)         (18)         (21)
       (2,1)  (4,2)    (8,4)      (10,5)       (12,6)       (14,7)
              (3,2,1)  (6,4,2)    (8,4,2,1)    (9,6,3)      (12,6,3)
                       (5,4,2,1)  (5,4,3,2,1)  (6,5,4,2,1)  (8,6,4,2,1)
                       (6,3,2,1)               (7,5,3,2,1)  (9,5,4,2,1)
                                               (8,4,3,2,1)  (9,6,3,2,1)
                                                            (10,5,3,2,1)
                                                            (6,5,4,3,2,1)

John Tyler Rascoe, Table of n, a(n) for n = 0..200

Containing all differences: A007862.
Containing no differences: A364464, strict complement A364536.
Containing at least one difference: A364467, complement A363260.
For subsets of {1..n} we have A364671, complement A364672.
A non-strict version is A364674.
For submultisets instead of subsets we have A364675.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A236912 counts sum-free partitions w/o re-used parts, complement A237113.
A325325 counts partitions with distinct first differences.
Cf. A002865, A025065, A196723, A229816, A237667, A320347, A363225, A364272, A364345, A364463, A364537, A370386.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&SubsetQ[#,-Differences[#]]&]],{n,0,30}]

from collections import Counter
def A364673_list(maxn):
    count = Counter()
    for i in range(maxn//3):
        A,f,i = [[(i+1, )]],0,0
        while f == 0:
            A.append([])
            for j in A[i]:
                for k in j:
                    x = j + (j[-1] + k, )
                    y = sum(x)
                    if y <= maxn:
                        A[i+1].append(x)
                        count.update({y})
            if len(A[i+1]) < 1: f += 1
            i += 1
    return [count[z]+1 for z in range(maxn+1)] # John Tyler Rascoe, Mar 09 2024

A364671 Number of subsets of {1..n} containing all of their own first differences.

Original entry on oeis.org

1, 2, 4, 6, 10, 14, 23, 34, 58, 96, 171, 302, 565, 1041, 1969, 3719, 7105, 13544, 25999, 49852, 95949, 184658, 356129, 687068, 1327540, 2566295, 4966449, 9617306, 18640098, 36150918, 70166056, 136272548, 264844111, 515036040, 1002211421, 1951345157, 3801569113

Offset: 0

Gus Wiseman, Aug 04 2023

nonn

			The subset {1,2,4,5,10,14} has differences (1,2,1,5,4) so is counted under a(14).
The a(0) = 1 through a(5) = 14 subsets:
  {}  {}   {}     {}       {}         {}
      {1}  {1}    {1}      {1}        {1}
           {2}    {2}      {2}        {2}
           {1,2}  {3}      {3}        {3}
                  {1,2}    {4}        {4}
                  {1,2,3}  {1,2}      {5}
                           {2,4}      {1,2}
                           {1,2,3}    {2,4}
                           {1,2,4}    {1,2,3}
                           {1,2,3,4}  {1,2,4}
                                      {1,2,3,4}
                                      {1,2,3,5}
                                      {1,2,4,5}
                                      {1,2,3,4,5}

Rémy Sigrist, C++ program

For differences of all strict pairs we have A054519, for partitions A007862.
For "disjoint" instead of "subset" we have A364463, partitions A363260.
For "non-disjoint" we have A364466, partitions A364467 (strict A364536).
The complement is counted by A364672, partitions A364673, A364674, A364675.
First differences of terms are A364752, complement A364753.
Cf. A151897, A196723, A237667, A237668, A325325, A326083, A363225, A364345, A364464, A364537.

Table[Length[Select[Subsets[Range[n]], SubsetQ[#,Differences[#]]&]], {n,0,10}]

More terms from Rémy Sigrist, Aug 06 2023

A364672 Number of subsets of {1..n} not containing all of their own first differences.

Original entry on oeis.org

0, 0, 0, 2, 6, 18, 41, 94, 198, 416, 853, 1746, 3531, 7151, 14415, 29049, 58431, 117528, 236145, 474436, 952627, 1912494, 3838175, 7701540, 15449676, 30988137, 62142415, 124600422, 249795358, 500719994, 1003575768, 2011211100, 4030123185, 8074898552, 16177657763, 32408393211, 64917907623

Offset: 0

Gus Wiseman, Aug 05 2023

nonn

			The a(0) = 0 through a(5) = 18 subsets:
  .  .  .  {1,3}  {1,3}    {1,3}
           {2,3}  {1,4}    {1,4}
                  {2,3}    {1,5}
                  {3,4}    {2,3}
                  {1,3,4}  {2,5}
                  {2,3,4}  {3,4}
                           {3,5}
                           {4,5}
                           {1,2,5}
                           {1,3,4}
                           {1,3,5}
                           {1,4,5}
                           {2,3,4}
                           {2,3,5}
                           {2,4,5}
                           {3,4,5}
                           {1,3,4,5}
                           {2,3,4,5}

For disjunction instead of containment we have A364463, partitions A363260.
For overlap we have A364466, partitions A364467 (strict A364536).
The complement is counted by A364671, partitions A364673, A364674, A364675.
First differences of terms are A364753, complement A364752.
Cf. A007862, A054519, A151897, A237667, A325325, A326083, A363225, A364345, A364464, A364537.

Table[Length[Select[Subsets[Range[n]],!SubsetQ[#,Differences[#]]&]],{n,0,10}]

a(n) = 2^n - A364671(n). - Andrew Howroyd, Jan 27 2024

a(21) onwards (using A364671) added by Andrew Howroyd, Jan 27 2024

A364675 Number of integer partitions of n whose nonzero first differences are a submultiset of the parts.

Original entry on oeis.org

1, 1, 2, 3, 4, 4, 7, 7, 10, 12, 15, 15, 26, 25, 35, 45, 55, 60, 86, 94, 126, 150, 186, 216, 288, 328, 407, 493, 610, 699, 896, 1030, 1269, 1500, 1816, 2130, 2620, 3029, 3654, 4300, 5165, 5984, 7222, 8368, 9976, 11637, 13771, 15960, 18978, 21896, 25815, 29915

Offset: 0

Gus Wiseman, Aug 04 2023

nonn

Conjecture: For subsets of {1..n} instead of partitions of n we have A101925.

Conjecture: The strict version is A154402.

			The partition y = (3,2,1,1) has first differences (1,1,0), and (1,1) is a submultiset of y, so y is counted under a(7).
The a(1) = 1 through a(8) = 10 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (221)    (33)      (421)      (44)
             (111)  (211)   (2111)   (42)      (2221)     (422)
                    (1111)  (11111)  (222)     (3211)     (2222)
                                     (2211)    (22111)    (4211)
                                     (21111)   (211111)   (22211)
                                     (111111)  (1111111)  (32111)
                                                          (221111)
                                                          (2111111)
                                                          (11111111)

For subsets of {1..n} we appear to have A101925, A364671, A364672.
The strict case (no differences of 0) appears to be A154402.
Starting with the distinct parts gives A342337.
For disjoint multisets: A363260, subsets A364463, strict A364464.
For overlapping multisets: A364467, ranks A364537, strict A364536.
For subsets instead of submultisets we have A364673.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A236912 counts sum-free partitions, complement A237113.
A325325 counts partitions with distinct first differences.
Cf. A002865, A007862, A108917, A229816, A237667, A237668, A320347, A363225, A364272, A364345, A364466.

submultQ[cap_,fat_] := And@@Function[i,Count[fat,i] >= Count[cap,i]] /@ Union[List@@cap];
Table[Length[Select[IntegerPartitions[n], submultQ[Differences[Union[#]],#]&]], {n,0,30}]

A364674 Number of integer partitions of n containing all of their own nonzero first differences.

Original entry on oeis.org

1, 1, 2, 3, 4, 4, 8, 7, 11, 13, 17, 18, 32, 30, 44, 54, 70, 78, 114, 125, 171, 205, 257, 302, 408, 464, 592, 711, 892, 1042, 1330, 1543, 1925, 2279, 2787, 3291, 4061, 4727, 5753, 6792, 8197, 9583, 11593, 13505, 16198, 18965, 22548, 26290, 31340, 36363, 43046

Offset: 0

Gus Wiseman, Aug 04 2023

nonn

			The partition (10,5,3,3,2,1) has nonzero differences (5,2,1,1) so is counted under a(24).
The a(1) = 1 through a(9) = 13 partitions:
  (1) (2)  (3)   (4)    (5)     (6)      (7)       (8)        (9)
      (11) (21)  (22)   (221)   (33)     (421)     (44)       (63)
           (111) (211)  (2111)  (42)     (2221)    (422)      (333)
                 (1111) (11111) (222)    (3211)    (2222)     (3321)
                                (321)    (22111)   (3221)     (4221)
                                (2211)   (211111)  (4211)     (22221)
                                (21111)  (1111111) (22211)    (32211)
                                (111111)           (32111)    (42111)
                                                   (221111)   (222111)
                                                   (2111111)  (321111)
                                                   (11111111) (2211111)
                                                              (21111111)
                                                              (111111111)

For no differences we have A363260, subsets A364463, strict A364464.
For at least one difference we have A364467, ranks A364537, strict A364536.
For subsets instead of partitions we have A364671, complement A364672.
The strict case (no differences of 0) is counted by A364673.
For submultisets instead of subsets we have A364675.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A236912 counts sum-free partitions w/o re-used parts, complement A237113.
A325325 counts partitions with distinct first differences.
Cf. A002865, A007862, A025065, A229816, A237667, A320347, A326083, A363225, A364272, A364466.

Table[Length[Select[IntegerPartitions[n], SubsetQ[#,Differences[Union[#]]]&]],{n,0,30}]

A364752 Number of subsets of {1..n} containing n and all first differences.

Original entry on oeis.org

1, 1, 2, 2, 4, 4, 9, 11, 24, 38, 75, 131, 263, 476, 928, 1750, 3386, 6439, 12455, 23853, 46097, 88709, 171471, 330939, 640472, 1238755, 2400154, 4650857, 9022792, 17510820, 34015138, 66106492, 128571563, 250191929, 487175381, 949133736, 1850223956, 3608650389

Offset: 0

Gus Wiseman, Aug 06 2023

nonn

			The a(1) = 1 through a(6) = 9 subsets:
  {1}  {2}    {3}      {4}        {5}          {6}
       {1,2}  {1,2,3}  {2,4}      {1,2,3,5}    {3,6}
                       {1,2,4}    {1,2,4,5}    {2,4,6}
                       {1,2,3,4}  {1,2,3,4,5}  {1,2,3,6}
                                               {1,2,4,6}
                                               {1,2,3,4,6}
                                               {1,2,3,5,6}
                                               {1,2,4,5,6}
                                               {1,2,3,4,5,6}

Rémy Sigrist, C++ program

Partial sums are A364671, complement A364672.
The complement is counted by A364753.
A054519 counts subsets containing differences, A326083 containing sums.
A364463 counts subsets disjoint from differences, complement A364466.
A364673 counts partitions containing differences, A364674, A364675.
Cf. A151897, A196723, A237668, A325325, A363225, A364345, A364464, A364537.

Table[If[n==0,1,Length[Select[Subsets[Range[n]], MemberQ[#,n]&&SubsetQ[#,Differences[#]]&]]],{n,0,10}]

More terms from Rémy Sigrist, Aug 06 2023

A364753 Number of subsets of {1..n} containing n but not containing all first differences.

Original entry on oeis.org

0, 0, 0, 2, 4, 12, 23, 53, 104, 218, 437, 893, 1785, 3620, 7264, 14634, 29382, 59097, 118617, 238291, 478191, 959867, 1925681, 3863365, 7748136, 15538461, 31154278, 62458007, 125194936, 250924636, 502855774, 1007635332, 2018912085, 4044775367, 8102759211, 16230735448, 32509514412, 65110826347

Offset: 0

Gus Wiseman, Aug 06 2023

nonn

In other words, subsets containing both n and some element that is not the difference of two consecutive elements.

			The a(1) = 0 through a(6) = 23 subsets:
  .  .  {1,3}  {1,4}    {1,5}      {1,6}
        {2,3}  {3,4}    {2,5}      {2,6}
               {1,3,4}  {3,5}      {4,6}
               {2,3,4}  {4,5}      {5,6}
                        {1,2,5}    {1,2,6}
                        {1,3,5}    {1,3,6}
                        {1,4,5}    {1,4,6}
                        {2,3,5}    {1,5,6}
                        {2,4,5}    {2,3,6}
                        {3,4,5}    {2,5,6}
                        {1,3,4,5}  {3,4,6}
                        {2,3,4,5}  {3,5,6}
                                   {4,5,6}
                                   {1,2,5,6}
                                   {1,3,4,6}
                                   {1,3,5,6}
                                   {1,4,5,6}
                                   {2,3,4,6}
                                   {2,3,5,6}
                                   {2,4,5,6}
                                   {3,4,5,6}
                                   {1,3,4,5,6}
                                   {2,3,4,5,6}

Partial sums are A364672, complement A364671.
The complement is counted by A364752.
A054519 counts subsets containing differences, A326083 containing sums.
A364463 counts subsets disjoint from differences, complement A364466.
A364673, A364674, A364675 count partitions containing differences.
Cf. A151897, A196723, A237668, A325325, A364345, A364464, A364537.

Table[Length[Select[Subsets[Range[n]],MemberQ[#,n]&&!SubsetQ[#,Differences[#]]&]],{n,0,10}]

More terms from Giorgos Kalogeropoulos, Aug 07 2023

cp's OEIS Frontend

A381433 Heinz numbers of non section-sum partitions. Complement of A381431.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A364467 Number of integer partitions of n where some part is the difference of two consecutive parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

A364536 Number of strict integer partitions of n where some part is a difference of two consecutive parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

A364673 Number of (necessarily strict) integer partitions of n containing all of their own first differences.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Python

A364671 Number of subsets of {1..n} containing all of their own first differences.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A364672 Number of subsets of {1..n} not containing all of their own first differences.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A364675 Number of integer partitions of n whose nonzero first differences are a submultiset of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A364674 Number of integer partitions of n containing all of their own nonzero first differences.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A364752 Number of subsets of {1..n} containing n and all first differences.

Views

Author