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-6 of 6 results.

A186545 Sequence of coefficients arising in study of generating function for A067619.

Original entry on oeis.org

1, -1, 3, -2, 5, -5, 8, -7, 13, -13, 18, -19, 26, -29, 39, -40, 52, -60, 72, -81, 101, -113, 134, -152, 181, -206, 243, -273, 318, -365, 418, -473, 549, -620, 710, -803, 914, -1034, 1177, -1322, 1498, -1691, 1904, -2139, 2416, -2704, 3036, -3400, 3811, -4261
Offset: 1

Views

Author

N. J. A. Sloane, Feb 23 2011

Keywords

Programs

  • Mathematica
    nmax = 50; A067619 = CoefficientList[Series[Sum[k*x^(2*k - 1)*Product[1 + x^(2*j - 1), {j, 1, k - 1}], {k, 1, nmax + 1}], {x, 0, nmax + 1}], x]; A000700 = CoefficientList[Series[Product[1 + x^(2 k + 1), {k, 0, nmax + 1}], {x, 0, nmax + 1}], x]; b = ConstantArray[0, nmax + 1]; b[[1]] = 0; Do[b[[n + 1]] = (A067619[[n + 1]] - Sum[A000700[[n - k + 1]]*b[[k + 1]], {k, 0, n - 1}]) / A000700[[1]], {n, 1, nmax}]; Rest[b] (* Vaclav Kotesovec, Jun 28 2016 *)

Extensions

More terms from Vaclav Kotesovec, Jun 28 2016

A015723 Number of parts in all partitions of n into distinct parts.

Original entry on oeis.org

1, 1, 3, 3, 5, 8, 10, 13, 18, 25, 30, 40, 49, 63, 80, 98, 119, 149, 179, 218, 266, 318, 380, 455, 541, 640, 760, 895, 1050, 1234, 1442, 1679, 1960, 2272, 2635, 3052, 3520, 4054, 4669, 5359, 6142, 7035, 8037, 9170, 10460, 11896, 13517, 15349, 17394, 19691
Offset: 1

Views

Author

Keywords

Examples

			The strict integer partitions of 6 are {(6), (5,1), (4,2), (3,2,1)} with a total of 1 + 2 + 2 + 3 = 8 parts, so a(6) = 8. - _Gus Wiseman_, May 09 2019
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i) option remember; `if`(n=0, [1, 0], `if`(i<1, [0, 0],
          add((l->[l[1], l[2]+l[1]*j])(b(n-i*j, i-1)), j=0..min(n/i, 1))))
        end:
    a:= n-> b(n, n)[2]:
    seq(a(n), n=1..50);  # Alois P. Heinz, Feb 27 2013
  • Mathematica
    nn=50; Rest[CoefficientList[Series[D[Product[1+y x^i,{i,1,nn}],y]/.y->1,{x,0,nn}],x]]  (* Geoffrey Critzer, Oct 29 2012; fixed by Vaclav Kotesovec, Apr 16 2016 *)
    q[n_, k_] := q[n, k] = If[nVaclav Kotesovec, Apr 16 2016 *)
    Table[Length[Join@@Select[IntegerPartitions[n],UnsameQ@@#&]],{n,1,50}] (* Gus Wiseman, May 09 2019 *)
    b[n_, i_] := b[n, i] = If[n == 0, {1, 0}, If[i<1, {0, 0},
       Sum[{#[[1]], #[[2]] + #[[1]]*j}&@ b[n-i*j, i-1], {j, 0, Min[n/i, 1]}]]];
    a[n_] := b[n, n][[2]];
    Array[a, 50] (* Jean-François Alcover, May 21 2021, after Alois P. Heinz *)
  • PARI
    N=66;  q='q+O('q^N); gf=sum(n=0,N, n*q^(n*(n+1)/2) / prod(k=1,n, 1-q^k ) );
    Vec(gf) /* Joerg Arndt, Oct 20 2012 */

Formula

G.f.: sum(k>=1, x^k/(1+x^k) ) * prod(m>=1, 1+x^m ). Convolution of A048272 and A000009. - Vladeta Jovovic, Nov 26 2002
G.f.: sum(k>=1, k*x^(k*(k+1)/2)/prod(i=1..k, 1-x^i ) ). - Vladeta Jovovic, Sep 21 2005
a(n) = A238131(n)+A238132(n) = sum_{k=1..n} A048272(k)*A000009(n-k). - Mircea Merca, Feb 26 2014
a(n) = Sum_{k>=1} k*A008289(n,k). - Vaclav Kotesovec, Apr 16 2016
a(n) ~ 3^(1/4) * log(2) * exp(Pi*sqrt(n/3)) / (2 * Pi * n^(1/4)). - Vaclav Kotesovec, May 19 2018
For n > 0, a(n) = A116676(n) + A116680(n). - Vaclav Kotesovec, May 26 2018

Extensions

Extended and corrected by Naohiro Nomoto, Feb 24 2002

A079499 Total number of parts in all partitions of n into distinct odd parts.

Original entry on oeis.org

0, 1, 0, 1, 2, 1, 2, 1, 4, 4, 4, 4, 6, 7, 6, 10, 12, 13, 12, 16, 18, 22, 22, 25, 32, 36, 36, 42, 50, 53, 58, 64, 76, 83, 88, 99, 116, 123, 132, 147, 168, 181, 194, 215, 240, 262, 280, 306, 346, 375, 396, 437, 482, 521, 558, 610, 670, 724, 772, 840, 922, 993, 1056, 1151, 1256, 1348
Offset: 0

Views

Author

Arnold Knopfmacher, Jan 21 2003

Keywords

Comments

Also sum of the sizes of the Durfee squares of all self-conjugate partitions of n. Example: a(13)=7 because there are three self-conjugate partitions of 13, namely [7,1,1,1,1,1,1], [5,3,3,1,1] and [4,4,3,2], having Durfee squares of sizes 1,3 and 3, respectively. a(n) = Sum_{k=1..floor(sqrt(n))} k*A116422(n,k). - Emeric Deutsch, Feb 14 2006

Examples

			a(13)=7 because the partitions of 13 into distinct odd parts are [13], [9,3,1] and [7,5,1] and we have 1+3+3=7 parts.
		

References

  • G. E. Andrews, The Theory of Partitions, Addison-Wesley, 1976 (pp. 27-28).
  • G. E. Andrews and K. Eriksson, Integer Partitions, Cambridge Univ. Press, 2004 (pp. 75-78).

Crossrefs

Programs

  • Maple
    g:=sum(k*x^(k^2)/product(1-x^(2*i),i =1..k),k=1..20):gser:=series(g,x=0,52): seq(coeff(gser,x,n),n=0..50); # Emeric Deutsch, Feb 14 2006
  • Mathematica
    max = 100; s = Sum[ k*x^(k^2) / Product[1-x^(2*j), {j, 1, k}], {k, 1, Sqrt[max] // Ceiling}]; CoefficientList[ Series[s, {x, 0, max}], x] (* Jean-François Alcover, Feb 19 2015, after Vladeta Jovovic *)
  • PARI
    N=66;  S=2+sqrtint(N); x='x+O('x^N);
    gf=sum(n=0, S, n*x^(n^2)/prod(k=1,n, 1-x^(2*k)) );
    concat( [0], Vec(gf) )
    \\ Joerg Arndt, Feb 18 2014

Formula

G.f.: (Sum_{k>=1} x^(2*k-1)/(1 + x^(2*k-1))) * Product_{m>=1} (1 + x^(2m-1)).
G.f.: Sum_{k>=1} k*x^(k^2)/Product_{j=1..k} (1 - x^(2*j)). - Vladeta Jovovic, Aug 06 2004
a(n) ~ 3^(1/4) * log(2) * exp(Pi*sqrt(n/6)) / (Pi * 2^(5/4) * n^(1/4)). - Vaclav Kotesovec, May 20 2018

A330370 Irregular triangle read by rows T(n,m) in which row n lists all partitions of n ordered by their k-th ranks, or by their k-th largest parts if all their k-th ranks are zeros, with k = 1..n.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Dec 12 2019

Keywords

Comments

Theorem: the k-th part of a partition in nonincreasing order of a positive integer equals the number of parts >= k of its conjugate partition.
Example: for n = 9 consider the partition [5, 3, 1]. The first part is 5, so the conjugate partition [3, 2, 2, 1, 1] has five parts >= 1. The second part is 3, so the conjugate partition has three parts >= 2. The third part is 1, so the conjugate partition has only one part >= 3. And vice versa, consider now the partition [3, 2, 2, 1, 1]. The first part is 3, so the conjugate partition [5, 3, 1] has three parts >= 1. The second part is 2, so the conjugate partition has two parts >= 2. The third part is 2, so the conjugate partition has two parts >= 3. The fourth part is 1, so the conjugate partition has only one part >= 4. The fifth part is 1, so the conjugate partition has only one part >= 5.
Corollary: the difference between the k-th part and the (k+1)-st part of a partition in nonincreasing order of a positive integer equals the number of k's in its conjugate partition.
Example: consider the partition [5, 3, 1]. The difference between the first and the second parts is 5 - 3 = 2, which equals the number of 1's in its conjugate partition [3, 2, 2, 1, 1]. The difference between the second and third parts is 3 - 1 = 2, which equals the number of 2's in its conjugate partition. The difference between the third part and the fourth (virtual) part is 1 - 0 = 1, which equals the number of 3's in its conjugate partition. And vice versa, consider the partition [3, 2, 2, 1, 1]. The difference between the first and second parts is 3 - 2 = 1, which equals the number of 1's in its conjugate partition [5, 3, 1]. The difference between the second and third parts is 2 - 2 = 0, which equals the number of 2's in its conjugate partition. The difference between the third and fourth parts is 2 - 1 = 1, which equals the number of 3's in its conjugate partition, and so on.
Self-conjugate partitions are included in all the above comments.
A proof without words is as shown below:
.
+------------------------+
| +--------------------+ |
| | +----------------+ | |
| | | | | |
v v v P2 FD k | | |
| | |
+--------> * * * 3 1 1 --+ | |
| +------> * * 2 0 2 | |
| +------> * * 2 1 3 ----+ |
| | +----> * 1 0 4 |
| | +----> * 1 1 5 ------+
| | |
| | | P1 5 3 1
| | |
| | | FD 2 2 1
| | |
| | | k 1 2 3
| | |
| | | | | |
| | +-------+ | |
| +-----------+ |
+---------------+
.
Every partition of n has n ranks.
The k-th rank of a partition is the k-th part minus the number of parts >= k.
In accordance with the above theorem, the k-th rank of a partition is also the number of parts >= k of its conjugate partition minus the number of parts >= k of the partition.
All ranks of a partition are zeros if and only if the partition is a self-conjugate partition.
The list of ranks of a partition of n equals the list of ranks multipled by -1 of its conjugate partition.
For example, the nine ranks of the partition [5, 3, 1] are [2, 1, -1, -1, -1, -1, 0, 0, 0], and the nine ranks of its conjugate partition [3, 2, 2, 1, 1] are [-2, -1, 1, 1, 1, 1, 0, 0, 0].
Note that the first rank coincides with the Dyson's rank because the first part of a partition is also the largest part, and the number of parts >= 1 is also the total number of parts.
In this triangle the partitions of n appears ordered by their first rank. The partitions that have the same first rank appears ordered by their second rank. The partitions that have the same first rank and the same second rank appears ordered by their third rank, and so on. The partitions that have all k-ranks equal zero appears ordered by their largest parts, then by their second largest parts, then by their third largest parts, and so on.
Note that a partition and its conjugate partition both are equidistants from the center of the list of partitions of n.
The first ranks of the partitions of this triangle give A330368.
For more information about the k-th ranks see A208478.
First differs from A080577 at a(48), and from A036037 at a(56), and from A181317 at a(105).

Examples

			Triangle begins:
  [1];
  [2], [1,1];
  [3], [2,1], [1,1,1];
  [4], [3,1], [2,2], [2,1,1], [1,1,1,1];
  [5], [4,1], [3,2], [3,1,1], [2,2,1], [2,1,1,1], [1,1,1,1,1];
  [6], [5,1], [4,2], [3,3], [4,1,1], [3,2,1], [3,1,1,1], [2,2,2], ...
  ...
Illustration of initial terms with a symmetric arrangement (note that the self-conjugate partitions are located in the main diagonal):
.
  1    1 1    1 1 1    1 1 1 1    1 1 1 1 1           1 1 1 1 1 1
  *    * *    * * *    * * * *    * * * * *           * * * * * *
  2
  *
  *
  3           2 1      2 1 1      2 1 1 1             2 1 1 1 1
  *           * *      * * *      * * * *             * * * * *
  *           *        *          *                   *
  *
  4           3 1      2 2        2 2 1               2 2 1 1
  *           * *      * *        * * *               * * * *
  *           *        * *        * *                 * *
  *           *
  *
  5           4 1      3 2        3 1 1               2 2 2
  *           * *      * *        * * *               * * *
  *           *        * *        *                   * * *
  *           *        *          *
  *           *                                       3 1 1 1
  *                                                   * * * *
                                                      *
                                                      *
.
  6           5 1      4 2        3 3      4 1 1      3 2 1
  *           * *      * *        * *      * * *      * * *
  *           *        * *        * *      *          * *
  *           *        *          * *      *          *
  *           *        *                   *
  *           *
  *
For n = 9 the 9th row of the triangle contains the partitions ordered as shown below:
---------------------------------------------------------------------------------
                                                                Ranks
          Conjugate
Label       with        Partitions                k = 1  2  3  4  5  6  7  8  9
---------------------------------------------------------------------------------
   1         30         [9]                           8 -1 -1 -1 -1 -1 -1 -1 -1
   2         29         [8, 1]                        6  0 -1 -1 -1 -1 -1 -1  0
   3         28         [7, 2]                        5  0 -1 -1 -1 -1 -1  0  0
   4         27         [6, 3]                        4  1 -2 -1 -1 -1  0  0  0
   5         26         [7, 1, 1]                     4  0  0 -1 -1 -1 -1  0  0
   6         25         [5, 4]                        3  2 -2 -2 -1  0  0  0  0
   7         24         [6, 2, 1]                     3  0  0 -1 -1 -1  0  0  0
   8         23         [5, 3, 1]                     2  1 -1 -1 -1  0  0  0  0
   9         22         [6, 1, 1, 1]                  2  0  0  0 -1 -1  0  0  0
  10         21         [5, 2, 2]                     2 -1  1 -1 -1  0  0  0  0
  11         20         [4, 4, 1]                     1  2 -1 -2  0  0  0  0  0
  12         19         [5, 2, 1, 1]                  1  0  0  0 -1  0  0  0  0
  13         18         [4, 3, 2]                     1  0  0 -1  0  0  0  0  0
  14         17         [4, 3, 1, 1]                  0  1 -1  0  0  0  0  0  0
  15  (self-conjugate)  [5, 1, 1, 1, 1]  All zeros -> 0  0  0  0  0  0  0  0  0
  16  (self-conjugate)  [3, 3, 3]        All zeros -> 0  0  0  0  0  0  0  0  0
  17         14         [4, 2, 2, 1]                  0 -1  1  0  0  0  0  0  0
  18         13         [3, 3, 2, 1]                 -1  0  0  1  0  0  0  0  0
  19         12         [4, 2, 1, 1, 1]              -1  0  0  0  1  0  0  0  0
  20         11         [3, 2, 2, 2]                 -1 -2  1  2  0  0  0  0  0
  21         10         [3, 3, 1, 1, 1]              -2  1 -1  1  1  0  0  0  0
  22          9         [4, 1, 1, 1, 1, 1]           -2  0  0  0  1  1  0  0  0
  23          8         [3, 2, 2, 1, 1]              -2 -1  1  1  1  0  0  0  0
  24          7         [3, 2, 1, 1, 1, 1]           -3  0  0  1  1  1  0  0  0
  25          6         [2, 2, 2, 2, 1]              -3 -2  2  2  1  0  0  0  0
  26          5         [3, 1, 1, 1, 1, 1, 1]        -4  0  0  1  1  1  1  0  0
  27          4         [2, 2, 2, 1, 1, 1]           -4 -1  2  1  1  1  0  0  0
  28          3         [2, 2, 1, 1, 1, 1, 1]        -5  0  1  1  1  1  1  0  0
  29          2         [2, 1, 1, 1, 1, 1, 1, 1]     -6  0  1  1  1  1  1  1  0
  30          1         [1, 1, 1, 1, 1, 1, 1, 1, 1]  -8  1  1  1  1  1  1  1  1
.
Two examples of the order of partitions:
1) The partitions [6, 3] and [7, 1, 1] both have their first rank equal to 4, so they are ordered by their sencond rank.
2) The self-conjugate partitions [5, 1, 1, 1, 1] and [3, 3, 3] both have all their ranks equal to zero, so they are ordered by their first part.
		

Crossrefs

Row n contains A000041(n) partitions.
Row n has length A006128(n).
The sum of n-th row is A066186(n).
For "k-th rank" of a partition see also: A181187, A208478, A208479, A208482, A208483.

A092316 Sum of largest parts of all partitions of n into odd distinct parts.

Original entry on oeis.org

1, 0, 3, 3, 5, 5, 7, 12, 14, 16, 18, 27, 29, 33, 42, 55, 59, 65, 78, 95, 110, 118, 137, 167, 188, 200, 236, 274, 303, 330, 376, 435, 485, 522, 591, 677, 741, 803, 903, 1022, 1115, 1210, 1345, 1505, 1650, 1784, 1964, 2201, 2393, 2578, 2843, 3143, 3409, 3685, 4034
Offset: 1

Views

Author

Vladeta Jovovic, Feb 15 2004

Keywords

Examples

			a(13) = 29 because the partitions of 13 into distinct odd parts are [13],[9,3,1] and [7,5,1], with sum of largest terms 13+9+7 = 29.
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1 or i^2 `if`(t>n, 0, b(n-t, i-1)))(2*i-1) ))
        end:
    a:= n-> add(`if`(j::odd, j*b(n-j, (j-1)/2), 0), j=1..n):
    seq(a(n), n=1..55);  # Alois P. Heinz, Jan 19 2022
  • Mathematica
    nmax = 50; Rest[CoefficientList[Series[Sum[(2*k - 1)*x^(2*k - 1) * Product[1 + x^(2*j - 1), {j, 1, k - 1}], {k, 1, nmax}], {x, 0, nmax}], x]] (* Vaclav Kotesovec, Jun 28 2016 *)

Formula

G.f.: Sum_{n>=1} (2*n-1)*x^(2*n-1)*Product_{k=1..n-1} (1+x^(2*k-1)).
a(n) = 2 * A067619(n) - A000700(n). - Seiichi Manyama, Jan 19 2022

Extensions

More terms from Pab Ter (pabrlos(AT)yahoo.com), May 25 2004

A330372 Irregular triangle read by rows in which row n lists the self-conjugate partitions of n, ordered by their k-th largest parts, or 0 if such partitions does not exist.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Dec 17 2019

Keywords

Comments

Row n lists the partitions of n whose Ferrers diagrams are symmetrics.
The k-th part of a partition equals the number of parts >= k of its conjugate partition. Hence, the k-th part of a self-conjugate partition equals the number of parts >= k.
The k-th rank of a partition is the k-th part minus the number of parts >= k. Thus all ranks of a conjugate-partitions are zero. Therefore row n lists the partitions of n whose n ranks are zero, n >= 1. For more information about the k-th ranks see A208478.

Examples

			Triangle begins (rows n = 0..10):
[0];
[1];
[0];
[2, 1];
[2, 2];
[3, 1, 1];
[3, 2, 1];
[4, 1, 1, 1];
[4, 2, 1, 1], [3, 3, 2];
[5, 1, 1, 1, 1], [3, 3, 3];
[5, 2, 1, 1, 1], [4, 3, 2, 1];
...
For n = 10 there are only two partitions of 10 whose Ferrers diagram are symmetric, they are [5, 2, 1, 1, 1] and [4, 3, 2, 1] as shown below:
  * * * * *
  * *
  *
  *
  *
            * * * *
            * * *
            * *
            *
So these partitions form the 10th row of triangle.
On the other hand, only two partitions of 10 have all their ranks equal to zero, they are [5, 2, 1, 1, 1] and [4, 3, 2, 1], so these partitions form the 10th row of triangle.
		

Crossrefs

Row n contains A000700(n) partitions.
The number of positive terms in row n is A067619(n).
Row sums give A330373.
Column 2 gives A000034.
Column 3 gives A000012.
For "k-th rank" of a partition see also: A181187, A208478, A208479, A208482, A208483, A330370.

Extensions

More terms from Freddy Barrera, Dec 31 2019
Showing 1-6 of 6 results.