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.

Showing 1-4 of 4 results.

A336812 Irregular triangle read by rows T(n,k), n >= 1, k >= 1, in which row n is constructed replacing every term of row n of A336811 with its divisors.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Nov 20 2020

Keywords

Comments

Here we introduce a new type of table which shows the correspondence between divisors and partitions. More precisely the table shows the corresponce between all parts of the last section of the set of partitions of n and all divisors of all terms of the n-th row of A336811, with n >= 1. The mentionded parts and the mentioned divisors are the same numbers (see Example section).
For an equivalent table showing the same kind of correspondence for all partitions of all positive integers see the supersequence A338156.

Examples

			Triangle begins:
  [1];
  [1, 2];
  [1, 3],       [1];
  [1, 2, 4],    [1, 2],    [1];
  [1, 5],       [1, 3],    [1, 2], [1],    [1];
  [1, 2, 3, 6], [1, 2, 4], [1, 3], [1, 2], [1, 2], [1], [1];
  ...
For n = 6 the 6th row of A336811 is [6, 4, 3, 2, 2, 1, 1] so replacing every term with its divisors we have {[1, 2, 3, 6], [1, 2, 4], [1, 3], [1, 2], [1, 2], [1], [1]} the same as the 6th row of this triangle.
Also, if the sequence is written as an irregular tetrahedron so the first six slices are:
  -------------
  [1],
  -------------
  [1, 2];
  -------------
  [1, 3],
  [1];
  -------------
  [1, 2, 4],
  [1, 2],
  [1];
  -------------
  [1, 5],
  [1, 3],
  [1, 2],
  [1],
  [1];
  -------------
  [1, 2, 3, 6],
  [1, 2, 4],
  [1, 3],
  [1, 2],
  [1, 2],
  [1],
  [1];
  -------------
The above slices appear in the lower zone of the following table which shows the correspondence between the mentioned divisors and the parts of the last section of the set of partitions of the positive integers.
The table is infinite. It is formed by three zones as follows:
The upper zone shows the last section of the set of partitions of every positive integer.
The lower zone shows the same numbers but arranged as divisors in accordance with the slices of the tetrahedron mentioned above.
Finally the middle zone shows the connection between the upper zone and the lower zone.
For every positive integer the numbers in the upper zone are the same numbers as in the lower zone.
|---|---------|-----|-------|---------|-----------|-------------|---------------|
| n |         |  1  |   2   |    3    |     4     |      5      |       6       |
|---|---------|-----|-------|---------|-----------|-------------|---------------|
|   |         |     |       |         |           |             |  6            |
| P |         |     |       |         |           |             |  3 3          |
| A |         |     |       |         |           |             |  4 2          |
| R |         |     |       |         |           |             |  2 2 2        |
| T |         |     |       |         |           |  5          |    1          |
| I |         |     |       |         |           |  3 2        |      1        |
| T |         |     |       |         |  4        |    1        |      1        |
| I |         |     |       |         |  2 2      |      1      |        1      |
| O |         |     |       |  3      |    1      |      1      |        1      |
| N |         |     |  2    |    1    |      1    |        1    |          1    |
| S |         |  1  |    1  |      1  |        1  |          1  |            1  |
|---|---------|-----|-------|---------|-----------|-------------|---------------|
.
|---|---------|-----|-------|---------|-----------|-------------|---------------|
|   | A207031 |  1  |  2 1  |  3 1 1  |  6 3 1 1  |  8 3 2 1 1  | 15 8 4 2 1 1  |
| L |         |  |  |  |/|  |  |/|/|  |  |/|/|/|  |  |/|/|/|/|  |  |/|/|/|/|/|  |
| I | A182703 |  1  |  1 1  |  2 0 1  |  3 2 0 1  |  5 1 1 0 1  |  7 4 2 1 0 1  |
| N |         |  *  |  * *  |  * * *  |  * * * *  |  * * * * *  |  * * * * * *  |
| K | A002260 |  1  |  1 2  |  1 2 3  |  1 2 3 4  |  1 2 3 4 5  |  1 2 3 4 5 6  |
|   |         |  =  |  = =  |  = = =  |  = = = =  |  = = = = =  |  = = = = = =  |
|   | A207383 |  1  |  1 2  |  2 0 3  |  3 4 0 4  |  5 2 3 0 5  |  7 8 6 4 0 6  |
|---|---------|-----|-------|---------|-----------|-------------|---------------|
.
|---|---------|-----|-------|---------|-----------|-------------|---------------|
|   | A027750 |  1  |  1 2  |  1   3  |  1 2   4  |  1       5  |  1 2 3     6  |
| D |---------|-----|-------|---------|-----------|-------------|---------------|
| I | A027750 |     |       |  1      |  1 2      |  1   3      |  1 2   4      |
| V |---------|-----|-------|---------|-----------|-------------|---------------|
| I | A027750 |     |       |         |  1        |  1 2        |  1   3        |
| S |---------|-----|-------|---------|-----------|-------------|---------------|
| O | A027750 |     |       |         |           |  1          |  1 2          |
| R | A027750 |     |       |         |           |  1          |  1 2          |
| S |---------|-----|-------|---------|-----------|-------------|---------------|
|   | A027750 |     |       |         |           |             |  1            |
|   | A027750 |     |       |         |           |             |  1            |
|---|---------|-----|-------|---------|-----------|-------------|---------------|
.
Note that every row in the lower zone lists A027750.
The "section" is the simpler substructure of the set of partitions of n that has this property in the three zones.
Also the lower zone for every positive integer can be constructed using the first n terms of A002865. For example: for n = 6 we consider the first 6 terms of A002865 (that is [1, 0, 1, 1, 2, 2]) and then the 6th slice is formed by a block with the divisors of 6, no block with the divisors of 5, one block with the divisors of 4, one block with the divisors of 3, two blocks with the divisors of 2 and two blocks with the divisors of 1.
Note that the lower zone is also in accordance with the tower (a polycube) described in A221529 in which its terraces are the symmetric representation of sigma starting from the top (cf. A237593) and the heights of the mentioned terraces are the partition numbers A000041 starting from the base.
The tower has the same volume (also the same number of cubes) equal to A066186(n) as a prism of partitions of size 1*n*A000041(n).
The above table shows the growth step by step of both the prism of partitions and its associated tower since the number of parts in the last section of the set of partitions of n is equal to A138137(n) equaling the number of divisors in the n-th slice of the lower table and equaling the same the number of terms in the n-th row of triangle. Also the sum of all parts in the last section of the set of partitions of n is equal to A138879(n) equaling the sum of all divisors in the n-th slice of the lower table and equaling the sum of the n-th row of triangle.
		

Crossrefs

Programs

  • Mathematica
    A336812[row_]:=Flatten[Table[ConstantArray[Divisors[row-m],PartitionsP[m]-PartitionsP[m-1]],{m,0,row-1}]];
    Array[A336812,10] (* Generates 10 rows *) (* Paolo Xausa, Feb 16 2023 *)

A196087 Sum of all parts minus the total numbers of parts of all partitions of n.

Original entry on oeis.org

0, 1, 3, 8, 15, 31, 51, 90, 142, 228, 341, 525, 757, 1110, 1572, 2233, 3084, 4286, 5812, 7910, 10580, 14145, 18659, 24626, 32099, 41814, 53976, 69559, 88932, 113557, 143967, 182241, 229353, 288078, 360029, 449158, 557757, 691369, 853628, 1051974
Offset: 1

Views

Author

Omar E. Pol, Nov 10 2011

Keywords

Comments

Also sum of parts of all partitions of n except the largest parts of the partitions. - Omar E. Pol, Feb 16 2012
Equals column 1 of A161224. - Omar E. Pol, Feb 26 2012
Partial sums of A207035. - Omar E. Pol, Apr 22 2012

Examples

			For n = 4 the five partitions of 4 are: 4, 3+1, 2+2, 2+1+1, 1+1+1+1. The sum of all parts is 4+3+1+2+2+2+1+1+1+1+1+1 = 20. The sum of all parts is also the product n*p(n) = 4*5 = 20, where p(n) = A000041(n) is the number of partitions of n. On the other hand the number of parts in all partitions of 4 is equal to 12, so a(4) = 20-12 = 8.
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i) option remember; local f, g;
          if n=0 then [1, 0]
        elif i<1 then [0, 0]
        elif i>n then b(n, i-1)
        else f:= b(n, i-1); g:= b(n-i, i);
             [f[1]+g[1], f[2]+g[2] +g[1]*(i-1)]
          fi
        end:
    a:= n-> b(n, n)[2]:
    seq(a(n), n=1..50);  # Alois P. Heinz, Feb 20 2012
  • Mathematica
    b[n_, i_] := b[n, i] = Module[{f, g}, Which[n==0, {1, 0}, i<1, {0, 0}, i>n, b[n, i-1], True, f = b[n, i-1]; g = b[n-i, i]; {f[[1]] + g[[1]], f[[2]] + g[[2]] + g[[1]]*(i-1)}]]; a[n_] := b[n, n][[2]]; Table[a[n], {n, 1, 50}] (* Jean-François Alcover, Oct 22 2015, after Alois P. Heinz *)
  • PARI
    a(n) = n*numbpart(n) - sum(m=1, n, numdiv(m)*numbpart(n-m)); \\ Michel Marcus, Oct 22 2015

Formula

a(n) = n*A000041(n) - A006128(n) = A066186(n) - A006128(n).
a(n) = A207038(A000041(n)). - Omar E. Pol, Apr 21 2012
a(n) ~ exp(Pi*sqrt(2*n/3))/(4*sqrt(3)) * (1 - (3 + 6*gamma + Pi^2/24 + 3*log(6*n/Pi^2))/(Pi*sqrt(6*n))), where gamma is the Euler-Mascheroni constant A001620. - Vaclav Kotesovec, Oct 24 2016
G.f.: Sum_{k>=1} x^(2*k)/(1 - x^k)^2 / Product_{j>=1} (1 - x^j). - Ilya Gutkovskiy, Mar 05 2021
a(n) = Sum_{k=1..n-1} p(n+j,j), where p(n,j) is the number of partitions of j having exactly j parts. E.g., a(4) = p(5,1) + p(6,2) + p(7,3) = 1+3+4 = 8. - Gregory L. Simay, Aug 19 2022

A207034 Sum of all parts minus the number of parts of the n-th partition in the list of colexicographically ordered partitions of j, if 1<=n<=A000041(j).

Original entry on oeis.org

0, 1, 2, 2, 3, 3, 4, 3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 6, 6, 7, 5, 6, 6, 7, 6, 7, 7, 8, 5, 6, 6, 7, 7, 7, 8, 7, 8, 8, 8, 9, 6, 7, 7, 8, 7, 8, 8, 9, 8, 8, 9, 9, 9, 10, 6, 7, 7, 8, 8, 8, 9, 8, 9, 9, 9, 10, 8, 9, 9, 10, 9, 10, 10, 10, 11, 7, 8, 8, 9, 8, 9
Offset: 1

Views

Author

Omar E. Pol, Feb 20 2012

Keywords

Comments

a(n) is also the column number in which is located the part of size 1 in the n-th zone of the tail of the last section of the set of partitions of k in colexicographic order, minus the column number in which is located the part of size 1 in the first row of the same tail, when k -> infinity (see example). For the definition of "section" see A135010.

Examples

			Illustration of initial terms, n = 1..15. Consider the last 15 rows of the tail of the last section of the set of partitions in colexicographic order of any integer >= 8. The tail contains at least A000041(8-1) = 15 parts of size 1. a(n) is also the number of dots in the n-th row of the diagram.
----------------------------------
n      Tail                  a(n)
----------------------------------
15        1 . . . . . .       6
14          1 . . . . .       5
13          1 . . . . .       5
12            1 . . . .       4
11          1 . . . . .       5
10            1 . . . .       4
9             1 . . . .       4
8               1 . . .       3
7             1 . . . .       4
6               1 . . .       3
5               1 . . .       3
4                 1 . .       2
3                 1 . .       2
2                   1 .       1
1                     1       0
----------------------------------
Written as a triangle:
0;
1;
2;
2,3;
3,4;
3,4,4,5;
4,5,5,6;
4,5,5,6,6,6,7;
5,6,6,7,6,7,7,8;
5,6,6,7,7,7,8,7,8,8,8,9;
6,7,7,8,7,8,8,9,8,8,9,9,9,10;
6,7,7,8,8,8,9,8,9,9,9,10,8,9,9,10,9,10,10,10,11;
...
Consider a matrix [j X A000041(j)] in which the rows represent the partitions of j in colexicographic order (see A211992). Every part of every partition is located in a cell of the matrix. We can see that a(n) is the number of empty cells in row n for any integer j, if A000041(j) >= n. The number of empty cells in row n equals the sum of all parts minus the number of parts in the n-th partition of j.
Illustration of initial terms. The smallest part of every partition is located in the last column of the matrix.
---------------------------------------------------------
.   j: 1    2       3         4           5             6
n a(n)
---------------------------------------------------------
1  0 | 1  1 1   1 1 1   1 1 1 1   1 1 1 1 1   1 1 1 1 1 1
2  1 |    . 2   . 2 1   . 2 1 1   . 2 1 1 1   . 2 1 1 1 1
3  2 |          . . 3   . . 3 1   . . 3 1 1   . . 3 1 1 1
4  2 |                  . . 2 2   . . 2 2 1   . . 2 2 1 1
5  3 |                  . . . 4   . . . 4 1   . . . 4 1 1
6  3 |                            . . . 3 2   . . . 3 2 1
7  4 |                            . . . . 5   . . . . 5 1
8  3 |                                        . . . 2 2 2
9  4 |                                        . . . . 4 2
10 4 |                                        . . . . 3 3
11 5 |                                        . . . . . 6
...
Illustration of initial terms. In this case the largest part of every partition is located in the first column of the matrix.
---------------------------------------------------------
.   j: 1    2       3         4           5             6
n a(n)
---------------------------------------------------------
1  0 | 1  1 1   1 1 1   1 1 1 1   1 1 1 1 1   1 1 1 1 1 1
2  1 |    2 .   2 1 .   2 1 1 .   2 1 1 1 .   2 1 1 1 1 .
3  2 |          3 . .   3 1 . .   3 1 1 . .   3 1 1 1 . .
4  2 |                  2 2 . .   2 2 1 . .   2 2 1 1 . .
5  3 |                  4 . . .   4 1 . . .   4 1 1 . . .
6  3 |                            3 2 . . .   3 2 1 . . .
7  4 |                            5 . . . .   5 1 . . . .
8  3 |                                        2 2 2 . . .
9  4 |                                        4 2 . . . .
10 4 |                                        3 3 . . . .
11 5 |                                        6 . . . . .
...
		

Crossrefs

Row r has length A187219(r). Partial sums give A207038. Row sums give A207035. Right border gives A001477. Where records occur give A000041 without repetitions.

Formula

a(n) = t(n) - A194548(n), if n >= 2, where t(n) is the n-th element of the following sequence: triangle read by rows in which row n lists n repeated k times, where k = A187219(n).
a(n) = A000120(A194602(n-1)) = A000120(A228354(n)-1).
a(n) = i - A193173(i,n), i >= 1, 1<=n<=A000041(i).

A207035 Sum of all parts minus the total number of parts of the last section of the set of partitions of n.

Original entry on oeis.org

0, 1, 2, 5, 7, 16, 20, 39, 52, 86, 113, 184, 232, 353, 462, 661, 851, 1202, 1526, 2098, 2670, 3565, 4514, 5967, 7473, 9715, 12162, 15583, 19373, 24625, 30410, 38274, 47112, 58725, 71951, 89129, 108599, 133612, 162259, 198346, 239825, 291718, 351269, 425102
Offset: 1

Views

Author

Omar E. Pol, Feb 20 2012

Keywords

Examples

			For n = 7 the last section of the set of partitions of 7 looks like this:
.
.        (. . . . . . 7)
.        (. . . 4 . . 3)
.        (. . . . 5 . 2)
.        (. . 3 . 2 . 2)
.                    (1)
.                    (1)
.                    (1)
.                    (1)
.                    (1)
.                    (1)
.                    (1)
.                    (1)
.                    (1)
.                    (1)
.                    (1)
.
The sum of all parts = 7+4+3+5+2+3+2+2+1*11 = 39, on the other hand the total number of parts is 1+2+2+3+1*11 = 19, so a(7) = 39 - 19 = 20. Note that the number of dots in the picture is also equal to a(7) = 6+5+5+4 = 20.
		

Crossrefs

Row sums of triangle A207034. Partial sums give A196087.

Programs

  • Maple
    b:= proc(n, i) option remember; local f, g;
          if n=0 then [1, 0]
        elif i<2 then [0, 0]
        elif i>n then b(n, i-1)
        else f:= b(n, i-1); g:= b(n-i, i);
             [f[1]+g[1], f[2]+g[2] +g[1]*(i-1)]
          fi
        end:
    a:= n-> b(n, n)[2]:
    seq (a(n), n=1..50);  # Alois P. Heinz, Feb 20 2012
  • Mathematica
    b[n_, i_] := b[n, i] = Module[{f, g}, Which[n==0, {1, 0}, i<2, {0, 0}, i>n , b[n, i-1], True, f = b[n, i-1]; g = b[n-i, i]; {f[[1]] + g[[1]], f[[2]] + g[[2]] + g[[1]]*(i-1)}]]; a[n_] := b[n, n][[2]]; Table[a[n], {n, 1, 50}] (* Jean-François Alcover, Sep 13 2015, after Alois P. Heinz *)

Formula

a(n) = A138879(n) - A138137(n) = A138880(n) - A138135(n). - Omar E. Pol, Apr 21 2012
G.f.: Sum_{k>=1} x^(2*k)/(1 - x^k)^2 / Product_{j>=2} (1 - x^j). - Ilya Gutkovskiy, Mar 05 2021

Extensions

More terms from Alois P. Heinz, Feb 20 2012
Showing 1-4 of 4 results.