A321471 -id:A321471 - cp's OEIS frontend

A242422 Numbers in whose prime factorization the indices of primes sum to a triangular number.

1, 2, 5, 6, 8, 13, 21, 22, 25, 27, 28, 29, 30, 36, 40, 46, 47, 48, 57, 64, 73, 76, 85, 86, 91, 102, 107, 117, 121, 123, 130, 136, 142, 147, 151, 154, 156, 164, 165, 175, 185, 189, 196, 197, 198, 201, 206, 208, 210, 217, 220, 222, 225, 243, 250, 252, 257, 264, 268, 270, 279, 280, 296, 298, 299, 300

Offset: 1

Antti Karttunen, May 16 2014

nonn

Numbers k such that A010054(A056239(k)) is one, or equally, that A002262(A056239(k)) is zero.
In "Bulgarian solitaire" a deck of cards or another finite set of objects is divided into one or more piles, and the "Bulgarian operation" is performed by taking one card from each pile, and making a new pile of them. The question originally posed was: on what condition the resulting partitions will eventually reach a fixed point, that is, a collection of piles that will be unchanged by the operation. See Martin Gardner reference and the Wikipedia-page.
This sequence answers the question when we implement the operation on the partition list A112798: These are all such numbers that starting iterating A242424 from them leads eventually to a fixed point, which will be one of the primorial numbers, A002110.
Contains the same terms as rows of A215366 indexed with triangular numbers (A000217: 0, 1, 3, 6, ...), although not in the same order. {1}, {2}, {5, 6, 8}, {13, 21, 22, 25, 27, 28, 30, 36, 40, 48, 64}, etc.
Heinz numbers of integer partitions of triangular numbers. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k). - Gus Wiseman, Nov 13 2018

			1 is present as it has an empty factorization, for which the sum of prime indices is zero, and zero is also a triangular number.
2 = p_1 is present as 1 is a triangular number.
6 = p_1 * p_2 is present, as 1+2 = 3 is a triangular number.
300 = 2*2*3*5*5 = p_1 * p_1 * p_2 * p_3 * p_3 is present, as 1+1+2+3+3 = 10 is a triangular number.
Any primorial number p_1 * p_2 * p_3 * ... * p_n is present, as 1+2+3+...+n is by definition a triangular number.
The sequence of all integer partitions whose Heinz numbers are in the sequence begins: (), (1), (3), (2,1), (1,1,1), (6), (4,2), (5,1), (3,3), (2,2,2), (4,1,1), (10), (3,2,1), (2,2,1,1), (3,1,1,1), (9,1), (15), (2,1,1,1,1), (8,2), (1,1,1,1,1,1), (21), (8,1,1), (7,3), (14,1), (6,4). - _Gus Wiseman_, Nov 13 2018

Martin Gardner, Colossal Book of Mathematics, Chapter 34, Bulgarian Solitaire and Other Seemingly Endless Tasks, pp. 455-467, W. W. Norton & Company, 2001.

Antti Karttunen, Table of n, a(n) for n = 1..2455
Ethan Akin and Morton Davis, "Bulgarian solitaire", American Mathematical Monthly 92 (4): 237-250. (1985).
Wikipedia, Bulgarian solitaire

Complement: A242423.
A002110 (primorial numbers) is a subsequence.
Cf. A112798, A215366, A242424, A000217, A002262, A010054, A056239, A226062, A037481.
Cf. A066723, A321470, A321471, A321472.

triQ[n_]:=Module[{k,i},For[k=n;i=1,k>0,i++,k-=i];k==0];
Select[Range[100],triQ[Total[Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]*k]]]&] (* Gus Wiseman, Nov 13 2018 *)

A321468 Number of factorizations of n! into factors > 1 that can be obtained by taking the multiset union of a choice of factorizations of each positive integer from 2 to n into factors > 1.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 4, 4, 10, 20, 40, 40, 116, 116, 232, 464, 1440, 1440, 4192, 4192, 11640, 23280, 46560, 46560, 157376

Offset: 0

Gus Wiseman, Nov 11 2018

a(n) is the number of factorizations finer than (2*3*...*n) in the poset of factorizations of n! into factors > 1, ordered by refinement.

			The a(2) = 1 through a(8) = 10 factorizations:
2  2*3  2*3*4    2*3*4*5    2*3*4*5*6      2*3*4*5*6*7      2*3*4*5*6*7*8
        2*2*2*3  2*2*2*3*5  2*2*2*3*5*6    2*2*2*3*5*6*7    2*2*2*3*5*6*7*8
                            2*2*3*3*4*5    2*2*3*3*4*5*7    2*2*3*3*4*5*7*8
                            2*2*2*2*3*3*5  2*2*2*2*3*3*5*7  2*2*3*4*4*5*6*7
                                                            2*2*2*2*3*3*5*7*8
                                                            2*2*2*2*3*4*5*6*7
                                                            2*2*2*3*3*4*4*5*7
                                                            2*2*2*2*2*2*3*5*6*7
                                                            2*2*2*2*2*3*3*4*5*7
                                                            2*2*2*2*2*2*2*3*3*5*7
For example, 2*2*2*2*2*2*3*5*6*7 = (2)*(3)*(2*2)*(5)*(6)*(7)*(2*2*2), so (2*2*2*2*2*2*3*5*6*7) is counted under a(8).

Dominated by A321514.

Cf. A001055, A066723, A076716, A157612, A242422, A265947, A300383, A317144, A317145, A317534, A321467, A321470, A321471, A321472.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Union[Sort/@Join@@@Tuples[facs/@Range[2,n]]]],{n,10}]

A321470 Number of integer partitions of the n-th triangular number 1 + 2 + ... + n that can be obtained by choosing a partition of each integer from 1 to n and combining.

Original entry on oeis.org

1, 1, 2, 5, 16, 54, 212, 834, 3558, 15394, 69512, 313107, 1474095, 6877031, 32877196

Offset: 0

Gus Wiseman, Nov 11 2018

a(n) is the number of integer partitions finer than (n, ..., 3, 2, 1) in the poset of integer partitions of 1 + 2 + ... + n ordered by refinement.

a(n+1)/a(n) appears to converge as n -> oo. - Chai Wah Wu, Nov 14 2018

			The a(1) = 1 through a(4) = 16 partitions:
  (1)  (21)   (321)     (4321)
       (111)  (2211)    (32221)
              (3111)    (33211)
              (21111)   (42211)
              (111111)  (43111)
                        (222211)
                        (322111)
                        (331111)
                        (421111)
                        (2221111)
                        (3211111)
                        (4111111)
                        (22111111)
                        (31111111)
                        (211111111)
                        (1111111111)
The partition (222211) is the combination of (22)(21)(2)(1), so is counted under a(4). The partition (322111) is the combination of (22)(3)(11)(1), (31)(21)(2)(1), or (211)(3)(2)(1), so is also counted under a(4).

Cf. A000217, A001970, A002846, A063834, A066723, A173519, A213427, A242422, A261049, A265947, A271619, A299201, A300383, A317141.

Cf. A321467, A321468, A321471, A321472, A321514.

Table[Length[Union[Sort/@Join@@@Tuples[IntegerPartitions/@Range[1,n]]]],{n,6}]

from collections import Counter
from itertools import count, islice
from sympy.utilities.iterables import partitions
def A321470_gen(): # generator of terms
    aset = {(1,)}
    yield 1
    for n in count(2):
        yield len(aset)
        aset = {tuple(sorted(p+q)) for p in aset for q in (tuple(sorted(Counter(q).elements())) for q in partitions(n))}
A321470_list = list(islice(A321470_gen(),10)) # Chai Wah Wu, Sep 20 2023

a(n) <= A173519(n). - David A. Corneth, Sep 20 2023

a(9)-a(11) from Alois P. Heinz, Nov 12 2018
a(12)-a(13) from Chai Wah Wu, Nov 13 2018
a(14) from Chai Wah Wu, Sep 20 2023

A321467 Number of factorizations of n! into factors > 1 that can be obtained by taking the block-products of some set partition of {2,3,...,n}.

Original entry on oeis.org

1, 1, 1, 2, 5, 15, 47, 183, 719, 3329, 14990, 83798, 393864, 2518898

Offset: 0

Gus Wiseman, Nov 11 2018

a(n) is the number of factorizations coarser than (2*3*...*n) in the poset of factorizations of n! into factors > 1, ordered by refinement.

			The a(1) = 1 through a(5) = 15 factorizations:
  ()  (2)  (6)    (24)     (120)
           (2*3)  (3*8)    (2*60)
                  (4*6)    (3*40)
                  (2*12)   (4*30)
                  (2*3*4)  (5*24)
                           (6*20)
                           (8*15)
                           (10*12)
                           (3*5*8)
                           (4*5*6)
                           (2*3*20)
                           (2*4*15)
                           (2*5*12)
                           (3*4*10)
                           (2*3*4*5)
For example, 10*12 = (2*5)*(3*4), so (10*12) is counted under a(5).

Dominated by A000110.

Cf. A001055, A066723, A157612, A242422, A265947, A317141, A317144, A317145, A317534, A321468, A321470, A321471, A321472, A321514.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Union[Sort/@Apply[Times,sps[Range[2,n]],{2}]]],{n,10}]

A321472 Heinz numbers of integer partitions whose parts can be further partitioned and flattened to obtain the partition (k, ..., 3, 2, 1) for some k.

Original entry on oeis.org

2, 5, 6, 13, 21, 22, 25, 29, 30, 46, 47, 57, 73, 85, 86, 91, 102, 107, 121, 123, 130, 142, 147, 151, 154, 165, 175, 185, 197, 201, 206, 210, 217, 222, 257, 298, 299

Offset: 1

Gus Wiseman, Nov 13 2018

nonn

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

These partitions are those that are coarser than (k, ..., 3, 2, 1) in the poset of integer partitions of 1 + 2 + ... + k, for some k, ordered by refinement.

			The sequence of all integer partitions whose Heinz numbers are in the sequence begins: (1), (3), (2,1), (6), (4,2), (5,1), (3,3), (10), (3,2,1), (9,1), (15), (8,2), (21), (7,3), (14,1), (6,4), (7,2,1), (28), (5,5), (13,2), (6,3,1), (20,1), (4,4,2), (36), (5,4,1), (5,3,2), (4,3,3), (12,3), (45), (19,2), (27,1), (4,3,2,1).

Subsequence of A242422.
Cf. A001970, A002846, A056239, A066723, A112798, A213427, A242422, A265947, A300383, A317141.
Cf. A321467, A321468, A321470, A321471, A321514.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[2,200],Select[Sort/@Join@@@Tuples[IntegerPartitions/@primeMS[#]],Sort[#]==Range[Max@@#]&]!={}&]

A321514 Number of ways to choose a factorization of each integer from 2 to n into factors > 1.

Original entry on oeis.org

1, 1, 1, 2, 2, 4, 4, 12, 24, 48, 48, 192, 192, 384, 768, 3840, 3840, 15360, 15360, 61440, 122880, 245760, 245760, 1720320, 3440640, 6881280, 20643840, 82575360, 82575360, 412876800, 412876800, 2890137600, 5780275200, 11560550400, 23121100800, 208089907200

Offset: 1

Gus Wiseman, Nov 11 2018

nonn

			The a(8) = 12 ways to choose a factorization of each integer from 2 to 8:
  (2)*(3)*(4)*(5)*(6)*(7)*(8)
  (2)*(3)*(4)*(5)*(6)*(7)*(2*4)
  (2)*(3)*(4)*(5)*(2*3)*(7)*(8)
  (2)*(3)*(2*2)*(5)*(6)*(7)*(8)
  (2)*(3)*(4)*(5)*(6)*(7)*(2*2*2)
  (2)*(3)*(4)*(5)*(2*3)*(7)*(2*4)
  (2)*(3)*(2*2)*(5)*(6)*(7)*(2*4)
  (2)*(3)*(2*2)*(5)*(2*3)*(7)*(8)
  (2)*(3)*(4)*(5)*(2*3)*(7)*(2*2*2)
  (2)*(3)*(2*2)*(5)*(6)*(7)*(2*2*2)
  (2)*(3)*(2*2)*(5)*(2*3)*(7)*(2*4)
  (2)*(3)*(2*2)*(5)*(2*3)*(7)*(2*2*2)

Dominates A321468.

Cf. A001055, A050336, A066723, A076716, A157612, A281113, A300383, A317144, A317145, A321467, A321470, A321471, A321472.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Array[Length[facs[#]]&,n,1,Times],{n,30}]

a(n) = Product_{k = 1..n} A001055(k).

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

Original entry on oeis.org

1, 1, 2, 4, 12, 24, 92, 184, 704, 2016, 7600, 15200, 80664, 161328, 601696, 2198824, 9868544, 19737088, 102010480, 204020960

Offset: 0

Gus Wiseman, Mar 13 2025

A constant partition is a multiset whose parts are all equal. There are A000005(n) constant partitions of n.

			The a(1) = 1 through a(4) = 12 multisets:
  {1}  {1,2}    {1,2,3}        {1,2,3,4}
       {1,1,1}  {1,1,1,3}      {1,1,1,3,4}
                {1,1,1,1,2}    {1,2,2,2,3}
                {1,1,1,1,1,1}  {1,1,1,1,2,4}
                               {1,1,1,2,2,3}
                               {1,1,1,1,1,1,4}
                               {1,1,1,1,1,2,3}
                               {1,1,1,1,2,2,2}
                               {1,1,1,1,1,1,1,3}
                               {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}

The number of possible choices was A066843.
Multiset partitions into constant blocks: A006171, A279784, A295935.
Choosing prime factors: A355746, A355537, A327486, A355744, A355742, A355741.
Choosing divisors: A355747, A355733.
Sets of constant multisets with distinct sums: A381635, A381636, A381716.
Strict instead of constant partitions: A381808, A058694, A152827.
A000041 counts integer partitions, strict A000009, constant A000005.
A000688 counts multiset partitions into constant blocks.
A050361 and A381715 count multiset partitions into constant multisets.
A066723 counts partitions coarser than {1..n}, primorial case of A317141.
A265947 counts refinement-ordered pairs of integer partitions.
A321470 counts partitions finer than {1..n}, primorial case of A300383.
Cf. A001970, A018818, A213385, A299200, A321467, A321468, A321471, A321514, A355731, A381453, A381455.

Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],SameQ@@#&]&/@Range[n]]]],{n,0,10}]

Primorial case of A381453: a(n) = A381453(A002110(n)).

a(16)-a(19) from Christian Sievers, Jun 04 2025

A381808 Number of multisets that can be obtained by choosing a strict integer partition of m for each m = 0..n and taking the multiset union.

Original entry on oeis.org

1, 1, 1, 2, 4, 12, 38, 145, 586, 2619, 12096, 58370, 285244, 1436815, 7281062, 37489525, 193417612

Offset: 0

Gus Wiseman, Mar 14 2025

			The a(1) = 1 through a(5) = 12 multisets:
  {1}  {1,2}  {1,2,3}    {1,2,3,4}      {1,2,3,4,5}
              {1,1,2,2}  {1,1,2,2,4}    {1,1,2,2,4,5}
                         {1,1,2,3,3}    {1,1,2,3,3,5}
                         {1,1,1,2,2,3}  {1,1,2,3,4,4}
                                        {1,2,2,3,3,4}
                                        {1,1,1,2,2,3,5}
                                        {1,1,1,2,2,4,4}
                                        {1,1,1,2,3,3,4}
                                        {1,1,2,2,2,3,4}
                                        {1,1,2,2,3,3,3}
                                        {1,1,1,1,2,2,3,4}
                                        {1,1,1,2,2,2,3,3}

Set systems: A050342, A116539, A296120, A318361.
The number of possible choices was A152827, non-strict A058694.
Set multipartitions with distinct sums: A279785, A381718.
Choosing prime factors: A355746, A355537, A327486, A355744, A355742, A355741.
Choosing divisors: A355747, A355733.
Constant instead of strict partitions: A381807, A066843.
A000041 counts integer partitions, strict A000009, constant A000005.
A066723 counts partitions coarser than {1..n}, primorial case of A317141.
A265947 counts refinement-ordered pairs of integer partitions.
A321470 counts partitions finer than {1..n}, primorial case of A300383.
Cf. A001970, A018818, A213385, A299200, A321467, A321468, A321471, A321514, A355731, A381453, A381455.

Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],UnsameQ@@#&]&/@Range[n]]]],{n,0,10}]

a(12)-a(16) from Christian Sievers, Jun 04 2025

cp's OEIS Frontend

A242422 Numbers in whose prime factorization the indices of primes sum to a triangular number.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

A321468 Number of factorizations of n! into factors > 1 that can be obtained by taking the multiset union of a choice of factorizations of each positive integer from 2 to n into factors > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A321470 Number of integer partitions of the n-th triangular number 1 + 2 + ... + n that can be obtained by choosing a partition of each integer from 1 to n and combining.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

A321467 Number of factorizations of n! into factors > 1 that can be obtained by taking the block-products of some set partition of {2,3,...,n}.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A321472 Heinz numbers of integer partitions whose parts can be further partitioned and flattened to obtain the partition (k, ..., 3, 2, 1) for some k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A321514 Number of ways to choose a factorization of each integer from 2 to n into factors > 1.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A381808 Number of multisets that can be obtained by choosing a strict integer partition of m for each m = 0..n and taking the multiset union.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions