A296122 -id:A296122 - cp's OEIS frontend

A387136 Number of ways to choose a sequence of distinct prime factors, one of each prime index of 2n - 1.

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

Offset: 1

Gus Wiseman, Aug 30 2025

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.

			The prime indices of 4537 are {6,70}, with choices (2,5), (2,7), (3,2), (3,5), (3,7). Since 4537 = 2 * 2269 - 1, we have a(2269) = 5.

Here we use the version with alternating zeros (put n instead of 2n - 1 in the name).
Twice partitions of this type are counted by A296122.
Positions of zero are A355529, complement A368100.
For divisors instead of prime factors we have A355739.
Allowing repeated choices gives A355741.
For partitions instead of prime factors we have A387110.
For initial intervals instead of prime factors we have A387111.
For strict partitions instead of prime factors we have A387115, disjoint case A383706.
For constant partitions instead of prime factors we have A387120.
A000041 counts integer partitions, strict A000009.
A003963 multiplies together prime indices.
A112798 lists prime indices, row sums A056239 or A066328, lengths A001222.
A120383 lists numbers divisible by all of their prime indices.
A289509 lists numbers with relatively prime prime indices.
Cf. A261049, A276078, A276079, A299200, A335433, A335448, A355731, A355745, A367771, A387133, A387135, A387327.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Tuples[If[#==1,{},First/@FactorInteger[#]]&/@prix[2n-1]],UnsameQ@@#&]],{n,100}]

A358825 Number of ways to choose a sequence of integer partitions, one of each part of an integer partition of n into odd parts.

Original entry on oeis.org

1, 1, 1, 4, 4, 11, 20, 35, 56, 113, 207, 326, 602, 985, 1777, 3124, 5115, 8523, 15011, 24519, 41571, 71096, 115650, 191940, 320651, 530167, 865781, 1442059, 2358158, 3833007, 6325067, 10243259, 16603455, 27151086, 43734197, 71032191, 115091799, 184492464

Offset: 0

Gus Wiseman, Dec 03 2022

nonn

			The a(1) = 1 through a(5) = 11 twice-partitions:
  (1)  (1)(1)  (3)        (3)(1)        (5)
               (21)       (21)(1)       (32)
               (111)      (111)(1)      (41)
               (1)(1)(1)  (1)(1)(1)(1)  (221)
                                        (311)
                                        (2111)
                                        (11111)
                                        (3)(1)(1)
                                        (21)(1)(1)
                                        (111)(1)(1)
                                        (1)(1)(1)(1)(1)

For odd parts instead of sums we have A270995.
For distinct instead of odd sums we have A271619.
Requiring odd length, odd lengths, and odd parts gives A279374 aerated.
For odd lengths instead of sums we have A358334.
The odd-length case is A358826.
A000009 counts partitions into odd parts.
A027193 counts partitions of odd length.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A078408 counts odd-length partitions into odd parts.
A300301 aerated counts twice-partitions with odd sums and parts.
Cf. A000041, A001970, A072233, A279785, A356932, A358824.

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

G.f.: Product_{k odd} 1/(1-A000041(k)*x^k).

A358826 Number of ways to choose a sequence of partitions, one of each part of an odd-length partition of 2n+1 into odd parts.

Original entry on oeis.org

1, 4, 11, 35, 113, 326, 985, 3124, 8523, 24519, 71096, 191940, 530167, 1442059, 3833007, 10243259, 27151086, 71032191, 184492464, 478339983, 1227208513, 3140958369, 8016016201, 20210235189, 50962894061, 127936646350, 319022819270, 794501931062, 1969154638217

Offset: 0

Gus Wiseman, Dec 03 2022

nonn

			The a(1) = 1 through a(5) = 11 twice-partitions:
  (1)  (3)        (5)
       (21)       (32)
       (111)      (41)
       (1)(1)(1)  (221)
                  (311)
                  (2111)
                  (11111)
                  (3)(1)(1)
                  (21)(1)(1)
                  (111)(1)(1)
                  (1)(1)(1)(1)(1)

Gus Wiseman, Sequences enumerating triangles of integer partitions

For odd parts instead of length and sums we have A270995.
Requiring odd lengths and odd parts gives A279374 aerated.
This is the case of A358824 with odd sums.
This is the odd-length case (hence odd bisection) of A358825.
For odd lengths (instead of length) we have A358827.
For odd lengths instead of sums we have A358834.
A000009 counts partitions into odd parts.
A027193 counts partitions of odd length.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A078408 counts odd-length partitions into odd parts.
A300301 aerated counts twice-partitions with odd sums and parts.
Cf. A000041, A001970, A072233, A271619, A279785, A356932.

twiptn[n_]:=Join@@Table[Tuples[IntegerPartitions/@ptn],{ptn,IntegerPartitions[n]}];
Table[Length[Select[twiptn[n],OddQ[Length[#]]&&OddQ[Times@@Total/@#]&]],{n,1,15,2}]

A358827 Number of twice-partitions of n into partitions with all odd lengths and sums.

Original entry on oeis.org

1, 1, 1, 3, 3, 7, 11, 19, 27, 51, 83, 128, 208, 324, 542, 856, 1332, 2047, 3371, 5083, 8009, 12545, 19478, 29770, 46038, 70777, 108627, 167847, 255408, 388751, 593475, 901108, 1361840, 2077973, 3125004, 4729056, 7146843, 10732799, 16104511, 24257261, 36305878

Offset: 0

Gus Wiseman, Dec 03 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(6) = 11 twice-partitions:
  (1)  (1)(1)  (3)        (3)(1)        (5)              (3)(3)
               (111)      (111)(1)      (221)            (5)(1)
               (1)(1)(1)  (1)(1)(1)(1)  (311)            (111)(3)
                                        (11111)          (221)(1)
                                        (3)(1)(1)        (3)(111)
                                        (111)(1)(1)      (311)(1)
                                        (1)(1)(1)(1)(1)  (111)(111)
                                                         (11111)(1)
                                                         (3)(1)(1)(1)
                                                         (111)(1)(1)(1)
                                                         (1)(1)(1)(1)(1)(1)

Gus Wiseman, Sequences enumerating triangles of integer partitions

This is the case of A358334 with odd sums.
This is the case of A358825 with odd lengths.
The case of odd length is the odd bisection.
For odd parts instead of lengths and sums we have A270995.
Requiring odd parts also gives A279374 aerated.
A000009 counts partitions into odd parts.
A027193 counts partitions of odd length.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A078408 counts odd-length partitions into odd parts.
A300301 aerated counts twice-partitions with odd sums and parts.
Cf. A000041, A001970, A072233, A271619, A279785, A306319, A356932, A358824.

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

G.f.: Product_{k odd} 1/(1-A027193(k)*x^k).

A358837 Number of odd-length multiset partitions of integer partitions of n.

Original entry on oeis.org

0, 1, 2, 4, 7, 14, 28, 54, 106, 208, 399, 757, 1424, 2642, 4860, 8851, 15991, 28673, 51095, 90454, 159306, 279067, 486598, 844514, 1459625, 2512227, 4307409, 7357347, 12522304, 21238683, 35903463, 60497684, 101625958, 170202949, 284238857, 473356564, 786196353

Offset: 0

Gus Wiseman, Dec 05 2022

nonn

			The a(1) = 1 through a(5) = 14 multiset partitions:
  {{1}}  {{2}}    {{3}}          {{4}}            {{5}}
         {{1,1}}  {{1,2}}        {{1,3}}          {{1,4}}
                  {{1,1,1}}      {{2,2}}          {{2,3}}
                  {{1},{1},{1}}  {{1,1,2}}        {{1,1,3}}
                                 {{1,1,1,1}}      {{1,2,2}}
                                 {{1},{1},{2}}    {{1,1,1,2}}
                                 {{1},{1},{1,1}}  {{1,1,1,1,1}}
                                                  {{1},{1},{3}}
                                                  {{1},{2},{2}}
                                                  {{1},{1},{1,2}}
                                                  {{1},{2},{1,1}}
                                                  {{1},{1},{1,1,1}}
                                                  {{1},{1,1},{1,1}}
                                                  {{1},{1},{1},{1},{1}}

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

The version for set partitions is A024429.
These multiset partitions are ranked by A026424.
The version for partitions is A027193.
The version for twice-partitions is A358824.
A001970 counts multiset partitions of integer partitions.
A063834 counts twice-partitions, strict A296122.
Cf. A000219, A141199, A336342, A358334, A358831.

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]]]];
Table[Length[Select[Join@@mps/@Reverse/@IntegerPartitions[n],OddQ[Length[#]]&]],{n,0,10}]

P(v,y) = {1/prod(k=1, #v, (1 - y*x^k + O(x*x^#v))^v[k])}
seq(n) = {my(v=vector(n, k, numbpart(k))); (Vec(P(v,1)) - Vec(P(v,-1)))/2} \\ Andrew Howroyd, Dec 31 2022

G.f.: ((1/Product_{k>=1} (1-x^k)^A000041(k)) - (1/Product_{k>=1} (1+x^k)^A000041(k))) / 2. - Andrew Howroyd, Dec 31 2022

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

A358904 Number of finite sets of compositions with all equal sums and total sum n.

Original entry on oeis.org

1, 1, 2, 4, 9, 16, 38, 64, 156, 260, 632, 1024, 2601, 4096, 10208, 16944, 40966, 65536, 168672, 262144, 656980, 1090240, 2620928, 4194304, 10862100, 16781584, 41940992, 69872384, 168403448, 268435456, 693528552, 1073741824, 2695006177, 4473400320, 10737385472

Offset: 0

Gus Wiseman, Dec 13 2022

nonn

			The a(1) = 1 through a(4) = 9 sets:
  {(1)}  {(2)}   {(3)}    {(4)}
         {(11)}  {(12)}   {(13)}
                 {(21)}   {(22)}
                 {(111)}  {(31)}
                          {(112)}
                          {(121)}
                          {(211)}
                          {(1111)}
                          {(2),(11)}

This is the constant-sum case of A098407, ordered A358907.
The version for distinct sums is A304961, ordered A336127.
Allowing repetition gives A305552, ordered A074854.
The case of sets of partitions is A359041.
A001970 counts multisets of partitions.
A034691 counts multisets of compositions, ordered A133494.
A261049 counts sets of partitions, ordered A358906.
Cf. A000009, A063834, A075900, A218482, A296122.

Table[If[n==0,1,Sum[Binomial[2^(d-1),n/d],{d,Divisors[n]}]],{n,0,30}]

a(n) = if (n, sumdiv(n, d, binomial(2^(d-1), n/d)), 1); \\ Michel Marcus, Dec 14 2022

a(n>0) = Sum_{d|n} binomial(2^(d-1),n/d).

A358913 Number of finite sequences of distinct sets with total sum n.

Original entry on oeis.org

1, 1, 1, 4, 6, 11, 28, 45, 86, 172, 344, 608, 1135, 2206, 4006, 7689, 13748, 25502, 47406, 86838, 157560, 286642, 522089, 941356, 1718622, 3079218, 5525805, 9902996, 17788396, 31742616, 56694704, 100720516, 178468026, 317019140, 560079704, 991061957

Offset: 0

Gus Wiseman, Dec 11 2022

nonn

			The a(1) = 1 through a(5) = 11 sequences of sets:
  ({1})  ({2})  ({3})      ({4})        ({5})
                ({1,2})    ({1,3})      ({1,4})
                ({1},{2})  ({1},{3})    ({2,3})
                ({2},{1})  ({3},{1})    ({1},{4})
                           ({1},{1,2})  ({2},{3})
                           ({1,2},{1})  ({3},{2})
                                        ({4},{1})
                                        ({1},{1,3})
                                        ({1,2},{2})
                                        ({1,3},{1})
                                        ({2},{1,2})

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

The unordered version is A050342, non-strict A261049.
The case of strictly decreasing sums is A279785.
This is the distinct case of A304969.
The case of distinct sums is A336343, constant sums A279791.
This is the case of A358906 with strict partitions.
The version for compositions instead of strict partitions is A358907.
The case of twice-partitions is A358914.
A001970 counts multiset partitions of integer partitions.
A055887 counts sequences of partitions.
A063834 counts twice-partitions.
A330462 counts set systems by total sum and length.
A358830 counts twice-partitions with distinct lengths.
Cf. A000009, A000041, A000219, A271619, A296122, A336342, A358908.

g:= proc(n) option remember; `if`(n=0, 1, add(g(n-j)*add(
     `if`(d::odd, d, 0), d=numtheory[divisors](j)), j=1..n)/n)
    end:
b:= proc(n, i, p) option remember; `if`(n=0, p!, `if`(i<1, 0,
      add(binomial(g(i), j)*b(n-i*j, i-1, p+j), j=0..n/i)))
    end:
a:= n-> b(n$2, 0):
seq(a(n), n=0..35);  # Alois P. Heinz, Feb 13 2024

ptnseq[n_]:=Join@@Table[Tuples[IntegerPartitions/@comp],{comp,Join@@Permutations/@IntegerPartitions[n]}];
Table[Length[Select[ptnseq[n],UnsameQ@@#&&And@@UnsameQ@@@#&]],{n,0,10}]

a(n) = Sum_{k} A330462(n,k) * k!.

A387180 Numbers of which it is not possible to choose a different constant integer partition of each prime index.

Original entry on oeis.org

4, 8, 12, 16, 20, 24, 27, 28, 32, 36, 40, 44, 48, 52, 54, 56, 60, 64, 68, 72, 76, 80, 81, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120, 124, 125, 128, 132, 135, 136, 140, 144, 148, 152, 156, 160, 162, 164, 168, 172, 176, 180, 184, 188, 189, 192, 196, 200, 204

Offset: 1

Gus Wiseman, Aug 30 2025

First differs from A276079 in having 125.
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 numbers n with at least one prime index k such that the multiplicity of prime(k) in the prime factorization of n exceeds the number of divisors of k.

			The prime indices of 60 are {1,1,2,3}, and we have the following 4 choices of constant partitions:
  ((1),(1),(2),(3))
  ((1),(1),(2),(1,1,1))
  ((1),(1),(1,1),(3))
  ((1),(1),(1,1),(1,1,1))
Since none of these is strict, 60 is in the sequence.
The prime indices of 90 are {1,2,2,3}, and we have the following 4 strict choices:
  ((1),(2),(1,1),(3))
  ((1),(2),(1,1),(1,1,1))
  ((1),(1,1),(2),(3))
  ((1),(1,1),(2),(1,1,1))
So 90 is not in the sequence.

For prime factors instead of constant partitions we have A355529, counted by A370593.
For divisors instead of constant partitions we have A355740, counted by A370320.
The complement for prime factors is A368100, counted by A370592.
The complement for divisors is A368110, counted by A239312.
The complement for initial intervals is A387112, counted by A238873.
For initial intervals instead of partitions we have A387113, counted by A387118.
These are the positions of zero in A387120.
For strict instead of constant partitions we have A387176, counted by A387137.
The complement for strict partitions is A387177, counted by A387178.
Twice-partitions of this type are counted by A387179, constant-block case of A296122.
The complement is A387181 (nonzeros of A387120), counted by A387330.
Partitions of this type are counted by A387329.
A000041 counts integer partitions, strict A000009.
A003963 multiplies together prime indices.
A112798 lists prime indices, row sums A056239 or A066328, lengths A001222.
A120383 lists numbers divisible by all of their prime indices.
A289509 lists numbers with relatively prime prime indices.
Cf. A355739, A367771, A387111, A387115.
Cf. A000005, A052335, A063834, A276079, A299200, A299201, A335433, A335448, A355731, A383706, A387110.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Select[Tuples[Select[IntegerPartitions[#],SameQ@@#&]&/@prix[#]],UnsameQ@@#&]=={}&]

A358828 Number of twice-partitions of n with no singletons.

Original entry on oeis.org

1, 0, 1, 2, 5, 8, 19, 30, 68, 111, 229, 380, 799, 1280, 2519, 4325, 8128, 13666, 25758, 43085, 79300, 134571, 240124, 407794, 730398, 1224821, 2152122, 3646566, 6338691, 10657427, 18469865, 30913539, 53108364, 88953395, 151396452, 253098400, 429416589

Offset: 0

Gus Wiseman, Dec 03 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(2) = 1 through a(6) = 19 twice-partitions:
  (11)  (21)   (22)      (32)       (33)
        (111)  (31)      (41)       (42)
               (211)     (221)      (51)
               (1111)    (311)      (222)
               (11)(11)  (2111)     (321)
                         (11111)    (411)
                         (21)(11)   (2211)
                         (111)(11)  (3111)
                                    (21111)
                                    (111111)
                                    (21)(21)
                                    (22)(11)
                                    (31)(11)
                                    (111)(21)
                                    (21)(111)
                                    (211)(11)
                                    (111)(111)
                                    (1111)(11)
                                    (11)(11)(11)

The version for multiset partitions of integer partitions is A304966.
Allowing singletons other than (1) gives A358829.
A002865 counts partitions with no 1's.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
Cf. A000009, A000041, A000219, A001970, A072233, A358824.

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

G.f.: Product_{k>=1} 1/(1-(A000041(k)-1)*x^k).

A358829 Number of twice-partitions of n with no (1)'s.

Original entry on oeis.org

1, 0, 2, 3, 9, 13, 38, 56, 144, 237, 524, 886, 1961, 3225, 6700, 11702, 23007, 39787, 77647, 133707, 254896, 442736, 820703, 1427446, 2630008, 4535330, 8224819, 14250148, 25513615, 43981753, 78252954, 134323368, 236900355, 406174046, 709886932, 1213934012

Offset: 0

Gus Wiseman, Dec 03 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(2) = 2 through a(5) = 13 twice-partitions:
  (2)   (3)    (4)       (5)
  (11)  (21)   (22)      (32)
        (111)  (31)      (41)
               (211)     (221)
               (1111)    (311)
               (2)(2)    (2111)
               (11)(2)   (3)(2)
               (2)(11)   (11111)
               (11)(11)  (21)(2)
                         (3)(11)
                         (111)(2)
                         (21)(11)
                         (111)(11)

The version for multiset partitions of integer partitions is A317911.
Forbidding all singletons gives A358828.
A002865 counts partitions with no 1's.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
Cf. A000009, A000041, A000219, A001970, A072233, A304966, A358824.

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

G.f.: Product_{k>=2} 1/(1-A000041(k)*x^k).

cp's OEIS Frontend

A387136 Number of ways to choose a sequence of distinct prime factors, one of each prime index of 2n - 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A358825 Number of ways to choose a sequence of integer partitions, one of each part of an integer partition of n into odd parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A358826 Number of ways to choose a sequence of partitions, one of each part of an odd-length partition of 2n+1 into odd parts.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A358827 Number of twice-partitions of n into partitions with all odd lengths and sums.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A358837 Number of odd-length multiset partitions of integer partitions of n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A358904 Number of finite sets of compositions with all equal sums and total sum n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

A358913 Number of finite sequences of distinct sets with total sum n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A387180 Numbers of which it is not possible to choose a different constant integer partition of each prime index.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs