A300335 -id:A300335 - cp's OEIS frontend

A358910 Number of integer partitions of n whose parts do not have weakly decreasing numbers of prime factors (A001222).

0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 3, 4, 8, 11, 19, 25, 41, 56, 84, 113, 164, 218, 306, 401, 547, 711, 949, 1218, 1599, 2034, 2625, 3310, 4224, 5283, 6664, 8271, 10336, 12747, 15791, 19343, 23791, 28979, 35398, 42887, 52073, 62779, 75804, 90967, 109291, 130605

Offset: 0

Gus Wiseman, Dec 09 2022

nonn

			The a(9) = 1 through a(14) = 11 partitions:
  (54)  (541)  (74)    (543)    (76)      (554)
               (542)   (741)    (544)     (743)
               (5411)  (5421)   (742)     (761)
                       (54111)  (5422)    (5432)
                                (5431)    (5441)
                                (7411)    (7421)
                                (54211)   (54221)
                                (541111)  (54311)
                                          (74111)
                                          (542111)
                                          (5411111)

For sequences of partitions see A141199, compositions A218482.
The case of equality is A319169, for compositions A358911.
The complement is counted by A358909.
A001222 counts prime factors, distinct A001221.
A063834 counts twice-partitions.
Cf. A056239, A300335, A320324, A358831, A358902, A358903, A358908.

Table[Length[Select[IntegerPartitions[n],!GreaterEqual@@PrimeOmega/@#&]],{n,0,30}]

A327899 Number of set partitions of {1..n} with equal block sizes and equal block sums.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 1, 6, 3, 2, 1, 63, 1, 2, 317, 657, 1, 4333, 1, 9609

Offset: 0

Gus Wiseman, Sep 29 2019

			The a(8) = 6 set partitions:
     {{1,2,3,4,5,6,7,8}}
    {{1,2,7,8},{3,4,5,6}}
    {{1,3,6,8},{2,4,5,7}}
    {{1,4,5,8},{2,3,6,7}}
    {{1,4,6,7},{2,3,5,8}}
  {{1,8},{2,7},{3,6},{4,5}}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Set partitions with equal block-sizes are A038041.
Set partitions with equal block-sums are A035470.
Cf. A000110, A000258, A005651, A007837, A008277, A275780, A300335, A319189, A326512, A326513, A326515, A327908.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[sps[Range[n]],And[SameQ@@Length/@#,SameQ@@Total/@#]&]],{n,0,8}]

A320438 Irregular triangle read by rows where T(n,k) is the number of set partitions of {1,...,n} with all block-sums equal to d, where d is the k-th divisor of n*(n+1)/2 that is >= n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 3, 7, 1, 1, 9, 1, 1, 1, 1, 43, 35, 1, 1, 102, 62, 1, 1, 1, 1, 68, 595, 1, 1, 17, 187, 871, 1480, 361, 1, 1, 2650, 657, 1, 1, 9294, 1, 1, 23728, 1, 1, 27763, 4110, 1, 1, 1850, 25035, 108516, 157991, 7636, 1, 1, 11421, 411474, 1

Offset: 1

Gus Wiseman, Jan 08 2019

			Triangle begins:
    1
    1
    1    1
    1    1
    1    1
    1    1
    1    4    1
    1    3    7    1
    1    9    1
    1    1
    1   43   35    1
    1  102   62    1
    1    1
    1   68  595    1
    1   17  187  871 1480  361    1
    1 2650  657    1
Row 8 counts the following set partitions:
  {{18}{27}{36}{45}}  {{1236}{48}{57}}  {{12348}{567}}  {{12345678}}
                      {{138}{246}{57}}  {{12357}{468}}
                      {{156}{237}{48}}  {{12456}{378}}
                                        {{1278}{3456}}
                                        {{1368}{2457}}
                                        {{1458}{2367}}
                                        {{1467}{2358}}

Row lengths are A164978. Row sums are A035470.

Cf. A000110, A000258, A008277, A112956, A164977, A275714, A279375, A300335, A320423, A320424, A321455, A321469.

spsu[,{}]:={{}};spsu[foo,set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@spsu[Select[foo,Complement[#,Complement[set,s]]=={}&],Complement[set,s]]]/@Cases[foo,{i,_}];
Table[Length[spsu[Select[Subsets[Range[n]],Total[#]==d&],Range[n]]],{n,12},{d,Select[Divisors[n*(n+1)/2],#>=n&]}]

More terms from Jinyuan Wang, Feb 27 2025

Name edited by Peter Munn, Mar 06 2025

cp's OEIS Frontend

A358910 Number of integer partitions of n whose parts do not have weakly decreasing numbers of prime factors (A001222).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A327899 Number of set partitions of {1..n} with equal block sizes and equal block sums.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A320438 Irregular triangle read by rows where T(n,k) is the number of set partitions of {1,...,n} with all block-sums equal to d, where d is the k-th divisor of n*(n+1)/2 that is >= n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions