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 11-20 of 99 results. Next

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 *)

A027293 Triangular array given by rows: P(n,k) is the number of partitions of n that contain k as a part.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 3, 2, 1, 1, 5, 3, 2, 1, 1, 7, 5, 3, 2, 1, 1, 11, 7, 5, 3, 2, 1, 1, 15, 11, 7, 5, 3, 2, 1, 1, 22, 15, 11, 7, 5, 3, 2, 1, 1, 30, 22, 15, 11, 7, 5, 3, 2, 1, 1, 42, 30, 22, 15, 11, 7, 5, 3, 2, 1, 1, 56, 42, 30, 22, 15, 11, 7, 5, 3, 2, 1, 1, 77
Offset: 1

Views

Author

Keywords

Comments

Triangle read by rows in which row n lists the first n partition numbers A000041 in decreasing order. - Omar E. Pol, Aug 06 2011
A027293 * an infinite lower triangular matrix with A010815 (1, -1, -1, 0, 0, 1, ...) as the main diagonal the rest zeros = triangle A145975 having row sums = [1, 0, 0, 0, ...]. These matrix operations are equivalent to the comment in A010815 stating "when convolved with the partition numbers = [1, 0, 0, 0, ...]. - Gary W. Adamson, Oct 25 2008
From Gary W. Adamson, Oct 26 2008: (Start)
Row sums = A000070: (1, 2, 4, 7, 12, 19, 30, 45, 67, ...);
(this triangle)^2 = triangle A146023. (End)
(1) It appears that P(n,k) is also the total number of occurrences of k in the last k sections of the set of partitions of n (cf. A182703). (2) It appears that P(n,k) is also the difference, between n and n-k, of the total number of occurrences of k in all their partitions (cf. A066633). - Omar E. Pol, Feb 07 2012
Sequence B is called a reverse reluctant sequence of sequence A, if B is a triangle array read by rows: row number k lists first k elements of the sequence A in reverse order. The present sequence is the reverse reluctant sequence of (A000041(k-1)){k>=0}. - _Boris Putievskiy, Dec 14 2012

Examples

			The triangle P begins (with offsets 0 it is Pa):
n \ k  1  2  3  4  5  6  7  8  9 10 ...
1:     1
2:     1  1
3:     2  1  1
4:     3  2  1  1
5:     5  3  2  1  1
6:     7  5  3  2  1  1
7:    11  7  5  3  2  1  1
8:    15 11  7  5  3  2  1  1
9:    22 15 11  7  5  3  2  1  1
10:   30 22 15 11  7  5  3  2  1  1
... reformatted by _Wolfdieter Lang_, Apr 14 2021
		

Crossrefs

Every column of P is A000041.
Cf. A343234 (L-eigen-matrix).

Programs

  • Mathematica
    f[n_] := Block[{t = Flatten[Union /@ IntegerPartitions@n]}, Table[Count[t, i], {i, n}]]; Array[f, 13] // Flatten
    t[n_, k_] := PartitionsP[n-k]; Table[t[n, k], {n, 1, 13}, {k, 1, n}] // Flatten (* Jean-François Alcover, Jan 24 2014 *)

Formula

P(n,k) = p(n-k) = A000041(n-k), n>=1, k>=1. - Omar E. Pol, Feb 15 2013
a(n) = A000041(m), where m = (t*t + 3*t + 4)/2 - n, t = floor((-1+sqrt(8*n-7))/2). - Boris Putievskiy, Dec 14 2012
From Wolfdieter Lang, Apr 14 2021: (Start)
Pa(n, m) = P(n+1, m+1) = A000041(n-m), for n >= m >= 0, and 0 otherwise, gives the Riordan matrix Pa = (P(x), x), of Toeplitz type, with the o.g.f. P(x) of A000041. The o.g.f. of triangle Pa (the o.g.f. of the row polynomials RPa(n, x) = Sum_{m=0..n} Pa(n, m)*x^m) is G(z, x) = P(z)/(1 - x*z).
The (infinite) matrix Pa has the 'L-eigen-sequence' B = A067687, that is, Pa*vec(B) = L*vec(B), with the matrix L with elements L(i, j) = delta(i, j-1) (Kronecker's delta symbol). For such L-eigen-sequences see the Bernstein and Sloane links under A155002.
Thanks to Gary W. Adamson for motivating me to look at such matrices and sequences. (End)

A340035 Irregular triangle read by rows T(n,k) in which row n lists n blocks, where the m-th block consists of A000041(n-m) copies of the divisors of m, with 1 <= m <= n.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 2, 4, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 3, 1, 2, 4, 1, 5, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 3, 1, 3, 1, 2, 4, 1, 2, 4, 1, 5, 1, 2, 3, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2
Offset: 1

Views

Author

Omar E. Pol, Dec 26 2020

Keywords

Comments

For further information about the correspondence divisor/part see A338156.

Examples

			Triangle begins:
  1;
  1, 1, 2;
  1, 1, 1, 2, 1, 3;
  1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 2, 4;
  1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 3, 1, 2, 4, 1, 5;
  ...
Written as an irregular tetrahedron the first five slices are:
  1;
  --
  1,
  1, 2;
  -----
  1,
  1,
  1, 2
  1, 3;
  -----
  1,
  1,
  1,
  1, 2,
  1, 2,
  1, 3,
  1, 2, 4;
  --------
  1,
  1,
  1,
  1,
  1,
  1, 2,
  1, 2,
  1, 2,
  1, 3,
  1, 3,
  1, 2, 4,
  1, 5;
--------
The slices of the tetrahedron appear in the upper zone of the following table (formed by three zones) which shows the correspondence between divisors and parts (n = 1..5):
.
|---|---------|-----|-------|---------|-----------|-------------|
| n |         |  1  |   2   |    3    |     4     |      5      |
|---|---------|-----|-------|---------|-----------|-------------|
|   | A027750 |     |       |         |           |  1          |
|   | A027750 |     |       |         |           |  1          |
|   | A027750 |     |       |         |           |  1          |
|   | A027750 |     |       |         |           |  1          |
| D | A027750 |     |       |         |           |  1          |
| I |---------|-----|-------|---------|-----------|-------------|
| V | A027750 |     |       |         |  1        |  1 2        |
| I | A027750 |     |       |         |  1        |  1 2        |
| S | A027750 |     |       |         |  1        |  1 2        |
| O |---------|-----|-------|---------|-----------|-------------|
| R | A027750 |     |       |  1      |  1 2      |  1   3      |
| S | A027750 |     |       |  1      |  1 2      |  1   3      |
|   |---------|-----|-------|---------|-----------|-------------|
|   | A027750 |     |  1    |  1 2    |  1   3    |  1 2   4    |
|   |---------|-----|-------|---------|-----------|-------------|
|   | A027750 |  1  |  1 2  |  1   3  |  1 2   4  |  1       5  |
|---|---------|-----|-------|---------|-----------|-------------|
.
|---|---------|-----|-------|---------|-----------|-------------|
|   | A138785 |  1  |  2 2  |  4 2 3  |  7 6 3 4  | 12 8 6 4 5  |
|   |         |  =  |  = =  |  = = =  |  = = = =  |  = = = = =  |
| L | A002260 |  1  |  1 2  |  1 2 3  |  1 2 3 4  |  1 2 3 4 5  |
| I |         |  *  |  * *  |  * * *  |  * * * *  |  * * * * *  |
| N | A066633 |  1  |  2 1  |  4 1 1  |  7 3 1 1  | 12 4 2 1 1  |
| K |         |  |  |  |\|  |  |\|\|  |  |\|\|\|  |  |\|\|\|\|  |
|   | A181187 |  1  |  3 1  |  6 2 1  | 12 5 2 1  | 20 8 4 2 1  |
|---|---------|-----|-------|---------|-----------|-------------|
.
|---|---------|-----|-------|---------|-----------|-------------|
| P |         |  1  |  1 1  |  1 1 1  |  1 1 1 1  |  1 1 1 1 1  |
| A |         |     |  2    |  2 1    |  2 1 1    |  2 1 1 1    |
| R |         |     |       |  3      |  3 1      |  3 1 1      |
| T |         |     |       |         |  2 2      |  2 2 1      |
| I |         |     |       |         |  4        |  4 1        |
| T |         |     |       |         |           |  3 2        |
| I |         |     |       |         |           |  5          |
| O |         |     |       |         |           |             |
| N |         |     |       |         |           |             |
| S |         |     |       |         |           |             |
|---|---------|-----|-------|---------|-----------|-------------|
.
The table is essentially the same table of A340032 but here, in the upper zone, every row is A027750 instead of A127093.
Also the above table is the table of A338156 upside down.
The connection with the tower described in A221529 is as follows (n = 7):
|--------|------------------------|
| Level  |                        |
| in the | 7th slice of divisors  |
| tower  |                        |
|--------|------------------------|
|  11    |   1,                   |
|  10    |   1,                   |
|   9    |   1,                   |
|   8    |   1,                   |
|   7    |   1,                   |
|   6    |   1,                   |
|   5    |   1,                   |
|   4    |   1,                   |
|   3    |   1,                   |
|   2    |   1,                   |
|   1    |   1,                   |
|--------|------------------------|
|   7    |   1, 2,                |
|   6    |   1, 2,                |
|   5    |   1, 2,                |
|   4    |   1, 2,                |
|   3    |   1, 2,                |
|   2    |   1, 2,                |
|   1    |   1, 2,                |
|--------|------------------------|
|   5    |   1,    3,             |
|   4    |   1,    3,             |
|   3    |   1,    3,             |
|   2    |   1,    3,             |      Level
|   1    |   1,    3,             |             _
|--------|------------------------|       11   | |
|   3    |   1, 2,    4,          |       10   | |
|   2    |   1, 2,    4,          |        9   | |
|   1    |   1, 2,    4,          |        8   |_|_
|--------|------------------------|        7   |   |
|   2    |   1,          5,       |        6   |_ _|_
|   1    |   1,          5,       |        5   |   | |
|--------|------------------------|        4   |_ _|_|_
|   1    |   1, 2, 3,       6,    |        3   |_ _ _| |_
|--------|------------------------|        2   |_ _ _|_ _|_ _
|   1    |   1,                7; |        1   |_ _ _ _|_|_ _|
|--------|------------------------|
             Figure 1.                            Figure 2.
                                                Lateral view
                                                of the tower.
.
                                                _ _ _ _ _ _ _
                                               |_| | | | |   |
                                               |_ _|_| | |   |
                                               |_ _|  _|_|   |
                                               |_ _ _|    _ _|
                                               |_ _ _|  _|
                                               |       |
                                               |_ _ _ _|
.
                                                  Figure 3.
                                                  Top view
                                                of the tower.
.
Figure 1 shows the terms of the 7th row of the triangle arranged as the 7th slice of the tetrahedron. The left hand column (see figure 1) gives the level of the sum of the divisors in the tower (see figures 2 and 3).
		

Crossrefs

Programs

  • Mathematica
    A340035row[n_]:=Flatten[Array[ConstantArray[Divisors[#],PartitionsP[n-#]]&,n]];
    nrows=7;Array[A340035row,nrows] (* Paolo Xausa, Jun 20 2022 *)

A182712 Number of 2's in the last section of the set of partitions of n.

Original entry on oeis.org

0, 0, 1, 0, 2, 1, 4, 3, 8, 7, 15, 15, 27, 29, 48, 53, 82, 94, 137, 160, 225, 265, 362, 430, 572, 683, 892, 1066, 1370, 1640, 2078, 2487, 3117, 3725, 4624, 5519, 6791, 8092, 9885, 11752, 14263, 16922, 20416, 24167, 29007, 34254, 40921, 48213, 57345, 67409
Offset: 0

Views

Author

Omar E. Pol, Nov 28 2010

Keywords

Comments

Essentially the same as A087787 but here a(n) is the number of 2's in the last section of n, not n-2. See also A100818.
Note that a(1)..a(11) coincide with a(2)..a(12) of A005291.
Also number of 2's in all partitions of n that do not contain 1's as a part, if n >= 1. Also 0 together with the first differences of A024786. - Omar E. Pol, Nov 13 2011
Also number of 2's in the n-th section of the set of partitions of any integer >= n. For the definition of "section" see A135010. - Omar E. Pol, Dec 01 2013

Examples

			a(6) = 4 counts the 2's in 6 = 4+2 = 2+2+2. The 2's in 6 = 3+2+1 = 2+2+1+1 = 2+1+1+1+1 do not count. - _Omar E. Pol_, Nov 13 2011
From _Omar E. Pol_, Oct 27 2012: (Start)
----------------------------------
Last section               Number
of the set of                of
partitions of 6             2's
----------------------------------
6 .......................... 0
3 + 3 ...................... 0
4 + 2 ...................... 1
2 + 2 + 2 .................. 3
.   1 ...................... 0
.       1 .................. 0
.       1 .................. 0
.           1 .............. 0
.           1 .............. 0
.               1 .......... 0
.                   1 ...... 0
---------------------------------
.   8 - 4 =                  4
.
In the last section of the set of partitions of 6 the difference between the sum of the second column and the sum of the third column is 8 - 4 = 4, the same as the number of 2's, so a(6) = 4 (see also A024786).
(End)
		

Crossrefs

Programs

  • Mathematica
    Table[Count[Flatten@Cases[IntegerPartitions[n], x_ /; Last[x] != 1], 2], {n, 0, 49}] (* Robert Price, May 15 2020 *)
  • Sage
    A182712 = lambda n: sum(list(p).count(2) for p in Partitions(n) if 1 not in p) # Omar E. Pol, Nov 13 2011

Formula

It appears that A000041(n) = a(n+1) + a(n+2), n >= 0. - Omar E. Pol, Feb 04 2012
G.f.: (x^2/(1 + x))*Product_{k>=1} 1/(1 - x^k). - Ilya Gutkovskiy, Jan 03 2017
a(n) ~ exp(Pi*sqrt(2*n/3)) / (8*sqrt(3)*n). - Vaclav Kotesovec, Jun 02 2018

A194812 Square array read by antidiagonals: T(n,k) = number of parts of size k in the last section of the set of partitions of n.

Original entry on oeis.org

1, 1, 0, 2, 1, 0, 3, 0, 0, 0, 5, 2, 1, 0, 0, 7, 1, 0, 0, 0, 0, 11, 4, 1, 1, 0, 0, 0, 15, 3, 2, 0, 0, 0, 0, 0, 22, 8, 2, 1, 1, 0, 0, 0, 0, 30, 7, 3, 1, 0, 0, 0, 0, 0, 0, 42, 15, 6, 3, 1, 1, 0, 0, 0, 0, 0, 56, 15, 6, 2, 1, 0, 0, 0, 0, 0, 0, 0, 77, 27, 10
Offset: 1

Views

Author

Omar E. Pol, Feb 04 2012

Keywords

Comments

It appears that in the column k, starting in row n, the sum of k successive terms is equal to A000041(n-1).

Examples

			Array begins:
.  1,  0,  0,  0, 0, 0, 0, 0, 0, 0, 0, 0,...
.  1,  1,  0,  0, 0, 0, 0, 0, 0, 0, 0, 0,...
.  2,  0,  1,  0, 0, 0, 0, 0, 0, 0, 0, 0,...
.  3,  2,  0,  1, 0, 0, 0, 0, 0, 0, 0, 0,...
.  5,  1,  1,  0, 1, 0, 0, 0, 0, 0, 0, 0,...
.  7,  4,  2,  1, 0, 1, 0, 0, 0, 0, 0, 0,...
. 11,  3,  2,  1, 1, 0, 1, 0, 0, 0, 0, 0,...
. 15,  8,  3,  3, 1, 1, 0, 1, 0, 0, 0, 0,...
. 22,  7,  6,  2, 2, 1, 1, 0, 1, 0, 0, 0,...
. 30, 15,  6,  5, 3, 2, 1, 1, 0, 1, 0, 0,...
. 42, 15, 10,  5, 4, 2, 2, 1, 1, 0, 1, 0,...
. 56, 27, 14, 10, 5, 5, 2, 2, 1, 1, 0, 1,...
...
For n = 7, from the conjecture we have that p(n-1) = p(6) = 11 = 3+8 = 2+3+6 = 1+3+2+5 = 1+1+2+3+4 = 0+1+1+2+2+5, etc. where p(n) = A000041(n).
		

Crossrefs

Columns 1-4: A000041, A182712, A182713, A182714. Main triangle: A182703.

Formula

It appears that A000041(n) = Sum_{j=1..k} T(n+j,k), n >= 0, k >= 1.

A182709 Sum of the emergent parts of the partitions of n.

Original entry on oeis.org

0, 0, 0, 2, 3, 11, 14, 33, 45, 81, 109, 185, 237, 372, 490, 715, 928, 1326, 1693, 2348, 2998, 4032, 5119, 6795, 8530, 11132, 13952, 17927, 22314, 28417, 35126, 44279, 54532, 68062, 83422, 103427, 126063, 155207, 188506, 230547, 278788, 339223, 408482
Offset: 1

Views

Author

Omar E. Pol, Nov 28 2010, Nov 29 2010

Keywords

Comments

Here the "emergent parts" of the partitions of n are defined to be the parts (with multiplicity) of all the partitions that do not contain "1" as a part, removed by one copy of the smallest part of every partition. Note that these parts are located in the head of the last section of the set of partitions of n. For more information see A182699.
Also total sum of parts of the regions that do not contain 1 as a part in the last section of the set of partitions of n (Cf. A083751, A187219). - Omar E. Pol, Mar 04 2012

Examples

			For n=7 the partitions of 7 that do not contain "1" as a part are
7
4 + 3
5 + 2
3 + 2 + 2
Then remove one copy of the smallest part of every partition. The rest are the emergent parts:
.,
4, .
5, .
3, 2, .
The sum of these parts is 4 + 5 + 3 + 2 = 14, so a(7)=14.
For n=10 the illustration in the link shows the location of the emergent parts (colored yellow and green) and the location of the filler parts (colored blue) in the last section of the set of partitions of 10.
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i) option remember;
          if n<0 then 0
        elif n=0 then 1
        elif i<2 then 0
        else b(n, i-1) +b(n-i, i)
          fi
        end:
    c:= proc(n, i, k) option remember;
          if n<0 then 0
        elif n=0 then k
        elif i<2 then 0
        else c(n, i-1, k) +c(n-i, i, i)
          fi
        end:
    a:= n-> n*b(n, n) - c(n, n, 0):
    seq(a(n), n=1..40);  #  Alois P. Heinz, Dec 01 2010
  • Mathematica
    f[n_]:=Total[Flatten[Most/@Select[IntegerPartitions[n],!MemberQ[#,1]&]]]; Table[f[i],{i,50}] (* Harvey P. Dale, Dec 28 2010 *)
    b[n_, i_] := b[n, i] = Which[n<0, 0, n==0, 1, i<2, 0, True, b[n, i-1] + b[n - i, i]]; c[n_, i_, k_] := c[n, i, k] = Which[n<0, 0, n==0, k, i<2, 0, True, c[n, i-1, k] + c[n-i, i, i]]; a[n_] := n*b[n, n] - c[n, n, 0]; Table[a[n], {n, 1, 40}] (* Jean-François Alcover, Oct 08 2015, after Alois P. Heinz *)

Formula

a(n) = A138880(n) - A182708(n).
a(n) = A066186(n) - A066186(n-1) - A046746(n) = A138879(n) - A046746(n). - Omar E. Pol, Aug 01 2013
a(n) ~ Pi * exp(Pi*sqrt(2*n/3)) / (12*sqrt(2*n)) * (1 - (3*sqrt(3/2)/Pi + 13*Pi/(24*sqrt(6)))/sqrt(n)). - Vaclav Kotesovec, Jan 03 2019, extended Jul 05 2019

Extensions

More terms from Alois P. Heinz, Dec 01 2010

A182714 Number of 4's in the last section of the set of partitions of n.

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 1, 3, 2, 5, 5, 10, 10, 17, 19, 31, 34, 51, 60, 86, 100, 139, 165, 223, 265, 349, 418, 543, 648, 827, 992, 1251, 1495, 1866, 2230, 2758, 3289, 4033, 4803, 5852, 6949, 8411, 9973, 12005, 14194, 17002, 20060, 23919, 28153, 33426, 39256, 46438
Offset: 1

Views

Author

Omar E. Pol, Nov 13 2011

Keywords

Comments

Zero together with the first differences of A024788.
Also number of 4's in all partitions of n that do not contain 1 as a part.
a(n) is the number of partitions of n such that m(1) < m(3), where m = multiplicity; e.g., a(7) counts these 3 partitions: [4, 3], [3, 3, 1], [3, 2, 2]. - Clark Kimberling, Apr 01 2014
The last section of the set of partitions of n is also the n-th section of the set of partitions of any integer >= n. - Omar E. Pol, Apr 07 2014

Examples

			a(8) = 3 counts the 4's in 8 = 4+4 = 4+2+2. The 4's in 8 = 4+3+1 = 4+2+1+1 = 4+1+1+1+1 do not count.
From _Omar E. Pol_, Oct 25 2012: (Start)
--------------------------------------
Last section                   Number
of the set of                    of
partitions of 8                 4's
--------------------------------------
8 .............................. 0
4 + 4 .......................... 2
5 + 3 .......................... 0
6 + 2 .......................... 0
3 + 3 + 2 ...................... 0
4 + 2 + 2 ...................... 1
2 + 2 + 2 + 2 .................. 0
.   1 .......................... 0
.       1 ...................... 0
.       1 ...................... 0
.           1 .................. 0
.       1 ...................... 0
.           1 .................. 0
.           1 .................. 0
.               1 .............. 0
.           1 .................. 0
.               1 .............. 0
.               1 .............. 0
.                   1 .......... 0
.                   1 .......... 0
.                       1 ...... 0
.                           1 .. 0
------------------------------------
.           6 - 3 =              3
.
In the last section of the set of partitions of 8 the difference between the sum of the fourth column and the sum of the fifth column is 6 - 3 = 3 equaling the number of 4's, so a(8) = 3 (see also A024788).
(End)
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i) option remember; local g, h;
          if n=0 then [1, 0]
        elif i<2 then [0, 0]
        else g:= b(n, i-1); h:= `if`(i>n, [0, 0], b(n-i, i));
             [g[1]+h[1], g[2]+h[2]+`if`(i=4, h[1], 0)]
          fi
        end:
    a:= n-> b(n, n)[2]:
    seq (a(n), n=1..70);  # Alois P. Heinz, Mar 19 2012
  • Mathematica
    z = 60; f[n_] := f[n] = IntegerPartitions[n]; t1 = Table[Count[f[n], p_ /; Count[p, 1] < Count[p, 3]], {n, 0, z}] (* Clark Kimberling, Apr 01 2014 *)
    b[n_, i_] := b[n, i] = Module[{g, h}, If[n==0, {1, 0}, If[i<2, {0, 0}, g = b[n, i-1]; h = If[i>n, {0, 0}, b[n-i, i]]; {g[[1]] + h[[1]], g[[2]] + h[[2]] + If[i==4, h[[1]], 0]}]]]; a[n_] := b[n, n][[2]]; Table[a[n], {n, 1, 70}] (* Jean-François Alcover, Sep 21 2015, after Alois P. Heinz *)
    Table[Count[Flatten@Cases[IntegerPartitions[n], x_ /; Last[x] != 1], 4], {n, 52}] (* Robert Price, May 15 2020 *)
  • Sage
    A182714 = lambda n: sum(list(p).count(4) for p in Partitions(n) if 1 not in p)

Formula

It appears that A000041(n) = a(n+1) + a(n+2) + a(n+3) + a(n+4), n >= 0. - Omar E. Pol, Feb 04 2012

A206563 Triangle read by rows: T(n,k) = number of odd/even parts >= k in all partitions of n, if k is odd/even.

Original entry on oeis.org

1, 2, 1, 5, 1, 1, 8, 4, 1, 1, 15, 5, 3, 1, 1, 24, 11, 5, 3, 1, 1, 39, 15, 9, 4, 3, 1, 1, 58, 28, 13, 9, 4, 3, 1, 1, 90, 38, 23, 12, 8, 4, 3, 1, 1, 130, 62, 33, 21, 12, 8, 4, 3, 1, 1, 190, 85, 51, 29, 20, 11, 8, 4, 3, 1, 1, 268, 131, 73, 48, 28, 20, 11, 8, 4, 3, 1, 1
Offset: 1

Views

Author

Omar E. Pol, Feb 15 2012

Keywords

Comments

Let m and n be two positive integers such that m <= n. It appears that any set formed by m connected sections, or m disconnected sections, or a mixture of both, has the same properties described in the section example. (Cf. A135010, A207031, A207032, A212010). - Omar E. Pol, May 01 2012

Examples

			Calculation for n = 6. Write the partitions of 6 and below the sums of their columns:
.
.   6
.   3 + 3
.   4 + 2
.   2 + 2 + 2
.   5 + 1
.   3 + 2 + 1
.   4 + 1 + 1
.   2 + 2 + 1 + 1
.   3 + 1 + 1 + 1
.   2 + 1 + 1 + 1 + 1
.   1 + 1 + 1 + 1 + 1 + 1
. ------------------------
.  35, 16,  8,  4,  2,  1  --> Row 6 of triangle A181187.
.   |  /|  /|  /|  /|  /|
.   | / | / | / | / | / |
.   |/  |/  |/  |/  |/  |
.  19,  8,  4,  2,  1,  1  --> Row 6 of triangle A066633.
.
More generally, it appears that the sum of column k is also the total number of parts >= k in all partitions of n. It appears that the first differences of the column sums together with 1 give the number of occurrences of k in all partitions of n.
On the other hand we can see that the partitions of 6 contain:
24  odd parts >= 1 (the odd parts).
11 even parts >= 2 (the even parts).
5   odd parts >= 3.
3  even parts >= 4.
2   odd parts >= 5.
1  even part  >= 6.
Then, using the values of the column sums, it appears that:
T(6,1) = 35 - 16 + 8 - 4 + 2 - 1 = 24
T(6,2) =      16 - 8 + 4 - 2 + 1 = 11
T(6,3) =           8 - 4 + 2 - 1 = 5
T(6,4) =               4 - 2 + 1 = 3
T(6,5) =                   2 - 1 = 1
T(6,6) =                       1 = 1
So the 6th row of our triangle gives 24, 11, 5, 3, 1, 1.
Finally, for all partitions of 6, we can write:
The number of  odd parts      is equal to T(6,1) = 24.
The number of even parts      is equal to T(6,2) = 11.
The number of  odd parts >= 3 is equal to T(6,3) = 5.
The number of even parts >= 4 is equal to T(6,4) = 3.
The number of  odd parts >= 5 is equal to T(6,5) = 1.
The number of even parts >= 6 is equal to T(6,6) = 1.
More generally, we can write the same properties for any positive integer.
Triangle begins:
1;
2,    1;
5,    1,  1;
8,    4,  1,  1;
15,   5,  3,  1,  1;
24,  11,  5,  3,  1,  1;
39,  15,  9,  4,  3,  1,  1;
58,  28, 13,  9,  4,  3,  1,  1;
90,  38, 23, 12,  8,  4,  3,  1,  1;
130, 62, 33, 21, 12,  8,  4,  3,  1,  1;
		

Crossrefs

Formula

It appears that T(n,k) = abs(Sum_{j=k..n} (-1)^j*A181187(n,j)).
It appears that A066633(n,k) = T(n,k) - T(n,k+2). - Omar E. Pol, Feb 26 2012

Extensions

More terms from Alois P. Heinz, Feb 18 2012

A221530 Triangle read by rows: T(n,k) = A000005(k)*A000041(n-k).

Original entry on oeis.org

1, 1, 2, 2, 2, 2, 3, 4, 2, 3, 5, 6, 4, 3, 2, 7, 10, 6, 6, 2, 4, 11, 14, 10, 9, 4, 4, 2, 15, 22, 14, 15, 6, 8, 2, 4, 22, 30, 22, 21, 10, 12, 4, 4, 3, 30, 44, 30, 33, 14, 20, 6, 8, 3, 4, 42, 60, 44, 45, 22, 28, 10, 12, 6, 4, 2, 56, 84, 60, 66, 30, 44, 14, 20, 9, 8, 2, 6
Offset: 1

Views

Author

Omar E. Pol, Jan 19 2013

Keywords

Comments

T(n,k) is the number of partitions of n that contain k as a part multiplied by the number of divisors of k.
It appears that T(n,k) is also the total number of appearances of k in the last k sections of the set of partitions of n multiplied by the number of divisors of k.
T(n,k) is also the number of partitions of k into equal parts multiplied by the number of ones in the j-th section of the set of partitions of n, where j = (n - k + 1).
For another version see A245095. - Omar E. Pol, Jul 15 2014

Examples

			For n = 6:
  -------------------------
  k   A000005        T(6,k)
  1      1  *  7   =    7
  2      2  *  5   =   10
  3      2  *  3   =    6
  4      3  *  2   =    6
  5      2  *  1   =    2
  6      4  *  1   =    4
  .         A000041
  -------------------------
So row 6 is [7, 10, 6, 6, 4, 2]. Note that the sum of row 6 is 7+10+6+6+2+4 = 35 equals A006128(6).
.
Triangle begins:
  1;
  1,   2;
  2,   2,  2;
  3,   4,  2,  3;
  5,   6,  4,  3,  2;
  7,  10,  6,  6,  2,  4;
  11, 14, 10,  9,  4,  4,  2;
  15, 22, 14, 15,  6,  8,  2,  4;
  22, 30, 22, 21, 10, 12,  4,  4,  3;
  30, 44, 30, 33, 14, 20,  6,  8,  3,  4;
  42, 60, 44, 45, 22, 28, 10, 12,  6,  4,  2;
  56, 84, 60, 66, 30, 44, 14, 20,  9,  8,  2,  6;
  ...
		

Crossrefs

Similar to A221529.
Columns 1-2: A000041, A139582. Leading diagonals 1-3: A000005, A000005, A062011. Row sums give A006128.

Programs

  • Mathematica
    A221530row[n_]:=DivisorSigma[0,Range[n]]PartitionsP[n-Range[n]];Array[A221530row,10] (* Paolo Xausa, Sep 04 2023 *)
  • PARI
    row(n) = vector(n, i, numdiv(i)*numbpart(n-i)); \\ Michel Marcus, Jul 18 2014

Formula

T(n,k) = d(k)*p(n-k) = A000005(k)*A027293(n,k).

A207383 Triangle read by rows: T(n,k) is the sum of parts of size k in the last section of the set of partitions of n.

Original entry on oeis.org

1, 1, 2, 2, 0, 3, 3, 4, 0, 4, 5, 2, 3, 0, 5, 7, 8, 6, 4, 0, 6, 11, 6, 6, 4, 5, 0, 7, 15, 16, 9, 12, 5, 6, 0, 8, 22, 14, 18, 8, 10, 6, 7, 0, 9, 30, 30, 18, 20, 15, 12, 7, 8, 0, 10, 42, 30, 30, 20, 20, 12, 14, 8, 9, 0, 11, 56, 54, 42, 40, 25, 30, 14, 16, 9, 10, 0, 12
Offset: 1

Views

Author

Omar E. Pol, Feb 24 2012

Keywords

Comments

For further properties of this triangle see also A182703.

Examples

			Triangle begins:
   1;
   1,  2;
   2,  0,  3;
   3,  4,  0,  4;
   5,  2,  3,  0,  5;
   7,  8,  6,  4,  0,  6;
  11,  6,  6,  4,  5,  0,  7;
  15, 16,  9, 12,  5,  6,  0,  8;
  22, 14, 18,  8, 10,  6,  7,  0,  9;
  30, 30, 18, 20, 15, 12,  7,  8,  0, 10;
  42, 30, 30, 20, 20, 12, 14,  8,  9,  0, 11;
  56, 54, 42, 40, 25, 30, 14, 16,  9, 10,  0, 12;
...
From _Omar E. Pol_, Nov 28 2020: (Start)
Illustration of three arrangements of the last section of the set of partitions of 7, or more generally the 7th section of the set of partitions of any integer >= 7:
.                                        _ _ _ _ _ _ _
.     (7)                    (7)        |_ _ _ _      |
.     (4+3)                (4+3)        |_ _ _ _|_    |
.     (5+2)                (5+2)        |_ _ _    |   |
.     (3+2+2)            (3+2+2)        |_ _ _|_ _|_  |
.       (1)                  (1)                    | |
.         (1)                (1)                    | |
.         (1)                (1)                    | |
.           (1)              (1)                    | |
.         (1)                (1)                    | |
.           (1)              (1)                    | |
.           (1)              (1)                    | |
.             (1)            (1)                    | |
.             (1)            (1)                    | |
.               (1)          (1)                    | |
.                 (1)        (1)                    |_|
.    ----------------
.     19,8,5,3,2,1,1 --> Row 7 of triangle A207031
.      |/|/|/|/|/|/|
.     11,3,2,1,1,0,1 --> Row 7 of triangle A182703
.      * * * * * * *
.      1,2,3,4,5,6,7 --> Row 7 of triangle A002260
.      = = = = = = =
.     11,6,6,4,5,0,7 --> Row 7 of this triangle
.
Note that the "head" of the last section is formed by the partitions of 7 that do not contain 1 as a part. The "tail" is formed by A000041(7-1) parts of size 1. The number of rows (or zones) is A000041(7) = 15. The last section of the set of partitions of 7 contains eleven 1's, three 2's, two 3's, one 4, one 5, there are no 6's and it contains one 7. So the 7th row of triangle is [11, 6, 6, 4, 5, 0, 7]. (End)
		

Crossrefs

Column 1 is A000041.
Leading diagonal gives A000027.
Second diagonal gives A000007.
Row sums give A138879.

Formula

T(n,k) = k*A182703(n,k).
Previous Showing 11-20 of 99 results. Next