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 31-40 of 78 results. Next

A211989 A list of ordered partitions of the positive integers in which the shells of each integer are assembled by their tails.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Aug 18 2012

Keywords

Comments

The sequence lists the partitions of all positive integers. Each row of the irregular array is a partition of j.
At stage 1, we start with 1.
At stage j > 1, we write the partitions of j using the following rules:
First, we write the partitions of j that do not contain 1 as a part, in reverse-lexicographic order, starting with the partition that contains the part of size j.
Second, we copy from this array the partitions of j-1 in descending order, as a mirror image, starting with the partition that contains the part of size j-2 together with the part of size 1. At the end of each new row, we added a part of size 1.

Examples

			A table of partitions.
--------------------------------------------
.              Expanded       Geometric
Partitions     arrangement    model
--------------------------------------------
1;             1;             |*|
--------------------------------------------
2;             . 2;           |* *|
1,1;           1,1;           |o|*|
--------------------------------------------
3;             . . 3;         |* * *|
1,1,1;         1,1,1;         |o|o|*|
2,1;           . 2,1;         |o o|*|
--------------------------------------------
4;             . . . 4;       |* * * *|
2,2;           . 2,. 2;       |* *|* *|
2,1,1;         . 2,1,1;       |o o|o|*|
1,1,1,1;       1,1,1,1;       |o|o|o|*|
3,1;           . . 3,1;       |o o o|*|
--------------------------------------------
5;             . . . . 5;     |* * * * *|
3,2;           . . 3,. 2;     |* * *|* *|
3,1,1;         . . 3,1,1;     |o o o|o|*|
1,1,1,1,1;     1,1,1,1,1;     |o|o|o|o|*|
2,1,1,1;       . 2,1,1,1;     |o o|o|o|*|
2,2,1;         . 2,. 2,1;     |o o|o o|*|
4,1;           . . . 4,1;     |o o o o|*|
--------------------------------------------
6;             . . . . . 6;   |* * * * * *|
3,3;           . . 3,. . 3;   |* * *|* * *|
4,2;           . . . 4,. 2;   |* * * *|* *|
2,2,2;         . 2,. 2,. 2;   |* *|* *|* *|
4,1,1;         . . . 4,1,1;   |o o o o|o|*|
2,2,1,1;       . 2,. 2,1,1;   |o o|o o|o|*|
2,1,1,1,1;     . 2,1,1,1,1;   |o o|o|o|o|*|
1,1,1,1,1,1;   1,1,1,1,1,1;   |o|o|o|o|o|*|
3,1,1,1;       . . 3,1,1,1;   |o o o|o|o|*|
3,2,1;         . . 3,. 2,1;   |o o o|o o|*|
5,1;           . . . . 5,1;   |o o o o o|*|
--------------------------------------------
Note that * is a unitary element of every part of the last section of j.
		

Crossrefs

Rows sums give A036042, n>=1.
Other versions are A211983, A211984, A211999. See also A026792, A211992-A211994. Spiral arrangements are A211985-A211988, A211995-A211998.

A211994 A list of ordered partitions of the positive integers.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Aug 18 2012

Keywords

Comments

The order of the partitions of the odd integers is the same as A026792. The order of the partitions of the even integers is the same as A211992.

Examples

			A table of partitions.
--------------------------------------------
.              Expanded       Geometric
Partitions     arrangement    model
--------------------------------------------
1;             1;             |*|
--------------------------------------------
1,1;           1,1;           |o|*|
2;             . 2;           |* *|
--------------------------------------------
3;             . . 3;         |* * *|
2,1;           . 2,1;         |o o|*|
1,1,1;         1,1,1;         |o|o|*|
--------------------------------------------
1,1,1,1;       1,1,1,1;       |o|o|o|*|
2,1,1;         . 2,1,1;       |o o|o|*|
3,1;           . . 3,1;       |o o o|*|
2,2;           . 2,. 2;       |* *|* *|
4;             . . . 4;       |* * * *|
--------------------------------------------
5;             . . . . 5;     |* * * * *|
3,2;           . . 3,. 2;     |* * *|* *|
4,1;           . . . 4,1;     |o o o o|*|
2,2,1;         . 2,. 2,1;     |o o|o o|*|
3,1,1;         . . 3,1,1;     |o o o|o|*|
2,1,1,1;       . 2,1,1,1;     |o o|o|o|*|
1,1,1,1,1;     1,1,1,1,1;     |o|o|o|o|*|
--------------------------------------------
1,1,1,1,1,1;   1,1,1,1,1,1;   |o|o|o|o|o|*|
2,1,1,1,1;     . 2,1,1,1,1;   |o o|o|o|o|*|
3,1,1,1;       . . 3,1,1,1;   |o o o|o|o|*|
2,2,1,1;       . 2,. 2,1,1;   |o o|o o|o|*|
4,1,1;         . . . 4,1,1;   |o o o o|o|*|
3,2,1;         . . 3,. 2,1;   |o o o|o o|*|
5,1;           . . . . 5,1;   |o o o o o|*|
2,2,2;         . 2,. 2,. 2;   |* *|* *|* *|
4,2;           . . . 4,. 2;   |* * * *|* *|
3,3;           . . 3,. . 3;   |* * *|* * *|
6;             . . . . . 6;   |* * * * * *|
--------------------------------------------
Note that * is a unitary element of every part of the last section of j.
		

Crossrefs

Rows sums give A036042, n>=1.
Other versions are A026792, A211992, A211993. See also A211983, A211984, A211989, A211999. Spiral arrangements are A211985-A211988, A211995-A211998.

A341062 Sequence whose partial sums give A000005.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Feb 04 2021

Keywords

Comments

Essentially a duplicate of A051950.
Convolved with A000041 gives A138137.
Convolved with A000027 gives the nonzero terms of A006218.
Convolved with A000070 gives the nonzero terms of A006128.
Convolved with A014153 gives the nonzero terms of A284870.
Convolved with A036469 gives the nonzero terms of A305082.
Convolved with the nonzero terms of A006218 gives A055507.
Convolved with the nonzero terms of A000217 gives the nonzero terms of A078567.

Crossrefs

Programs

  • Mathematica
    Join[{1}, Differences[Table[DivisorSigma[0, n], {n, 1, 90}]]] (* Amiram Eldar, Feb 06 2021 *)

Formula

a(n) = A051950(n) for n > 1.

A138151 Irregular triangle read by rows in which rows 1..n (when read together) list all the parts in the partitions of n and row n starts with the partitions of n that do not contain 1 as a part (in the order used for A080577).

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Mar 21 2008

Keywords

Comments

The remainder of row n is necessarily A000041(n-1) 1's.
Previous name: A shell model of partitions. Row n lists the parts of the last section of the set of partitions of n.
Row n lists the nonzero terms of the n-th row of A138136 together with A000041(n-1) 1's.
Row n is also the n-th row of A138138 in reverse order.

Examples

			Triangle begins:
1
2,1
3,1,1
4,2,2,1,1,1
5,3,2,1,1,1,1,1,
6,4,2,3,3,2,2,2,1,1,1,1,1,1,1
7,5,2,4,3,3,2,2,1,1,1,1,1,1,1,1,1,1,1
8,6,2,5,3,4,4,4,2,2,3,3,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
9,7,2,6,3,5,4,5,2,2,4,3,2,3,3,3,3,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
		

Crossrefs

Mirror of A138138.
Row lengths give A138137.
Row sums give A138879.
Column 1 gives A000027.
Right border gives A000012.
Another version is A138121 which is the mirror of A135010.

Programs

  • Mathematica
    Table[Cases[IntegerPartitions[n], x_ /; Last[x] != 1] ~Join~ConstantArray[{1}, PartitionsP[n - 1]], {n, 8}] // Flatten (* Robert Price, May 22 2020 *)

Extensions

New name and comments edited by Peter Munn and Omar E. Pol, Jul 25 2025

A139100 Triangle read by rows: row n lists all partitions of n in the order produced by the shell model of partitions A138151.

Original entry on oeis.org

1, 2, 1, 1, 3, 2, 1, 1, 1, 1, 4, 2, 2, 3, 1, 2, 1, 1, 1, 1, 1, 1, 5, 3, 2, 4, 1, 2, 2, 1, 3, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 6, 4, 2, 3, 3, 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, 7, 5, 2, 4, 3, 3, 2, 2, 6, 1, 4, 2, 1, 3, 3, 1, 2, 2, 2, 1, 5, 1, 1, 3, 2, 1, 1, 4
Offset: 1

Views

Author

Omar E. Pol, Apr 15 2008

Keywords

Comments

See the integrated diagram of partitions in the entry A138138.
See A138151 for more information.
First 43 members = A026792.

Examples

			Triangle begins:
{(1)}
{(2), (1, 1)}
{(3), (2, 1), (1, 1, 1)}
{(4), (2, 2), (3, 1), (2, 1, 1), (1, 1, 1, 1)}
{(5), (3, 2), (4, 1), (2, 2, 1), (3, 1, 1), (2, 1, 1, 1), (1, 1, 1, 1, 1)}
		

Crossrefs

Programs

  • Mathematica
    Table[If[n == 1, ConstantArray[{1}, i - n + 1],
       Map[(Join[#, ConstantArray[{1}, i - n]]) &,
        Cases[IntegerPartitions[n], x_ /; Last[x] != 1]]], {i, 7}, {n, i, 1, -1}]  // Flatten(* Robert Price, May 28 2020 *)

A144117 Number of Fibonacci parts in the last section of the set of partitions of n.

Original entry on oeis.org

1, 2, 3, 5, 8, 13, 17, 28, 37, 55, 72, 104, 135, 187, 243, 327, 419, 557, 705, 922, 1163, 1494, 1871, 2383, 2960, 3730, 4611, 5754, 7073, 8766, 10710, 13180, 16036, 19600, 23736, 28859, 34788, 42075, 50529, 60811, 72747, 87184, 103907, 124019, 147330
Offset: 1

Views

Author

Omar E. Pol, Sep 11 2008

Keywords

Comments

First differences of A144115.
Also number of Fibonacci parts in the n-th section of the set of partitions of any positive integer >= n. - Omar E. Pol, Jul 30 2015

Crossrefs

Programs

  • Maple
    b:= proc(n) option remember; false end: l:= [0, 1]: for k to 100 do b(l[1]):= true; l:= [l[2], l[1]+l[2]] od: aa:= proc(n, i) option remember; local g, h; if n=0 then [1, 0] elif i=0 or n<0 then [0, 0] else g:= aa(n, i-1); h:= aa(n-i, i); [g[1]+h[1], g[2]+h[2] +`if`(b(i), h[1], 0)] fi end: a:= n-> aa(n, n)[2] -aa(n-1, n-1)[2]: seq(a(n), n=1..60); # Alois P. Heinz, Jul 28 2009
  • Mathematica
    Clear[b]; b[] = False; l = {0, 1}; For[k = 1, k <= 100, k++, b[l[[1]]] = True; l = {l[[2]], l[[1]] + l[[2]]}]; aa[n, i_] := aa[n, i] = Module[{g, h}, If[n == 0, {1, 0}, If[i == 0 || n < 0, {0, 0}, g = aa[n, i - 1]; h = aa[n - i, i]; {g[[1]] + h[[1]], g[[2]] + h[[2]] + If[b[i], h[[1]], 0]}]]] ; a[n_] := aa[n, n][[2]] - aa[n - 1, n - 1][[2]]; Table[a[n], {n, 1, 60}] (* Jean-François Alcover, Jul 30 2015, after Alois P. Heinz *)

Formula

a(n) = A144115(n) - A144115(n-1).

Extensions

More terms from Alois P. Heinz, Jul 28 2009

A194448 Number of parts > 1 in the n-th region of the shell model of partitions.

Original entry on oeis.org

0, 1, 1, 1, 2, 1, 2, 1, 2, 1, 4, 1, 2, 1, 4, 1, 2, 1, 4, 1, 1, 7, 1, 2, 1, 4, 1, 2, 1, 8, 1, 2, 1, 4, 1, 1, 7, 1, 2, 1, 1, 12, 1, 2, 1, 4, 1, 2, 1, 8, 1, 1, 3, 1, 1, 14, 1, 2, 1, 4, 1, 1, 7, 1, 2, 1, 1, 12, 1, 2, 1, 4, 1, 2, 1, 1, 21, 1, 2, 1, 4, 1, 2
Offset: 1

Views

Author

Omar E. Pol, Dec 10 2011

Keywords

Comments

Also triangle read by rows: T(n,k) = number of parts > 1 in the k-th region of the last section of the set of partitions of n.

Examples

			Written as a triangle:
0;
1;
1;
1,2;
1,2;
1,2,1,4;
1,2,1,4;
1,2,1,4,1,1,7;
1,2,1,4,1,2,1,8;
1,2,1,4,1,1,7,1,2,1,1,12;
1,2,1,4,1,2,1,8,1,1,3,1,1,14;
1,2,1,4,1,1,7,1,2,1,1,12,1,2,1,4,1,2,1,1,21;
		

Crossrefs

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

A278355 a(n) = sum of the perimeters of the Ferrers boards of the partitions of n. Also, sum of the perimeters of the diagrams of the regions of the set of partitions of n.

Original entry on oeis.org

0, 4, 12, 24, 48, 80, 140, 216, 344, 512, 768, 1100, 1596, 2224, 3120, 4272, 5852, 7860, 10576, 13992, 18520, 24208, 31596, 40824, 52696, 67404, 86088, 109176, 138180, 173812, 218252, 272540, 339708, 421464, 521848, 643504, 792056, 971248, 1188804, 1450348, 1766184, 2144416, 2599164, 3141748, 3791248, 4563780
Offset: 0

Views

Author

Omar E. Pol, Nov 19 2016

Keywords

Comments

a(n) is also 4 times the total number of parts in all partitions of n.
Hence a(n) is also 4 times the sum of largest parts of all partitions of n.
Hence a(n) is also twice the total number of parts in all partitions of n plus twice the sum of largest parts of all partitions of n.
a(n) is also the sum of the perimeters of the first n polygons constructed with the Dyck path (and its mirror) that arises from the minimalist diagram of the regions of the set of partitions of n. The n-th odd-indexed segment of the diagram has A141285(n) up-steps and the n-th even-indexed segment has A194446(n) down-steps. The k-th polygon of the diagram is associated to the k-th section of the set of partitions of n, with 1<=k<=n. See the bottom of Example section. For the definition of "section" see A135010. For the definition of "region" see A206437.

Examples

			For n = 5 consider the partitions of 5 in colexicographic order (as shown in the 5th row of the triangle A211992) and its associated diagram of regions as shown below:
.                                Regions            Minimalist
.         Partitions of 5        diagram             version
.                               _ _ _ _ _
.         1, 1, 1, 1, 1        |_| | | | |          _| | | | |
.         2, 1, 1, 1           |_ _| | | |          _ _| | | |
.         3, 1, 1              |_ _ _| | |          _ _ _| | |
.         2, 2, 1              |_ _|   | |          _ _|   | |
.         4, 1                 |_ _ _ _| |          _ _ _ _| |
.         3, 2                 |_ _ _|   |          _ _|     |
.         5                    |_ _ _ _ _|          _ _ _ _ _|
.
Then consider the following table which contains the Ferrers boards of the partitions of 5 and the diagram of every region of the set of partitions of 5:
-------------------------------------------------------------------------
| Partitions  |             |       |   Regions   |             |       |
|     of 5    |   Ferrers   | Peri- |     of 5    |   Region    | Peri- |
|(See A211992)|    board    | meter |(see A220482)|   diagram   | meter |
-------------------------------------------------------------------------
|                  _                |                 _                 |
|      1          |_|               |       1        |_|            4   |
|      1          |_|               |                   _               |
|      1          |_|               |       1         _|_|              |
|      1          |_|               |       2        |_|_|          8   |
|      1          |_|          12   |                     _             |
|                  _ _              |       1            |_|            |
|      2          |_|_|             |       1         _ _|_|            |
|      1          |_|               |       3        |_|_|_|       12   |
|      1          |_|               |                 _ _               |
|      1          |_|          12   |       2        |_|_|          6   |
|                  _ _ _            |                       _           |
|      3          |_|_|_|           |       1              |_|          |
|      1          |_|               |       1              |_|          |
|      1          |_|          12   |       1             _|_|          |
|                  _ _              |       2         _ _|_|_|          |
|      2          |_|_|             |       4        |_|_|_|_|     18   |
|      2          |_|_|             |                 _ _ _             |
|      1          |_|          10   |       3        |_|_|_|        8   |
|                  _ _ _ _          |                         _         |
|      4          |_|_|_|_|         |       1                |_|        |
|      1          |_|          12   |       1                |_|        |
|                  _ _ _            |       1                |_|        |
|      3          |_|_|_|           |       1                |_|        |
|      2          |_|_|        10   |       1               _|_|        |
|                  _ _ _ _ _        |       2         _ _ _|_|_|        |
|      6          |_|_|_|_|_|  12   |       5        |_|_|_|_|_|   24   |
|                                   |                                   |
-------------------------------------------------------------------------
|   Sum of perimeters:         80         <-- equals -->           80   |
-------------------------------------------------------------------------
The sum of the perimeters of the Ferrers boards is 12 + 12 + 12 + 10 + 12 + 10 + 12 = 80, so a(5) = 80.
On the other hand, the sum of the perimeters of the diagrams of regions is 4 + 8 + 12 + 6 + 18 + 8 + 24 = 80, equaling the sum of the perimeters of the Ferrers boards.
.
Illustration of first six polygons of an infinite diagram constructed with the boundary segments of the minimalist diagram of regions and its mirror (note that the diagram looks like reflections on a mountain lake):
11............................................................
.                                                            /\
.                                                           /  \
.                                                          /    \
7...................................                      /      \
.                                  /\                    /        \
5.....................            /  \                /\/          \
.                    /\          /    \          /\  /              \
3...........        /  \        /      \        /  \/                \
2.......   /\      /    \    /\/        \      /                      \
1...  /\  /  \  /\/      \  /            \  /\/                        \
0  /\/  \/    \/          \/              \/                            \
.  \/\  /\    /\          /\              /\                            /
.     \/  \  /  \/\      /  \            /  \/\                        /
.          \/      \    /    \/\        /      \                      /
.                   \  /        \      /        \  /\                /
.                    \/          \    /          \/  \              /
.                                 \  /                \/\          /
.                                  \/                    \        /
.                                                         \      /
.                                                          \    /
.                                                           \  /
.                                                            \/
n:
. 0 1  2   3          4             5                         6
Perimeter of the n-th polygon:
. 0 4  8  12         24            32                        60
a(n) is the sum of the perimeters of the first n polygons:
. 0 4 12  24         48            80                       140
.
For n = 5, the sum of the perimeters of the first five polygons is 4 + 8 + 12 + 24 + 32 = 80, so a(5) = 80.
For n = 6, the sum of the perimeters of the first six polygons is 4 + 8 + 12 + 24 + 32 + 60 = 140, so a(6) = 140.
For another version of the above diagram see A228109.
		

Crossrefs

Formula

a(n) = 4*A006128(n) = 2*A211978(n).
a(n) = 2*A225600(2*A000041(n)) = 2*A225600(A139582(n)), n >= 1.
a(n) = 2*((Sum_{m=1..p(n)} A194446(m)) + (Sum_{m=1..p(n)} A141285(m))) = 4*Sum_{m=1..p(n)} A194446(m) = 4*Sum_{m=1..p(n)} A141285(m), where p(n) = A000041(n), n >= 1.

A284870 Expansion of Sum_{i>=1} i*x^i/(1 - x) * Product_{j=1..i} 1/(1 - x^j).

Original entry on oeis.org

0, 1, 4, 10, 22, 42, 77, 131, 217, 345, 537, 812, 1211, 1767, 2547, 3615, 5078, 7043, 9687, 13185, 17815, 23867, 31766, 41972, 55146, 71997, 93519, 120813, 155358, 198811, 253374, 321509, 406436, 511802, 642264, 803140, 1001154, 1243966, 1541167, 1903754, 2345300, 2881404, 3531195, 4316632, 5264444, 6405389
Offset: 0

Views

Author

Ilya Gutkovskiy, Apr 04 2017

Keywords

Comments

Total number of parts in all partitions of all positive integers <= n.
Sum of largest parts of all partitions of all positive integers <= n.
From Omar E. Pol, Feb 16 2021: (Start)
Apart from initial zero this is as follows:
Convolution of A341062 and A014153.
Convolution of A000005 and A000070.
Convolution of nonzero terms of A006218 and A000041.
a(n) is also the total number of divisors of all terms in the n-th row of triangle A340581. These divisors are also all parts of all partitions of all positive integers <= n. (End)

Examples

			a(4) = 22 because we have 1 = 1, 2 = 2, 1 + 1 = 2, 3 = 3, 2 + 1 = 3, 1 + 1 + 1 = 3, 4 = 4, 3 + 1 = 4, 2 + 2 = 4, 2 + 1 + 1 = 4 and 1 + 1 + 1 + 1 = 4 therefore 1 + 1 + 2 + 1 + 2 + 3 + 1 + 2 + 2 + 3 + 4 = 22 (total number of parts) or 1 + 2 + 1 + 3 + 2 + 1 + 4 + 3 + 2 + 2 + 1 = 22 (sum of largest parts).
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i) option remember; `if`(n=0 or i=1, [1, n],
          b(n, i-1) +(p-> p+[0, p[1]])(b(n-i, min(n-i, i))))
        end:
    a:= proc(n) a(n):= `if`(n<1, 0, a(n-1)+b(n$2)[2]) end:
    seq(a(n), n=0..45);  # Alois P. Heinz, Feb 16 2021
  • Mathematica
    nmax = 45; CoefficientList[Series[Sum[i x^i /(1 - x) Product[1/(1 - x^j), {j, 1, i}], {i, 1, nmax}], {x, 0, nmax}], x]
    nmax = 45; CoefficientList[Series[1/(1 - x) Sum[x^i /(1 - x^i), {i, 1, nmax}] Product[1/(1 - x^j), {j, 1, nmax}], {x, 0, nmax}], x]
    Accumulate[Table[Sum[DivisorSigma[0, k] PartitionsP[n - k], {k, 1, n}], {n, 0, 45}]]

Formula

G.f.: Sum_{i>=1} i*x^i/(1 - x) * Product_{j=1..i} 1/(1 - x^j).
G.f.: (1/(1 - x)) * Sum_{i>=1} x^i/(1 - x^i) * Product_{j>=1} 1/(1 - x^j).
a(n) = Sum_{k=0..n} A006128(k).
a(n) = A124920(n+1) - 1.
a(n) = Sum_{k=1..n} k * A299779(n,k). - Alois P. Heinz, May 14 2018
Previous Showing 31-40 of 78 results. Next