cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-30 of 32 results. Next

A356934 Number of multisets of odd-size multisets whose multiset union is a size-n multiset covering an initial interval with weakly decreasing multiplicities.

Original entry on oeis.org

1, 1, 2, 6, 17, 46, 166, 553, 2093
Offset: 0

Views

Author

Gus Wiseman, Sep 09 2022

Keywords

Examples

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

Crossrefs

A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A011782 counts multisets covering an initial interval.
Odd-size multisets are counted by A000302, A027193, A058695, ranked by A026424.
Other conditions: A035310, A063834, A330783, A356938, A356943, A356954.
Other types: A050330, A356932, A356933, A356935.

Programs

  • Mathematica
    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]]]];
    strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
    Table[Length[Select[Join@@mps/@strnorm[n],OddQ[Times@@Length/@#]&]],{n,0,5}]

A356938 Number of multisets of intervals whose multiset union is of size n and covers an initial interval of positive integers with weakly decreasing multiplicities.

Original entry on oeis.org

1, 1, 3, 7, 18, 41, 101, 228, 538, 1209
Offset: 0

Views

Author

Gus Wiseman, Sep 09 2022

Keywords

Comments

An interval such as {3,4,5} is a set of positive integers with all differences of adjacent elements equal to 1.

Examples

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

Crossrefs

A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A011782 counts multisets covering an initial interval.
Intervals are counted by A000012, A001227, ranked by A073485.
Other conditions: A035310, A063834, A330783, A356934.

Programs

  • Mathematica
    strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
    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]]]];
    chQ[y_]:=Or[Length[y]<=1,Union[Differences[y]]=={1}];
    Table[Length[Select[Join@@mps/@strnorm[n],And@@chQ/@#&]],{n,0,5}]

A249620 Triangle read by rows: T(m,n) = number of partitions of the multiset with m elements and signature corresponding to n-th integer partition (A194602).

Original entry on oeis.org

1, 1, 2, 2, 5, 4, 3, 15, 11, 7, 9, 5, 52, 36, 21, 26, 12, 16, 7, 203, 135, 74, 92, 38, 52, 19, 66, 29, 31, 11, 877, 566, 296, 371, 141, 198, 64, 249, 98, 109, 30, 137, 47, 57, 15, 4140, 2610, 1315, 1663, 592, 850, 250, 1075, 392, 444, 105, 560
Offset: 0

Views

Author

Tilman Piesk, Nov 04 2014

Keywords

Comments

This triangle shows the same numbers in each row as A129306 and A096443, but in this arrangement the multisets in column n correspond to the n-th integer partition in the infinite order defined by A194602.
Row lengths: A000041 (partition numbers), Row sums: A035310
Columns: 0: A000110 (Bell), 1: A035098 (near-Bell), 2: A169587, 4: A169588
Last in row: end-1: A091437, end: A000041 (partition numbers)
The rightmost columns form a reflected version of the triangle A126442:
n 0 1 2 4 6 10 14 21 (A000041(1,2,3...)-1)
m
1 1
2 2 2
3 5 4 3
4 15 11 7 5
5 52 36 21 12 7
6 203 135 74 38 19 11
7 877 566 296 141 64 30 15
8 4140 2610 1315 592 250 105 45 22
A249619 shows the number of permutations of the same multisets.

Examples

			See "The T(5,2)=21 partitions of {1,1,1,2,3}" link. Similar links for m=1..8 are in "Partitions of multisets" (Wikiversity).
Triangle begins:
  n     0    1   2   3   4   5   6   7   8   9  10
m
0       1
1       1
2       2    2
3       5    4   3
4      15   11   7   9   5
5      52   36  21  26  12  16   7
6     203  135  74  92  38  52  19  66  29  31  11
		

Crossrefs

A317449 Regular triangle where T(n,k) is the number of multiset partitions of strongly normal multisets of size n into k blocks, where a multiset is strongly normal if it spans an initial interval of positive integers with weakly decreasing multiplicities.

Original entry on oeis.org

1, 2, 2, 3, 6, 3, 5, 21, 16, 5, 7, 52, 72, 32, 7, 11, 141, 306, 216, 65, 11, 15, 327, 1113, 1160, 512, 113, 15, 22, 791, 4033, 6052, 3737, 1154, 199, 22, 30, 1780, 13586, 28749, 24325, 10059, 2317, 323, 30, 42, 4058, 45514, 133642, 151994, 82994, 24854, 4493, 523, 42
Offset: 1

Views

Author

Gus Wiseman, Aug 06 2018

Keywords

Examples

			The T(3,2) = 6 multiset partitions are {{1},{1,1}}, {{1},{1,2}}, {{2},{1,1}}, {{1},{2,3}}, {{2},{1,3}}, {{3},{1,2}}.
Triangle begins:
    1
    2    2
    3    6    3
    5   21   16    5
    7   52   72   32    7
   11  141  306  216   65   11
   15  327 1113 1160  512  113   15
   ...
		

Crossrefs

Row sums are A035310. First and last columns are both A000041.

Programs

  • Mathematica
    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]]]];
    strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
    Table[Length[Select[Join@@mps/@strnorm[n],Length[#]==k&]],{n,6},{k,n}]
  • PARI
    EulerT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, 1/n))))-1, -#v)}
    D(p, n)={my(v=vector(n)); for(i=1, #p, v[p[i]]++); my(u=EulerT(v)); Vec(1/prod(k=1, n, 1 - u[k]*x^k + O(x*x^n))-1, -n)/prod(i=1, #v, i^v[i]*v[i]!)}
    U(m, n)={my(s=0); forpart(p=m, s+=D(p,n)); s}
    M(n)={Mat(vector(n,k,(U(k,n)-U(k-1,n))~))}
    { my(A=M(8)); for(n=1, #A~, print(A[n,1..n])) } \\ Andrew Howroyd, Dec 30 2020

Extensions

Terms a(46) and beyond from Andrew Howroyd, Dec 30 2020

A356943 Number of multiset partitions into gapless blocks of a size-n multiset covering an initial interval with weakly decreasing multiplicities.

Original entry on oeis.org

1, 1, 4, 11, 37, 101, 328, 909, 2801
Offset: 0

Views

Author

Gus Wiseman, Sep 09 2022

Keywords

Comments

A multiset is gapless if it covers an interval of positive integers. For example, {2,3,3,4} is gapless but {1,1,3,3} is not.

Examples

			The a(1) = 1 through a(3) = 11 multiset partitions:
  {{1}}  {{1,1}}    {{1,1,1}}
         {{1,2}}    {{1,1,2}}
         {{1},{1}}  {{1,2,3}}
         {{1},{2}}  {{1},{1,1}}
                    {{1},{1,2}}
                    {{1},{2,3}}
                    {{2},{1,1}}
                    {{3},{1,2}}
                    {{1},{1},{1}}
                    {{1},{1},{2}}
                    {{1},{2},{3}}
		

Crossrefs

A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A011782 counts multisets covering an initial interval.
Gapless multisets are counted by A034296, ranked by A073491.
Other conditions: A035310, A063834, A330783, A356934, A356938, A356954.
Other types: A356233, A356941, A356942, A356944.

Programs

  • Mathematica
    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]]]];
    strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
    nogapQ[m_]:=Or[m=={},Union[m]==Range[Min[m],Max[m]]];
    Table[Length[Select[Join@@mps/@strnorm[n],And@@nogapQ/@#&]],{n,0,5}]

A382202 Number of normal multisets of size n that cannot be partitioned into a set of sets with distinct sums.

Original entry on oeis.org

0, 0, 1, 1, 3, 5, 9, 16, 27, 48, 78, 133
Offset: 0

Views

Author

Gus Wiseman, Mar 29 2025

Keywords

Comments

First differs from A292432 at a(9) = 48, A292432(9) = 46.
We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

Examples

			The normal multiset m = {1,1,1,2,2} has 3 partitions into a set of sets:
  {{1},{1,2},{1,2}}
  {{1},{1},{2},{1,2}}
  {{1},{1},{1},{2},{2}}
but none of these has distinct block-sums, so m is counted under a(5).
The a(2) = 1 through a(6) = 9 normal multisets:
  {1,1}  {1,1,1}  {1,1,1,1}  {1,1,1,1,1}  {1,1,1,1,1,1}
                  {1,1,1,2}  {1,1,1,1,2}  {1,1,1,1,1,2}
                  {1,2,2,2}  {1,1,1,2,2}  {1,1,1,1,2,2}
                             {1,1,2,2,2}  {1,1,1,1,2,3}
                             {1,2,2,2,2}  {1,1,1,2,2,2}
                                          {1,1,2,2,2,2}
                                          {1,2,2,2,2,2}
                                          {1,2,2,2,2,3}
                                          {1,2,3,3,3,3}
		

Crossrefs

Twice-partitions of this type are counted by A279785, without distinct sums A358914.
Without distinct sums we have A292432, complement A382214.
The strongly normal version without distinct sums is A292444, complement A381996.
Factorizations of this type are counted by A381633, without distinct sums A050326.
Normal multiset partitions of this type are counted by A381718, without distinct sums A116539.
For integer partitions the complement is A381990, ranks A381806, without distinct sums A382078, ranks A293243.
For integer partitions we have A381992, ranks A382075, without distinct sums A382077, ranks A382200.
The complement is counted by A382216.
The strongly normal version is A382430, complement A382460.
The case of a unique choice is counted by A382459, without distinct sums A382458.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count factorizations, strict A045778.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.
Set multipartitions: A089259, A270995, A296119, A318360.

Programs

  • Mathematica
    allnorm[n_Integer]:=Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1];
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]&/@sps[Range[Length[mset]]]];
    Table[Length[Select[allnorm[n],Length[Select[mps[#],And@@UnsameQ@@@#&&UnsameQ@@Total/@#&]]==0&]],{n,0,5}]

A331638 Number of binary matrices with nonzero rows, a total of n ones and each column with the same number of ones and columns in nonincreasing lexicographic order.

Original entry on oeis.org

1, 3, 5, 16, 17, 140, 65, 1395, 2969, 22176, 1025, 1050766, 4097, 13010328, 128268897, 637598438, 65537, 64864962683, 262145, 1676258452736, 28683380484257, 24908619669860, 4194305, 30567710172480050, 8756434134071649, 62128557507554504, 21271147396968151093
Offset: 1

Views

Author

Andrew Howroyd, Jan 23 2020

Keywords

Comments

The condition that the columns be in nonincreasing order is equivalent to considering nonequivalent matrices up to permutation of columns.
From Gus Wiseman, Apr 03 2025: (Start)
Also the number of multiset partitions such that (1) the blocks together cover an initial interval of positive integers, (2) the blocks are sets of a common size, and (3) the block-sizes sum to n. For example, the a(1) = 1 through a(4) = 16 multiset partitions are:
{{1}} {{1,2}} {{1,2,3}} {{1,2,3,4}}
{{1},{1}} {{1},{1},{1}} {{1,2},{1,2}}
{{1},{2}} {{1},{1},{2}} {{1,2},{1,3}}
{{1},{2},{2}} {{1,2},{2,3}}
{{1},{2},{3}} {{1,2},{3,4}}
{{1,3},{2,3}}
{{1,3},{2,4}}
{{1,4},{2,3}}
{{1},{1},{1},{1}}
{{1},{1},{1},{2}}
{{1},{1},{2},{2}}
{{1},{1},{2},{3}}
{{1},{2},{2},{2}}
{{1},{2},{2},{3}}
{{1},{2},{3},{3}}
{{1},{2},{3},{4}}
(End)

Crossrefs

For constant instead of strict blocks we have A034729.
Without equal sizes we have A116540 (normal set multipartitions).
Without strict blocks we have A317583.
For distinct instead of equal sizes we have A382428, non-strict blocks A326517.
For equal sums instead of sizes we have A382429, non-strict blocks A326518.
Normal multiset partitions: A255903, A255906, A317532, A382203, A382204, A382216.

Formula

a(n) = Sum_{d|n} A330942(n/d, d).
a(p) = 2^(p-1) + 1 for prime p.

A356954 Number of multisets of multisets, each covering an initial interval, whose multiset union is of size n and has weakly decreasing multiplicities.

Original entry on oeis.org

1, 1, 3, 6, 15, 30, 71, 145, 325, 680
Offset: 0

Views

Author

Gus Wiseman, Sep 09 2022

Keywords

Examples

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

Crossrefs

For unrestricted multiplicities we have A034691.
A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A011782 counts multisets covering an initial interval.
Other conditions: A035310, A063834, A330783, A356934, A356938, A356943.
Other types: A055932, A089259, A356945, A356955.

Programs

  • Mathematica
    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]]]];
    normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
    strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
    Table[Length[Select[Join@@mps/@strnorm[n],And@@normQ/@#&]],{n,0,5}]

A382458 Number of normal multisets of size n that can be partitioned into a set of sets in exactly one way.

Original entry on oeis.org

1, 1, 0, 2, 1, 3, 0, 7, 3, 11, 18, 9
Offset: 0

Views

Author

Gus Wiseman, Mar 30 2025

Keywords

Comments

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

Examples

			The normal multiset {1,2,2,2,2,3,3,4} has three multiset partitions into a set of sets:
  {{2},{1,2},{2,3},{2,3,4}}
  {{2},{2,3},{2,4},{1,2,3}}
  {{2},{3},{1,2},{2,3},{2,4}}
so is not counted under a(8).
The a(1) = 1 through a(7) = 7 normal multisets:
  {1}  .  {1,1,2}  {1,1,2,2}  {1,1,1,2,3}  .  {1,1,1,1,2,3,4}
          {1,2,2}             {1,2,2,2,3}     {1,1,1,2,2,2,3}
                              {1,2,3,3,3}     {1,1,1,2,3,3,3}
                                              {1,2,2,2,2,3,4}
                                              {1,2,2,2,3,3,3}
                                              {1,2,3,3,3,3,4}
                                              {1,2,3,4,4,4,4}
		

Crossrefs

For constant instead of strict blocks we have A000045.
Factorizations of this type are counted by A050326, with distinct sums A381633.
For the strong case see A292444, A382430, complement A381996, A382523.
MM-numbers of sets of sets are A302494, see A302478, A382201.
Twice-partitions into distinct sets are counted by A358914, with distinct sums A279785.
For integer partitions we have A382079 (A293511), with distinct sums A382460, (A381870).
With distinct sums we have A382459.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360.
Normal multiset partitions: A034691, A035310, A116539, A255906, A381718.
Set systems: A050342, A296120, A318361.

Programs

  • Mathematica
    allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]] /@ Subsets[Range[n-1]+1]];
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]] /@ Cases[Subsets[set],{i,_}];
    mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]& /@ sps[Range[Length[mset]]]];
    Table[Length[Select[allnorm[n], Length[Select[mps[#], UnsameQ@@#&&And@@UnsameQ@@@#&]]==1&]], {n,0,5}]

A382459 Number of normal multisets of size n that can be partitioned into a set of sets with distinct sums in exactly one way.

Original entry on oeis.org

1, 1, 0, 2, 1, 3, 2, 7, 4, 10, 19
Offset: 0

Views

Author

Gus Wiseman, Apr 01 2025

Keywords

Comments

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

Examples

			The normal multiset {1,2,2,2,2,3,3,4} has only one multiset partition into a set of sets with distinct sums: {{2},{1,2},{2,3},{2,3,4}}, so is counted under a(8).
The a(1) = 1 through a(7) = 7 multisets:
  {1}  .  {112}  {1122}  {11123}  {111233}  {1111234}
          {122}          {12223}  {122233}  {1112223}
                         {12333}            {1112333}
                                            {1222234}
                                            {1222333}
                                            {1233334}
                                            {1234444}
		

Crossrefs

Twice-partitions of this type are counted by A279785, A270995, A358914.
Factorizations of this type are counted by A381633, A050320, A050326.
Normal multiset partitions of this type are A381718, A116540, A116539.
Multiset partitions of this type are ranked by A382201, A302478, A302494.
For at least one choice: A382216 (strict A382214), complement A382202 (strict A292432).
For the strong case see: A382430 (strict A292444), complement A382523 (strict A381996).
Without distinct sums we have A382458.
For integer partitions we have A382460, ranks A381870, strict A382079, ranks A293511.
Set multipartitions: A089259, A296119, A318360.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.

Programs

  • Mathematica
    allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]&/@sps[Range[Length[mset]]]];
    Table[Length[Select[allnorm[n],Length[Select[mps[#],UnsameQ@@Total/@#&&And@@UnsameQ@@@#&]]==1&]],{n,0,5}]
Previous Showing 21-30 of 32 results. Next