A279790 -id:A279790 - cp's OEIS frontend

A358832 Number of twice-partitions of n into partitions of distinct lengths and distinct sums.

1, 1, 2, 4, 7, 15, 25, 49, 79, 154, 248, 453, 748, 1305, 2125, 3702, 5931, 9990, 16415, 26844, 43246, 70947, 113653, 182314, 292897, 464614, 739640, 1169981, 1844511, 2888427, 4562850, 7079798, 11064182, 17158151, 26676385, 41075556, 63598025, 97420873, 150043132

Offset: 0

Gus Wiseman, Dec 04 2022

nonn

A twice-partition of n is a sequence of integer partitions, one of each part of an integer partition of n.

			The a(1) = 1 through a(5) = 15 twice-partitions:
  (1)  (2)   (3)      (4)       (5)
       (11)  (21)     (22)      (32)
             (111)    (31)      (41)
             (11)(1)  (211)     (221)
                      (1111)    (311)
                      (21)(1)   (2111)
                      (111)(1)  (11111)
                                (21)(2)
                                (22)(1)
                                (3)(11)
                                (31)(1)
                                (111)(2)
                                (211)(1)
                                (111)(11)
                                (1111)(1)

This is the case of A271619 with distinct lengths.
These multiset partitions are ranked by A326535 /\ A326533.
This is the case of A358830 with distinct sums.
For constant instead of distinct lengths and sums we have A358833.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A273873 counts strict trees.
Cf. A000009, A000219, A001970, A141199, A279375, A279785, A279790, A306319, A358334, A358836.

twiptn[n_]:=Join@@Table[Tuples[IntegerPartitions/@ptn],{ptn,IntegerPartitions[n]}];
Table[Length[Select[twiptn[n],UnsameQ@@Total/@#&&UnsameQ@@Length/@#&]],{n,0,10}]

seq(n)={ local(Cache=Map());
  my(g=Vec(-1+1/prod(k=1, n, 1 - y*x^k + O(x*x^n))));
  my(F(m,r,b) = my(key=[m,r,b], z); if(!mapisdefined(Cache,key,&z),
  z = if(r<=0||m==0, r==0, self()(m-1, r, b) + sum(k=1, m, my(c=polcoef(g[m],k)); if(!bittest(b,k)&&c, c*self()(min(m-1,r-m), r-m, bitor(b, 1<Andrew Howroyd, Dec 31 2022

Terms a(21) and beyond from Andrew Howroyd, Dec 31 2022

A384010 Heinz numbers of integer partitions such that it is possible to choose a family of disjoint strict partitions, one of each conjugate part.

Original entry on oeis.org

1, 2, 4, 6, 8, 12, 16, 18, 24, 27, 30, 32, 36, 48, 54, 60, 64, 72, 81, 90, 96, 108, 120, 128, 144, 150, 162, 180, 192

Offset: 1

Gus Wiseman, May 23 2025

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 prime indices of 96 are {1,1,1,1,1,2}, conjugate (6,1), disjoint family (4,2,1), so 96 is in the sequence.
The terms together with their prime indices begin:
    1: {}
    2: {1}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   24: {1,1,1,2}
   27: {2,2,2}
   30: {1,2,3}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
   60: {1,1,2,3}
   64: {1,1,1,1,1,1}

For multiplicities instead of indices we have A382525.
These partitions are counted by A383708, without ones A383533, complement A383711.
These are the positions of positive terms in A384005.
The complement is A384011, conjugate A383710.
A000041 counts integer partitions, strict A000009.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represent conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.
Cf. A098859, A130091, A279375, A279790, A299200, A357982, A382912, A383706, A383707.

pof[y_]:=Select[Join@@@Tuples[IntegerPartitions/@y],UnsameQ@@#&];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],pof[conj[prix[#]]]!={}&]

A384350 Number of subsets of {1..n} containing at least one element that is a sum of distinct non-elements.

Original entry on oeis.org

0, 0, 0, 1, 4, 13, 33, 81, 183, 402, 856, 1801, 3721, 7646, 15567, 31575

Offset: 0

Gus Wiseman, Jun 05 2025

Conjecture: Also the number of subsets of {1..n} such that it is possible in more than one way to choose a disjoint family of strict integer partitions, one of each element.

			For the set s = {1,5} we have 5 = 2+3, so s is counted under a(5).
The a(0) = 0 through a(5) = 13 subsets:
  .  .  .  {3}  {3}    {3}
                {4}    {4}
                {2,4}  {5}
                {3,4}  {1,5}
                       {2,4}
                       {2,5}
                       {3,4}
                       {3,5}
                       {4,5}
                       {1,4,5}
                       {2,3,5}
                       {2,4,5}
                       {3,4,5}

The complement is counted by A326080, allowing repeats A326083.
For strict partitions of n instead of subsets of {1..n} we have A384318, ranks A384322.
First differences are A384391.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A179009 counts maximally refined strict partitions, ranks A383707.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.
A383706 counts ways to choose disjoint strict partitions of prime indices, non-disjoint A357982, non-strict A299200.
Cf. A279375, A279790, A317141, A317142, A383708, A383710, A384317, A384319, A384320, A384321.

nonsets[y_]:=If[Length[y]==0,{},Rest[Subsets[Complement[Range[Max@@y],y]]]];
Table[Length[Select[Subsets[Range[n]],Intersection[#,Total/@nonsets[#]]!={}&]],{n,0,10}]

A301750 Number of rooted twice-partitions of n where the composite rooted partition is strict.

Original entry on oeis.org

1, 1, 2, 3, 5, 8, 12, 18, 29, 42, 61, 86, 127, 181, 257, 352, 489, 668, 935, 1270, 1730, 2312, 3101, 4112, 5533, 7345, 9742, 12785, 16793, 21821, 28452, 36908, 48108, 62198, 80337, 103081, 132372, 168805, 215247, 273678

Offset: 1

Gus Wiseman, Mar 26 2018

nonn

A rooted partition of n is an integer partition of n - 1. A rooted twice-partition of n is a choice of a rooted partition of each part in a rooted partition of n.

			The a(8) = 18 rooted twice-partitions where the composite rooted partition is strict:
(6), (51), (42), (321),
(5)(), (41)(), (32)(), (4)(1), (3)(2),
(4)()(), (31)()(), (3)(1)(),
(3)()()(), (21)()()(), (2)(1)()(),
(2)()()()(),
(1)()()()()(),
()()()()()()().

Cf. A002865, A063834, A093637, A127524, A279790, A294788, A301422, A301462, A301467, A301480, A301706.

twirtns[n_]:=Join@@Table[Tuples[IntegerPartitions[#-1]&/@ptn],{ptn,IntegerPartitions[n-1]}];
Table[Select[twirtns[n],UnsameQ@@Join@@#&]//Length,{n,30}]

A384011 Numbers k such that it is not possible to choose disjoint strict integer partitions of each conjugate prime index of k.

Original entry on oeis.org

3, 5, 7, 9, 10, 11, 13, 14, 15, 17, 19, 20, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 80, 82, 83, 84, 85

Offset: 1

Gus Wiseman, May 23 2025

nonn

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

			The terms together with their prime indices begin:
    3: {2}
    5: {3}
    7: {4}
    9: {2,2}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   15: {2,3}
   17: {7}
   19: {8}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   23: {9}
   25: {3,3}
   26: {1,6}
   28: {1,1,4}

The conjugate is A382912.
These complement is counted by A383708, ranks A382913 or A384010.
These partitions are counted by A383710, conjugate A383711.
These are the positions of 0 in A384005, conjugate A383706.
A000041 counts integer partitions, strict A000009.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represent conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.
Cf. A098859, A130091, A279375, A279790, A357982, A382525, A383533, A383707.

pof[y_]:=Select[Join@@@Tuples[IntegerPartitions/@y],UnsameQ@@#&];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],pof[conj[prix[#]]]=={}&]

A384348 Number of integer partitions of n with no proper way to choose disjoint strict partitions of each part.

Original entry on oeis.org

1, 1, 2, 2, 4, 6, 7, 11, 17, 25, 30, 44, 61, 82, 113, 141, 193, 249, 327, 422, 548, 682, 881, 1106, 1400, 1751

Offset: 0

Gus Wiseman, May 30 2025

nonn

By "proper" we exclude the case of all singletons, which is disjoint when n is squarefree.

			For the partition y = (5,4,2,1) we have the following proper ways to choose strict partitions of each part:
  ((5),(3,1),(2),(1))
  ((4,1),(4,2),(1))
  ((4,1),(3,1),(2),(1))
  ((3,2),(4),(2),(1))
  ((3,2),(3,1),(2),(1))
But none of this is disjoint, so y is counted under a(12).
The a(1) = 1 through a(8) = 17 partitions:
  (1)  (2)   (21)   (22)    (32)     (222)     (322)      (332)
       (11)  (111)  (31)    (41)     (321)     (331)      (422)
                    (211)   (221)    (411)     (421)      (431)
                    (1111)  (311)    (2211)    (511)      (521)
                            (2111)   (3111)    (2221)     (611)
                            (11111)  (21111)   (3211)     (2222)
                                     (111111)  (4111)     (3221)
                                               (22111)    (3311)
                                               (31111)    (4211)
                                               (211111)   (5111)
                                               (1111111)  (22211)
                                                          (32111)
                                                          (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)

The strict case is A179009, ranked by A383707.
This is the proper version of A383710, odd case A383711.
This is the proper complement of A383708, odd case A383533.
The complement is counted by A384317, ranks A384321.
The strict version for at least one proper choice is A384318, ranked by A384322.
For just one proper choice we have A384319, ranked by A384390.
For two choices we have A384323, ranks A384347 = positions of 2 in A383706.
These partitions are ranked by A384349.
For more than one proper choice we have A384395, ranked by A384393.
A000041 counts integer partitions, strict A000009.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A239455 counts Look-and-Say partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say partitions, ranks A351295 or A381433.
Cf. A098859, A279790, A299200, A317142, A357982, A381454, A382525, A382912, A382913, A384005.

pofprop[y_]:=Select[DeleteCases[Join@@@Tuples[IntegerPartitions/@y],y],UnsameQ@@#&];
Table[Length[Select[IntegerPartitions[n],Length[pofprop[#]]==0&]],{n,0,15}]

A384391 Number of subsets of {1..n} containing n and some element that is a sum of distinct non-elements.

Original entry on oeis.org

0, 0, 1, 3, 9, 20, 48, 102, 219, 454, 945, 1920, 3925, 7921, 16008

Offset: 0

Gus Wiseman, Jun 06 2025

			The a(0) = 0 through a(6) = 20 subsets:
  .  .  .  {3}  {4}    {5}      {6}
                {2,4}  {1,5}    {1,6}
                {3,4}  {2,5}    {2,6}
                       {3,5}    {3,6}
                       {4,5}    {4,6}
                       {1,4,5}  {5,6}
                       {2,3,5}  {1,3,6}
                       {2,4,5}  {1,5,6}
                       {3,4,5}  {2,3,6}
                                {2,4,6}
                                {2,5,6}
                                {3,4,6}
                                {3,5,6}
                                {4,5,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}

The complement with n is counted by A179822, first differences of A326080.
Partial sums are A384350.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A179009 counts maximally refined strict partitions, ranks A383707.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.
A383706 counts ways to choose disjoint strict partitions of prime indices, non-disjoint A357982, non-strict A299200.
Cf. A279375, A279790, A317141, A317142, A326083, A383708, A383710, A384317, A384318, A384319, A384320, A384321.

nonsets[y_]:=If[Length[y]==0,{},Rest[Subsets[Complement[Range[Max@@y],y]]]];
Table[Length[Select[Subsets[Range[n]],MemberQ[#,n]&&Intersection[#,Total/@nonsets[#]]!={}&]],{n,0,10}]

A384392 Number of integer partitions of n whose distinct parts are maximally refined.

Original entry on oeis.org

1, 1, 2, 2, 4, 6, 7, 10, 14, 20, 24, 33, 41, 55, 70, 88, 110, 140, 171, 214, 265, 324, 397, 485, 588, 711, 861, 1032, 1241, 1486, 1773

Offset: 0

Gus Wiseman, Jun 07 2025

Given any partition, the following are equivalent:
1) The distinct parts are maximally refined.
2) Every strict partition of a part contains a part. In other words, if y is the set of parts and z is any strict partition of any element of y, then z must contain at least one element from y.
3) No part is a sum of distinct non-parts.

			The a(1) = 1 through a(8) = 14 partitions:
  (1)  (2)   (21)   (22)    (32)     (222)     (322)      (332)
       (11)  (111)  (31)    (41)     (321)     (331)      (431)
                    (211)   (221)    (411)     (421)      (521)
                    (1111)  (311)    (2211)    (2221)     (2222)
                            (2111)   (3111)    (3211)     (3221)
                            (11111)  (21111)   (4111)     (3311)
                                     (111111)  (22111)    (4211)
                                               (31111)    (22211)
                                               (211111)   (32111)
                                               (1111111)  (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)

The strict case is A179009, ranks A383707.
For subsets instead of partitions we have A326080, complement A384350.
These partitions are ranked by A384320, complement A384321.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.
Cf. A179822, A279375, A279790, A299200, A317142, A326083, A357982, A383706, A383708, A383710, A384317, A384318, A384319, A384391.

nonsets[y_]:=If[Length[y]==0,{},Rest[Subsets[Complement[Range[Max@@y],y]]]];
Table[Length[Select[IntegerPartitions[n],Intersection[#,Total/@nonsets[#]]=={}&]],{n,0,15}]

A291686 Numbers whose prime indices other than 1 are distinct prime numbers.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 10, 11, 12, 15, 16, 17, 20, 22, 24, 30, 31, 32, 33, 34, 40, 41, 44, 48, 51, 55, 59, 60, 62, 64, 66, 67, 68, 80, 82, 83, 85, 88, 93, 96, 102, 109, 110, 118, 120, 123, 124, 127, 128, 132, 134, 136, 155, 157, 160, 164, 165, 166, 170, 176, 177

Offset: 1

Gus Wiseman, Apr 09 2018

nonn

A prime index of n is a number m such that prime(m) divides n.

			9 is not in the sequence because the prime indices of 9 = prime(2)*prime(2) are {2,2} which are prime numbers but not distinct.
15 is in the sequence because the prime indices of 15 = prime(2)*prime(3) are {2,3} which are distinct prime numbers.
21 is not in the sequence because the prime indices of 21 = prime(2)*prime(4) are {2,4} which are distinct but not all prime numbers.
24 is in the sequence because the prime indices of 24 = prime(1)*prime(1)*prime(1)*prime(2) are {1,1,1,2} which without the 1s are distinct prime numbers.

Andrew Howroyd, Table of n, a(n) for n = 1..1000

Cf. A000009, A000961, A001222, A003963, A005117, A006450, A007716, A056239, A076610, A275024, A279790, A281113, A294788, A294788, A301750, A302242, A302243.

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Or[#===1,UnsameQ@@DeleteCases[primeMS[#],1]&&And@@(PrimeQ/@DeleteCases[primeMS[#],1])]&]

ok(n)={my(t=n>>valuation(n,2)); issquarefree(t) && !#select(p->!isprime(primepi(p)), factor(t)[,1])} \\ Andrew Howroyd, Aug 26 2018

Sum_{n>=1} 1/a(n) = 2 * Product_{p in A006450} (1 + 1/p) converges since the sum of the reciprocals of A006450 converges. - Amiram Eldar, Feb 02 2021

A384394 Number of proper ways to choose disjoint strict integer partitions, one of each conjugate prime index of n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Jun 03 2025

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.

By "proper" we exclude the case of all singletons.

			The prime indices of 216 are {1,1,1,2,2,2}, with conjugate partition (6,3), with proper choices ((6),(2,1)), ((5,1),(3)), and ((4,2),(3)), so a(216) = 3.

Conjugate prime indices are the rows of A122111.
The non-proper version is A384005, conjugate A383706.
This is the conjugate version of A384389 (firsts A384396).
A000041 counts integer partitions, strict A000009.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.
See also A382912, counted by A383710, odd case A383711.
See also A382913, counted by A383708, odd case A383533.
Cf. A279790, A357982, A381454, A382525, A384321, A384322, A384347, A384349, A384390, A384393.

prix[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]}]];
pofprop[y_]:=Select[DeleteCases[Join@@@Tuples[IntegerPartitions/@y],y],UnsameQ@@#&];
Table[Length[pofprop[conj[prix[n]]]],{n,100}]

cp's OEIS Frontend

A358832 Number of twice-partitions of n into partitions of distinct lengths and distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A384010 Heinz numbers of integer partitions such that it is possible to choose a family of disjoint strict partitions, one of each conjugate part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A384350 Number of subsets of {1..n} containing at least one element that is a sum of distinct non-elements.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A301750 Number of rooted twice-partitions of n where the composite rooted partition is strict.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A384011 Numbers k such that it is not possible to choose disjoint strict integer partitions of each conjugate prime index of k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A384348 Number of integer partitions of n with no proper way to choose disjoint strict partitions of each part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A384391 Number of subsets of {1..n} containing n and some element that is a sum of distinct non-elements.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A384392 Number of integer partitions of n whose distinct parts are maximally refined.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A291686 Numbers whose prime indices other than 1 are distinct prime numbers.

Views

Author

Keywords

Comments

Examples