A356936 -id:A356936 - cp's OEIS frontend

A356939 MM-numbers of multisets of intervals. Products of primes indexed by members of A073485.

1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 20, 22, 24, 25, 26, 27, 30, 31, 32, 33, 34, 36, 39, 40, 41, 44, 45, 47, 48, 50, 51, 52, 54, 55, 59, 60, 62, 64, 65, 66, 67, 68, 72, 75, 78, 80, 81, 82, 83, 85, 88, 90, 93, 94, 96, 99, 100, 102, 104, 108

Offset: 1

Gus Wiseman, Sep 12 2022

nonn

An interval such as {3,4,5} is a set of positive integers with all differences of adjacent elements equal to 1.
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.
We define the multiset of multisets with MM-number n to be formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. The size of this multiset of multisets is A302242(n). For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.

			The initial terms and corresponding multisets of multisets:
   1: {}
   2: {{}}
   3: {{1}}
   4: {{},{}}
   5: {{2}}
   6: {{},{1}}
   8: {{},{},{}}
   9: {{1},{1}}
  10: {{},{2}}
  11: {{3}}
  12: {{},{},{1}}
  13: {{1,2}}
  15: {{1},{2}}
  16: {{},{},{},{}}

Gus Wiseman, Counting and ranking classes of multiset partitions related to gapless multisets

The initial version is A356940.
Intervals are counted by A000012, A001227, ranked by A073485.
Other types: A107742, A356936, A356937, A356938.
Other conditions: A302478, A302492, A356930, A356935, A356944, A356955.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, sum A001414.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
Cf. A000040, A000720, A003963, A055887, A076610, A270995, A302242, A304969.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
chQ[y_]:=Or[Length[y]<=1,Union[Differences[y]]=={1}];
Select[Range[100],And@@chQ/@primeMS/@primeMS[#]&]

A356937 Number of multisets of intervals whose multiset union is of size n and covers an initial interval of positive integers.

Original entry on oeis.org

1, 1, 3, 9, 29, 94, 310, 1026, 3411, 11360, 37886, 126442, 422203, 1410189, 4711039, 15740098, 52593430, 175742438, 587266782, 1962469721, 6558071499, 21915580437, 73237274083, 244744474601, 817889464220, 2733235019732, 9133973730633, 30524096110942, 102006076541264

Offset: 0

Gus Wiseman, Sep 08 2022

nonn

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

			The a(1) = 1 through a(3) = 9 set multipartitions (multisets of sets):
  {{1}}  {{1,2}}    {{1,2,3}}
         {{1},{1}}  {{1},{1,2}}
         {{1},{2}}  {{1},{2,3}}
                    {{2},{1,2}}
                    {{3},{1,2}}
                    {{1},{1},{1}}
                    {{1},{1},{2}}
                    {{1},{2},{2}}
                    {{1},{2},{3}}

Andrew Howroyd, Table of n, a(n) for n = 0..200
Gus Wiseman, Counting and ranking classes of multiset partitions related to gapless multisets

A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A011782 counts multisets covering an initial interval.
Cf. A055887, A063834, A270995, A304969, A349050, A349055.
Intervals are counted by A000012, A001227, ranked by A073485.
Other conditions: A034691, A116540, A255906, A356933, A356942.
Other types: A107742, A356936, A356938, A356939.

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[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/@allnorm[n],And@@chQ/@#&]],{n,0,5}]

EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
R(n,k) = {EulerT(vector(n, j, max(0, 1+k-j)))}
seq(n) = {my(A=1+O(y*y^n)); for(k = 1, n, A += x^k*(1 + y*Ser(R(n,k), y) - polcoef(1/(1 - x*A) + O(x^(k+2)), k+1))); Vec(subst(A,x,1))} \\ Andrew Howroyd, Jan 01 2023

Terms a(10) and beyond from Andrew Howroyd, Jan 01 2023

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

Gus Wiseman, Sep 09 2022

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

			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}}

Gus Wiseman, Counting and ranking classes of multiset partitions related to gapless multisets

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.
Other types: A107742, A356936, A356937, A356939, A356943, A356954.
Cf. A055887, A072233, A270995, A304969, A349050, A349055.

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}]

A356945 Number of multiset partitions of the prime indices of n such that each block covers an initial interval. Number of factorizations of n into members of A055932.

Original entry on oeis.org

1, 1, 0, 2, 0, 1, 0, 3, 0, 0, 0, 2, 0, 0, 0, 5, 0, 1, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 1, 0, 7, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 11, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Sep 08 2022

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.

			The a{n} multiset partitions for n = 8, 24, 72, 96:
  {{111}}      {{1112}}      {{11122}}      {{111112}}
  {{1}{11}}    {{1}{112}}    {{1}{1122}}    {{1}{11112}}
  {{1}{1}{1}}  {{11}{12}}    {{11}{122}}    {{11}{1112}}
               {{1}{1}{12}}  {{12}{112}}    {{111}{112}}
                             {{1}{1}{122}}  {{12}{1111}}
                             {{1}{12}{12}}  {{1}{1}{1112}}
                                            {{1}{11}{112}}
                                            {{11}{11}{12}}
                                            {{1}{12}{111}}
                                            {{1}{1}{1}{112}}
                                            {{1}{1}{11}{12}}
                                            {{1}{1}{1}{1}{12}}

Gus Wiseman, Counting and ranking classes of multiset partitions related to gapless multisets

Positions of 0's are A080259, complement A055932.
A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, with sum A001414.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Multisets covering an initial interval are counted by A000009, A000041, A011782, ranked by A055932.
Other types: A034691, A089259, A356954, A356955.
Other conditions: A050320, A050330, A322585, A356233, A356931, A356936.
Cf. A003963, A073491, A107742, A287170, A324929, A340852, A356234.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
nnQ[m_]:=PrimePi/@First/@FactorInteger[m]==Range[PrimePi[Max@@First/@FactorInteger[m]]];
Table[Length[Select[facs[n],And@@nnQ/@#&]],{n,100}]

A356931 Number of multiset partitions of the prime indices of n into multisets of odd numbers. Number of factorizations of n into members of A066208.

Original entry on oeis.org

1, 1, 0, 2, 1, 0, 0, 3, 0, 2, 1, 0, 0, 0, 0, 5, 1, 0, 0, 4, 0, 2, 1, 0, 2, 0, 0, 0, 0, 0, 1, 7, 0, 2, 0, 0, 0, 0, 0, 7, 1, 0, 0, 4, 0, 2, 1, 0, 0, 4, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 2, 0, 11, 0, 0, 1, 4, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 12, 0, 2, 1, 0, 2, 0

Offset: 1

Gus Wiseman, Sep 08 2022

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.

			The a(440) = 21 multiset partitions of {1,1,1,3,5}:
  {1}{1}{1}{3}{5}  {1}{1}{1}{35}  {1}{1}{135}  {1}{1135}  {11135}
                   {1}{1}{13}{5}  {1}{11}{35}  {11}{135}
                   {1}{11}{3}{5}  {11}{13}{5}  {111}{35}
                   {1}{1}{3}{15}  {1}{13}{15}  {113}{15}
                                  {11}{3}{15}  {13}{115}
                                  {1}{3}{115}  {3}{1115}
                                  {1}{5}{113}  {5}{1113}
                                  {3}{111}{5}

Gus Wiseman, Counting and ranking classes of multiset partitions related to gapless multisets

Positions of 0's are A324929, complement A066208.
A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, sum A001414.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Other types: A000009, A000012, A000041, A089259, A356930.
Other conditions: A050320, A050330, A356936, A322585, A356233, A356945.
Cf. A003963, A073491, A107742, A287170, A325534, A325535, A340852, A356234.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],And@@(OddQ[Times@@primeMS[#]]&/@#)&]],{n,100}]

a(n) = 0 if n is in A324929, otherwise a(n) = A001055(n).

A356957 Number of set partitions of strict integer partitions of n into intervals, where an interval is a set of positive integers with all differences of adjacent elements equal to 1.

Original entry on oeis.org

1, 1, 1, 3, 2, 4, 7, 7, 8, 13, 20, 19, 27, 30, 42, 60, 63, 75, 99, 112, 141, 191, 205, 248, 296, 357, 408, 513, 617, 696, 831, 969, 1117, 1337, 1523, 1797, 2171, 2420, 2805, 3265, 3772, 4289, 5013, 5661, 6579, 7679, 8615, 9807, 11335, 12799, 14581

Offset: 0

Gus Wiseman, Sep 13 2022

nonn

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

Intervals are counted by A000012, A001227, ranked by A073485.
The initial version is A010054.
For set partitions of {1..n} we have A011782.
The non-strict version is A107742
Not restricting to intervals gives A294617.
More types: A356936, A356937, A356938, A356939, A356940.
A000041 counts integer partitions, strict A000009.
A000110 counts set partitions.
A001970 counts multiset partitions of integer partitions.
A356941 counts multiset partitions of integer partitions w/ gapless blocks.
Cf. A001055, A055887, A061260, A270995, A304969, A349050, A349055.

chQ[y_] := Length[y] <= 1 || Union[Differences[y]] == {1};
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[Join@@sps/@Reverse/@Select[IntegerPartitions[n], UnsameQ@@#&],And@@chQ/@#&]],{n,0,15}]

cp's OEIS Frontend

A356939 MM-numbers of multisets of intervals. Products of primes indexed by members of A073485.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A356937 Number of multisets of intervals whose multiset union is of size n and covers an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

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.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A356945 Number of multiset partitions of the prime indices of n such that each block covers an initial interval. Number of factorizations of n into members of A055932.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A356931 Number of multiset partitions of the prime indices of n into multisets of odd numbers. Number of factorizations of n into members of A066208.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A356957 Number of set partitions of strict integer partitions of n into intervals, where an interval is a set of positive integers with all differences of adjacent elements equal to 1.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica