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 41-50 of 50 results.

A317143 In the ranked poset of integer partitions ordered by refinement, row n lists the Heinz numbers of integer partitions finer (less) than or equal to the integer partition with Heinz number n.

Original entry on oeis.org

1, 2, 3, 4, 4, 5, 6, 8, 6, 8, 7, 9, 10, 12, 16, 8, 9, 12, 16, 10, 12, 16, 11, 14, 15, 18, 20, 24, 32, 12, 16, 13, 21, 22, 25, 27, 28, 30, 36, 40, 48, 64, 14, 18, 20, 24, 32, 15, 18, 20, 24, 32, 16, 17, 26, 33, 35, 42, 44, 45, 50, 54, 56, 60, 72, 80, 96, 128
Offset: 1

Views

Author

Gus Wiseman, Jul 22 2018

Keywords

Comments

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
If x and y are partitions of the same integer and it is possible to produce x by further partitioning the parts of y, flattening, and sorting, then x <= y.

Examples

			The partitions finer than or equal to (2,2) are (2,2), (2,1,1), (1,1,1,1), with Heinz numbers 9, 12, 16, so the 9th row is {9, 12, 16}.
Triangle begins:
   1
   2
   3   4
   4
   5   6   8
   6   8
   7   9  10  12  16
   8
   9  12  16
  10  12  16
  11  14  15  18  20  24  32
  12  16
  13  21  22  25  27  28  30  36  40  48  64
  14  18  20  24  32
  15  18  20  24  32
  16
  17  26  33  35  42  44  45  50  54  56  60  72  80  96 128
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Union[Times@@@Map[Prime,Join@@@Tuples[IntegerPartitions/@primeMS[n]],{2}]],{n,12}]

A317176 Number of chains of factorizations of n into factors > 1, ordered by refinement, starting with the prime factorization of n and ending with the maximum factorization (n).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 6, 1, 3, 1, 3, 1, 1, 1, 11, 1, 1, 2, 3, 1, 4, 1, 18, 1, 1, 1, 15, 1, 1, 1, 11, 1, 4, 1, 3, 3, 1, 1, 49, 1, 3, 1, 3, 1, 11, 1, 11, 1, 1, 1, 21, 1, 1, 3, 74, 1, 4, 1, 3, 1, 4, 1, 78, 1, 1, 3, 3, 1, 4, 1, 49, 6, 1, 1
Offset: 1

Views

Author

Gus Wiseman, Jul 23 2018

Keywords

Comments

If x and y are factorizations of the same integer and it is possible to produce x by further factoring the factors of y, flattening, and sorting, then x <= y.

Examples

			The a(24) = 11 chains:
  (2*2*2*3) < (24)
  (2*2*2*3) < (2*12)  < (24)
  (2*2*2*3) < (3*8)   < (24)
  (2*2*2*3) < (4*6)   < (24)
  (2*2*2*3) < (2*2*6) < (24)
  (2*2*2*3) < (2*3*4) < (24)
  (2*2*2*3) < (2*2*6) < (2*12) < (24)
  (2*2*2*3) < (2*2*6) < (4*6)  < (24)
  (2*2*2*3) < (2*3*4) < (2*12) < (24)
  (2*2*2*3) < (2*3*4) < (3*8)  < (24)
  (2*2*2*3) < (2*3*4) < (4*6)  < (24)
		

Crossrefs

Formula

a(prime^n) = A213427(n).

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

Views

Author

Gus Wiseman, Dec 27 2019

Keywords

Comments

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.

Examples

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

Crossrefs

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.

Programs

  • Mathematica
    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
    				

A323719 Array read by antidiagonals upwards where A(n, k) is the number of orderless factorizations of n with k - 1 levels of parentheses.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 4, 1, 1, 1, 1, 1, 3, 1, 5, 1, 1, 1, 1, 3, 1, 4, 1, 6, 1, 1, 1, 1, 2, 6, 1, 5, 1, 7, 1, 1, 1, 1, 2, 3, 10, 1, 6, 1, 8, 1, 1, 1, 1, 1, 3, 4, 15, 1, 7, 1, 9, 1, 1, 1, 1, 4, 1, 4, 5, 21, 1, 8, 1, 10, 1, 1, 1
Offset: 1

Views

Author

Gus Wiseman, Jan 25 2019

Keywords

Comments

An orderless factorization of n with k > 1 levels of parentheses is any multiset partition of an orderless factorization of n with k - 1 levels of parentheses. If k = 1 it is just an orderless factorization of n into factors > 1.

Examples

			Array begins:
       k=0  k=1  k=2  k=3  k=4  k=5  k=6  k=7  k=8  k=9  k=10 k=11 k=12
   n=1: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=2: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=3: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=4: 1    2    3    4    5    6    7    8    9   10   11   12   13
   n=5: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=6: 1    2    3    4    5    6    7    8    9   10   11   12   13
   n=7: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=8: 1    3    6   10   15   21   28   36   45   55   66   78   91
   n=9: 1    2    3    4    5    6    7    8    9   10   11   12   13
  n=10: 1    2    3    4    5    6    7    8    9   10   11   12   13
  n=11: 1    1    1    1    1    1    1    1    1    1    1    1    1
  n=12: 1    4    9   16   25   36   49   64   81  100  121  144  169
  n=13: 1    1    1    1    1    1    1    1    1    1    1    1    1
  n=14: 1    2    3    4    5    6    7    8    9   10   11   12   13
  n=15: 1    2    3    4    5    6    7    8    9   10   11   12   13
  n=16: 1    5   14   30   55   91  140  204  285  385  506  650  819
  n=17: 1    1    1    1    1    1    1    1    1    1    1    1    1
  n=18: 1    4    9   16   25   36   49   64   81  100  121  144  169
The A(12,3) = 16 orderless factorizations of 12 with 2 levels of parentheses:
  ((2*2*3))          ((2*6))      ((3*4))      ((12))
  ((2)*(2*3))        ((2)*(6))    ((3)*(4))
  ((3)*(2*2))        ((2))*((6))  ((3))*((4))
  ((2))*((2*3))
  ((2)*(2)*(3))
  ((3))*((2*2))
  ((2))*((2)*(3))
  ((3))*((2)*(2))
  ((2))*((2))*((3))
		

Crossrefs

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    lev[n_,k_]:=If[k==0,{n},Join@@Table[Union[Sort/@Tuples[lev[#,k-1]&/@fac]],{fac,facs[n]}]];
    Table[Length[lev[sum-k,k]],{sum,12},{k,0,sum-1}]

A330784 Triangle read by rows where T(n,k) is the number of balanced reduced multisystems of depth k with n equal atoms.

Original entry on oeis.org

1, 1, 1, 1, 3, 2, 1, 5, 9, 5, 1, 9, 28, 36, 16, 1, 13, 69, 160, 164, 61, 1, 20, 160, 580, 1022, 855, 272, 1, 28, 337, 1837, 4996, 7072, 4988, 1385
Offset: 2

Views

Author

Gus Wiseman, Jan 03 2020

Keywords

Comments

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.

Examples

			Triangle begins:
    1
    1    1
    1    3    2
    1    5    9    5
    1    9   28   36   16
    1   13   69  160  164   61
    1   20  160  580 1022  855  272
    1   28  337 1837 4996 7072 4988 1385
Row n = 5 counts the following multisystems (strings of 1's are replaced by their lengths):
  5  {1,4}      {{1},{1,3}}      {{{1}},{{1},{1,2}}}
     {2,3}      {{1},{2,2}}      {{{1,1}},{{1},{2}}}
     {1,1,3}    {{2},{1,2}}      {{{1}},{{2},{1,1}}}
     {1,2,2}    {{3},{1,1}}      {{{1,2}},{{1},{1}}}
     {1,1,1,2}  {{1},{1,1,2}}    {{{2}},{{1},{1,1}}}
                {{1,1},{1,2}}
                {{2},{1,1,1}}
                {{1},{1},{1,2}}
                {{1},{2},{1,1}}
		

Crossrefs

Row sums are A318813.
Column k = 3 is A007042.
Column k = 4 is A001970(n) - 3*A000041(n) + 3.
Column k = n is A000111.
Row n is row prime(n) of A330727.

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]]]];
    totm[m_]:=Prepend[Join@@Table[totm[p],{p,Select[mps[m],1
    				

Formula

T(n,3) = A000041(n) - 2.
T(n,4) = A001970(n) - 3 * A000041(n) + 3.

A213597 Triangle T(n,k), n>=1, 0<=k<=A000041(n), read by rows: row n gives the coefficients of the chromatic polynomial of the ranked poset L(n) of partitions of n, highest powers first.

Original entry on oeis.org

1, 0, 1, -1, 0, 1, -2, 1, 0, 1, -5, 10, -9, 3, 0, 1, -9, 36, -79, 98, -64, 17, 0, 1, -17, 136, -666, 2192, -5032, 8111, -9013, 6569, -2818, 537, 0, 1, -28, 378, -3242, 19648, -88676, 306308, -819933, 1703404, -2723374, 3285552, -2887734, 1739326, -639065, 107435, 0
Offset: 1

Views

Author

Alois P. Heinz, Jun 15 2012

Keywords

Comments

The ranked poset L(n) of partitions is defined in A002846. A partition of n into k parts is connected to another partition of n into k+1 parts that results from splitting one part of the first partition into two parts.

Examples

			L(5):     (32)---(221)
         /    \ /     \
        /      X       \
       /      / \       \
    (5)---(41)---(311)---(2111)---(11111)
Chromatic polynomial: q^7-9*q^6+36*q^5-79*q^4+98*q^3-64*q^2+17*q.
Triangle T(n,k) begins:
  1,   0;
  1,  -1,   0;
  1,  -2,   1,    0;
  1,  -5,  10,   -9,    3,     0;
  1,  -9,  36,  -79,   98,   -64,   17,     0;
  1, -17, 136, -666, 2192, -5032, 8111, -9013, 6569, -2818, 537, 0;
		

Crossrefs

Row lengths give: 1+A000041(n) = A052810(n).
Row sums (for n>1) and last elements of rows give: A000004.
Columns k=1-2 give: A000012, (-1)*A000097(n-2).

Extensions

Edited by Alois P. Heinz at the suggestion of Gus Wiseman, May 02 2016

A330726 Number of balanced reduced multisystems of maximum depth whose atoms are positive integers summing to n.

Original entry on oeis.org

1, 1, 2, 3, 7, 17, 54, 199, 869, 4341, 24514, 154187
Offset: 0

Views

Author

Gus Wiseman, Jan 03 2020

Keywords

Comments

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.

Examples

			The a(1) = 1 through a(5) = 17 multisystems (commas elided):
  {1}  {2}   {3}        {4}               {5}
       {11}  {12}       {22}              {23}
             {{1}{11}}  {13}              {14}
                        {{1}{12}}         {{1}{13}}
                        {{2}{11}}         {{1}{22}}
                        {{{1}}{{1}{11}}}  {{2}{12}}
                        {{{11}}{{1}{1}}}  {{3}{11}}
                                          {{{1}}{{1}{12}}}
                                          {{{11}}{{1}{2}}}
                                          {{{1}}{{2}{11}}}
                                          {{{12}}{{1}{1}}}
                                          {{{2}}{{1}{11}}}
                                          {{{{1}}}{{{1}}{{1}{11}}}}
                                          {{{{1}}}{{{11}}{{1}{1}}}}
                                          {{{{1}{1}}}{{{1}}{{11}}}}
                                          {{{{1}{11}}}{{{1}}{{1}}}}
                                          {{{{11}}}{{{1}}{{1}{1}}}}
		

Crossrefs

The case with all atoms equal to 1 is A000111.
The non-maximal version is A330679.
A tree version is A320160.

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]]]];
    totm[m_]:=Prepend[Join@@Table[totm[p],{p,Select[mps[m],1
    				

A300384 In the ranked poset of integer partitions ordered by refinement, number of maximal chains from the local minimum to the partition with Heinz number n.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 2, 1, 1, 1, 4, 1, 11, 2, 2, 1, 33, 1, 116, 1, 5, 4, 435, 1, 2, 11, 1, 2, 1832, 2, 8167, 1, 12, 33, 10, 1, 39700, 116, 37, 1, 201785, 5, 1099449, 4, 3, 435, 6237505, 1, 19, 2, 123, 11, 37406458, 1, 27, 2, 474, 1832, 232176847, 2, 1513796040
Offset: 1

Views

Author

Gus Wiseman, Mar 04 2018

Keywords

Comments

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

Examples

			The a(21) = 5 maximal chains are the rows:
(111111)<(21111)<(2211)<(222)<(42)
(111111)<(21111)<(2211)<(411)<(42)
(111111)<(21111)<(2211)<(321)<(42)
(111111)<(21111)<(3111)<(411)<(42)
(111111)<(21111)<(3111)<(321)<(42)
		

Crossrefs

Programs

  • Mathematica
    pcovs[ptn_]:=Select[Union[Reverse/@Sort/@Join@@@Tuples[IntegerPartitions/@ptn]],Length[#]===Length[ptn]+1&];
    coc[ptn_]:=coc[ptn]=If[Max[ptn]===1,1,Total[coc/@pcovs[ptn]]];
    primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[coc[Reverse[primeMS[n]]],{n,50}]

A330785 Triangle read by rows where T(n,k) is the number of chains of length k from minimum to maximum in the poset of integer partitions of n ordered by refinement.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 3, 2, 0, 1, 5, 8, 4, 0, 1, 9, 25, 28, 11, 0, 1, 13, 57, 111, 99, 33, 0, 1, 20, 129, 379, 561, 408, 116, 0, 1, 28, 253, 1057, 2332, 2805, 1739, 435, 0, 1, 40, 496, 2833, 8695, 15271, 15373, 8253, 1832, 0, 1, 54, 898, 6824, 28071, 67790, 98946, 85870, 40789, 8167
Offset: 1

Views

Author

Gus Wiseman, Jan 03 2020

Keywords

Examples

			Triangle begins:
   1
   0   1
   0   1   1
   0   1   3   2
   0   1   5   8   4
   0   1   9  25  28  11
   0   1  13  57 111  99  33
   0   1  20 129 379 561 408 116
Row n = 5 counts the following chains (minimum and maximum not shown):
  ()  (14)    (113)->(14)    (1112)->(113)->(14)
      (23)    (113)->(23)    (1112)->(113)->(23)
      (113)   (122)->(14)    (1112)->(122)->(14)
      (122)   (122)->(23)    (1112)->(122)->(23)
      (1112)  (1112)->(14)
              (1112)->(23)
              (1112)->(113)
              (1112)->(122)
		

Crossrefs

Row sums are A213427.
Main diagonal is A002846.
Column k=3 is A007042.
Dominated by A330784.
The version for set partitions is A008826.
The version for factorizations is A330935.

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]]]];
    upr[q_]:=Union[Sort/@Apply[Plus,mps[q],{2}]];
    paths[eds_,start_,end_]:=If[start==end,Prepend[#,{}],#]&[Join@@Table[Prepend[#,e]&/@paths[eds,Last[e],end],{e,Select[eds,First[#]==start&]}]];
    Table[Length[Select[paths[Join@@Table[{y,#}&/@DeleteCases[upr[y],y],{y,Sort/@IntegerPartitions[n]}],ConstantArray[1,n],{n}],Length[#]==k-1&]],{n,8},{k,n}]

Formula

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

A322077 In the ranked poset of integer partitions ordered by refinement, number of integer partitions coarser (greater) than or equal to the integer partition whose multiplicities are the prime indices of n in weakly decreasing order.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 5, 5, 8, 6, 7, 9, 11, 10, 12, 13, 15, 18, 22, 15, 19, 14, 30, 24, 22, 21, 40, 23, 42, 29, 56, 36, 27, 29, 34, 47, 77, 41, 39, 40
Offset: 1

Views

Author

Gus Wiseman, Nov 25 2018

Keywords

Comments

This partition (reversed row n of A305936) is generally not the same as the integer partition with Heinz number n. For example, 12 is the Heinz number of (2,1,1), while the integer partition whose multiplicities are (2,1,1) is (3,2,1,1).

Examples

			The list of a(1) = 1 through a(18) = 18 coarser partitions:
  ()  (1)  (2)   (3)   (3)    (4)    (4)     (6)    (6)     (5)     (5)
           (11)  (21)  (21)   (22)   (22)    (33)   (33)    (32)    (32)
                       (111)  (31)   (31)    (42)   (42)    (41)    (41)
                              (211)  (211)   (51)   (51)    (221)   (221)
                                     (1111)  (321)  (222)   (311)   (311)
                                                    (321)   (2111)  (2111)
                                                    (411)           (11111)
                                                    (2211)
.
  (7)     (6)       (6)      (7)      (10)    (7)        (9)
  (43)    (33)      (33)     (43)     (55)    (43)       (54)
  (52)    (42)      (42)     (52)     (64)    (52)       (63)
  (61)    (51)      (51)     (61)     (73)    (61)       (72)
  (322)   (222)     (222)    (322)    (82)    (322)      (81)
  (331)   (321)     (321)    (331)    (91)    (331)      (333)
  (421)   (411)     (411)    (421)    (433)   (421)      (432)
  (511)   (2211)    (2211)   (511)    (442)   (511)      (441)
  (3211)  (3111)    (3111)   (2221)   (532)   (2221)     (522)
          (21111)   (21111)  (3211)   (541)   (3211)     (531)
          (111111)           (4111)   (631)   (4111)     (621)
                             (22111)  (721)   (22111)    (711)
                                      (4321)  (31111)    (3222)
                                              (211111)   (3321)
                                              (1111111)  (4221)
                                                         (4311)
                                                         (5211)
                                                         (32211)
		

Crossrefs

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]]]];
    nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
    Table[Length[Union[Sort/@Apply[Plus,mps[nrmptn[n]],{2}]]],{n,20}]
Previous Showing 41-50 of 50 results.