A330666 -id:A330666 - cp's OEIS frontend

A330474 Number of non-isomorphic balanced reduced multisystems of weight n.

1, 1, 2, 7, 48, 424

Offset: 0

Gus Wiseman, Dec 26 2019

A balanced reduced multisystem is either a finite multiset, or a multiset partition with at least two parts, not all of which are singletons, of a balanced reduced multisystem. The weight of an atom is 1, while the weight of a multiset is the sum of weights of its elements.

			Non-isomorphic representatives of the a(3) = 7 multisystems:
  {1,1,1}
  {1,1,2}
  {1,2,3}
  {{1},{1,1}}
  {{1},{1,2}}
  {{1},{2,3}}
  {{2},{1,1}}
Non-isomorphic representatives of the a(4) = 48 multisystems:
  {1,1,1,1}  {{1},{1,1,1}}    {{{1}},{{1},{1,1}}}
  {1,1,1,2}  {{1,1},{1,1}}    {{{1,1}},{{1},{1}}}
  {1,1,2,2}  {{1},{1,1,2}}    {{{1}},{{1},{1,2}}}
  {1,1,2,3}  {{1,1},{1,2}}    {{{1,1}},{{1},{2}}}
  {1,2,3,4}  {{1},{1,2,2}}    {{{1}},{{1},{2,2}}}
             {{1,1},{2,2}}    {{{1,1}},{{2},{2}}}
             {{1},{1,2,3}}    {{{1}},{{1},{2,3}}}
             {{1,1},{2,3}}    {{{1,1}},{{2},{3}}}
             {{1,2},{1,2}}    {{{1}},{{2},{1,1}}}
             {{1,2},{1,3}}    {{{1,2}},{{1},{1}}}
             {{1},{2,3,4}}    {{{1}},{{2},{1,2}}}
             {{1,2},{3,4}}    {{{1,2}},{{1},{2}}}
             {{2},{1,1,1}}    {{{1}},{{2},{1,3}}}
             {{2},{1,1,3}}    {{{1,2}},{{1},{3}}}
             {{1},{1},{1,1}}  {{{1}},{{2},{3,4}}}
             {{1},{1},{1,2}}  {{{1,2}},{{3},{4}}}
             {{1},{1},{2,2}}  {{{2}},{{1},{1,1}}}
             {{1},{1},{2,3}}  {{{2}},{{1},{1,3}}}
             {{1},{2},{1,1}}  {{{2}},{{3},{1,1}}}
             {{1},{2},{1,2}}  {{{2,3}},{{1},{1}}}
             {{1},{2},{1,3}}
             {{1},{2},{3,4}}
             {{2},{3},{1,1}}

Labeled versions are A330475 (strongly normal) and A330655 (normal).
The case where the atoms are all different is A318813.
The case where the atoms are all equal is (also) A318813.
The labeled case of set partitions is A005121.
The labeled case of integer partitions is A330679.
The case of maximal depth is A330663.
The version where leaves are sets (as opposed to multisets) is A330668.
Cf. A000311, A000669, A001678, A002846, A004114, A007716, A048816, A213427, A306186, A320154, A320160, A330470, A330666.

A330664 Number of non-isomorphic balanced reduced multisystems of maximum depth whose degrees (atom multiplicities) are the weakly decreasing prime indices of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 1, 4, 5, 5, 7, 16, 16, 27, 2, 61, 33, 272, 27, 123, 61, 1385, 27, 78, 272, 95, 123, 7936, 362

Offset: 1

Gus Wiseman, Dec 28 2019

A balanced reduced multisystem is either a finite multiset, or a multiset partition with at least two parts, not all of which are singletons, of a balanced reduced multisystem.

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. A multiset whose multiplicities are the prime indices of n (such as row n of A305936) is generally not the same as the multiset of prime indices of n. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.

			Non-isomorphic representatives of the a(n) multisystems for n = 2, 3, 6, 9, 10, 12 (commas and outer brackets elided):
  1  11  {1}{12}  {{1}}{{1}{22}}  {{1}}{{1}{12}}  {{1}}{{1}{23}}
         {2}{11}  {{11}}{{2}{2}}  {{11}}{{1}{2}}  {{11}}{{2}{3}}
                  {{1}}{{2}{12}}  {{1}}{{2}{11}}  {{1}}{{2}{13}}
                  {{12}}{{1}{2}}  {{12}}{{1}{1}}  {{12}}{{1}{3}}
                                  {{2}}{{1}{11}}  {{2}}{{1}{13}}
                                                  {{2}}{{3}{11}}
                                                  {{23}}{{1}{1}}

The non-maximal version is A330666.
The case of constant or strict atoms is A000111.
Labeled versions are A330728, A330665 (prime indices), and A330675 (strongly normal).
Non-isomorphic multiset partitions whose degrees are the prime indices of n are A318285.
Cf. A004114, A005121, A007716, A048816, A141268, A306186, A318846, A318848, A330470, A330474, A330663.

For n > 1, a(2^n) = a(prime(n)) = A000111(n - 1).

A330728 Number of balanced reduced multisystems of maximum depth whose degrees (atom multiplicities) are the prime indices of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 3, 7, 5, 5, 11, 16, 16, 27, 18, 61, 62, 272, 45, 123, 61, 1385, 105, 152, 272, 501, 211, 7936, 362

Offset: 1

Gus Wiseman, Dec 30 2019

A balanced reduced multisystem is either a finite multiset, or a multiset partition with at least two parts, not all of which are singletons, of a balanced reduced multisystem.

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. A multiset whose multiplicities are the prime indices of n (such as row n of A305936) is generally not the same as the multiset of prime indices of n. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.

			The a(n) multisystems for n = 3, 6, 8, 9, 10, 12 (commas and outer brackets elided):
  11  {1}{12}  {1}{23}  {{1}}{{1}{22}}  {{1}}{{1}{12}}  {{1}}{{1}{23}}
      {2}{11}  {2}{13}  {{11}}{{2}{2}}  {{11}}{{1}{2}}  {{11}}{{2}{3}}
               {3}{12}  {{1}}{{2}{12}}  {{1}}{{2}{11}}  {{1}}{{2}{13}}
                        {{12}}{{1}{2}}  {{12}}{{1}{1}}  {{12}}{{1}{3}}
                        {{2}}{{1}{12}}  {{2}}{{1}{11}}  {{1}}{{3}{12}}
                        {{2}}{{2}{11}}                  {{13}}{{1}{2}}
                        {{22}}{{1}{1}}                  {{2}}{{1}{13}}
                                                        {{2}}{{3}{11}}
                                                        {{23}}{{1}{1}}
                                                        {{3}}{{1}{12}}
                                                        {{3}}{{2}{11}}

The version with distinct atoms is A006472.
The non-maximal version is A318846.
A tree version is A318848, with orderless version A318849.
The unlabeled version is A330664.
Final terms in each row of A330727.
See also A330675 (strongly normal), A330676 (normal), and A330726 (partition).
Cf. A000111, A001055, A005121, A292504, A292505, A317145, A330665, A330666.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[Reverse[FactorInteger[n]],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
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]]]];
totm[m_]:=Prepend[Join@@Table[totm[p],{p,Select[mps[m],1

a(2^n) = A006472(n).

a(prime(n)) = A000111(n - 1).

A330727 Irregular triangle read by rows where T(n,k) is the number of balanced reduced multisystems of depth k whose degrees (atom multiplicities) are the prime indices of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 2, 1, 3, 1, 7, 7, 1, 5, 5, 1, 5, 9, 5, 1, 9, 11, 1, 9, 28, 36, 16, 1, 10, 24, 16, 1, 14, 38, 27, 1, 13, 18, 1, 13, 69, 160, 164, 61, 1, 24, 79, 62, 1, 20, 160, 580, 1022, 855, 272, 1, 19, 59, 45, 1, 27, 138, 232, 123, 1, 17, 77, 121, 61

Offset: 2

Gus Wiseman, Jan 04 2020

A balanced reduced multisystem is either a finite multiset, or a multiset partition with at least two parts, not all of which are singletons, of a balanced reduced multisystem.

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. A multiset whose multiplicities are the prime indices of n (such as row n of A305936) is generally not the same as the multiset of prime indices of n. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.

			Triangle begins:
   {}
   1
   1
   1   1
   1   2
   1   3   2
   1   3
   1   7   7
   1   5   5
   1   5   9   5
   1   9  11
   1   9  28  36  16
   1  10  24  16
   1  14  38  27
   1  13  18
   1  13  69 160 164  61
   1  24  79  62
For example, row n = 12 counts the following multisystems:
  {1,1,2,3}  {{1},{1,2,3}}    {{{1}},{{1},{2,3}}}
             {{1,1},{2,3}}    {{{1,1}},{{2},{3}}}
             {{1,2},{1,3}}    {{{1}},{{2},{1,3}}}
             {{2},{1,1,3}}    {{{1,2}},{{1},{3}}}
             {{3},{1,1,2}}    {{{1}},{{3},{1,2}}}
             {{1},{1},{2,3}}  {{{1,3}},{{1},{2}}}
             {{1},{2},{1,3}}  {{{2}},{{1},{1,3}}}
             {{1},{3},{1,2}}  {{{2}},{{3},{1,1}}}
             {{2},{3},{1,1}}  {{{2,3}},{{1},{1}}}
                              {{{3}},{{1},{1,2}}}
                              {{{3}},{{2},{1,1}}}

Row sums are A318846.
Final terms in each row are A330728.
Row prime(n) is row n of A330784.
Row 2^n is row n of A008826.
Row n is row A181821(n) of A330667.
Column k = 3 is A318284(n) - 2 for n > 2.
Cf. A000111, A002846, A005121, A292504, A318812, A318813, A318847, A318848, A318849, A330475, A330666, A330935.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[Reverse[FactorInteger[n]],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
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]]]];
totm[m_]:=Prepend[Join@@Table[totm[p],{p,Select[mps[m],1

T(2^n,k) = A008826(n,k).

A330667 Irregular triangle read by rows where T(n,k) is the number of balanced reduced multisystems of depth k whose atoms are the prime indices of n.

Original entry on oeis.org

1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 2, 0, 1, 1, 0, 1, 0, 1, 3, 2, 0, 1, 1, 2, 0, 1, 1, 2, 0, 1, 0, 1, 0, 1, 1, 5, 5, 0, 1, 0, 1, 0, 1, 1, 0, 1, 2, 0, 1, 1, 3, 0, 1, 1, 5, 9, 5, 0, 1, 0, 1, 0, 1, 0, 1, 7, 7, 0, 1, 1, 0, 1, 0, 1, 5, 5, 0, 1, 1, 3

Offset: 1

Gus Wiseman, Dec 27 2019

A balanced reduced multisystem is either a finite multiset, or a multiset partition with at least two parts, not all of which are singletons, of a balanced reduced multisystem.

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.

			Triangle begins:
  {}
  1
  1
  1 0
  1
  1 0
  1
  1 1 0
  1 0
  1 0
  1
  1 2 0
  1
  1 0
  1 0
  1 3 2 0
  1
  1 2 0
  1
  1 2 0
Row n = 84 counts the following multisystems (commas elided):
  {1124}  {{1}{124}}    {{{1}}{{1}{24}}}
          {{11}{24}}    {{{11}}{{2}{4}}}
          {{12}{14}}    {{{1}}{{2}{14}}}
          {{2}{114}}    {{{12}}{{1}{4}}}
          {{4}{112}}    {{{1}}{{4}{12}}}
          {{1}{1}{24}}  {{{14}}{{1}{2}}}
          {{1}{2}{14}}  {{{2}}{{1}{14}}}
          {{1}{4}{12}}  {{{2}}{{4}{11}}}
          {{2}{4}{11}}  {{{24}}{{1}{1}}}
                        {{{4}}{{1}{12}}}
                        {{{4}}{{2}{11}}}

Row lengths are A001222.
Row sums are A318812.
The last nonzero term of row n is A330665(n).
Column k = 2 is 0 if n is prime; otherwise it is A001055(n) - 2.
Cf. A000311, A000669, A001678, A005121, A008827, A213427, A317145, A318846, A330474, A330475, A330655, A330666.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
totfac[n_,k_]:=If[k==1,1,Sum[totfac[Times@@Prime/@f,k-1],{f,Select[facs[n],1

cp's OEIS Frontend

A330474 Number of non-isomorphic balanced reduced multisystems of weight n.

Views

Author

Keywords

Comments

Examples

Crossrefs

A330664 Number of non-isomorphic balanced reduced multisystems of maximum depth whose degrees (atom multiplicities) are the weakly decreasing prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

A330728 Number of balanced reduced multisystems of maximum depth whose degrees (atom multiplicities) are the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A330727 Irregular triangle read by rows where T(n,k) is the number of balanced reduced multisystems of depth k whose degrees (atom multiplicities) are the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A330667 Irregular triangle read by rows where T(n,k) is the number of balanced reduced multisystems of depth k whose atoms are the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica