A006128 -id:A006128 - cp's OEIS frontend

A176206 Irregular triangle T(n,k) (n >= 1, k >= 1) read by rows: row n has length A000070(n-1) and every column k gives the positive integers.

1, 2, 1, 3, 2, 1, 1, 4, 3, 2, 2, 1, 1, 1, 5, 4, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1, 6, 5, 4, 4, 3, 3, 3, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 7, 6, 5, 5, 4, 4, 4, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8, 7, 6, 6, 5, 5, 5, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3

Offset: 1

Alford Arnold, Apr 11 2010

The original definition was: An irregular table: Row n begins with n, counts down to 1 and repeats the intermediate numbers as often as given by the partition numbers.
Row n contains a decreasing sequence where n-k is repeated A000041(k) times, k = 0..n-1.
From Omar E. Pol, Nov 23 2020: (Start)
Row n lists in nonincreasing order the first A000070(n-1) terms of A336811.
In other words: row n lists in nonincreasing order the terms from the first n rows of triangle A336811.
Conjecture: all divisors of all terms in row n are also all parts of all partitions of n.
For more information see the example and A336811 which contains the most elementary conjecture about the correspondence divisors/partitions.
Row sums give A014153.
A338156 lists the divisors of every term of this sequence.
The n-th row of A340581 lists in nonincreasing order the terms of the first n rows of this triangle.
For a regular triangle with the same row sums see A141157. (End)
From Omar E. Pol, Jul 31 2021: (Start)
The number of k's in row n is equal to A000041(n-k), 1 <= k <= n.
The number of terms >= k in row n is equal to A000070(n-k), 1 <= k <= n.
The number of k's in the first n rows (or in the first A014153(n-1) terms of the sequence) is equal to A000070(n-k), 1 <= k <= n.
The number of terms >= k in the first n rows (or in the first A014153(n-1) terms of the sequence) is equal to A014153(n-k), 1 <= k <= n. (End)

			Triangle begins:
  1;
  2, 1;
  3, 2, 1, 1;
  4, 3, 2, 2, 1, 1, 1;
  5, 4, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1;
  6, 5, 4, 4, 3, 3, 3, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1;
  7, 6, 5, 5, 4, 4, 4, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, ...
  ... Extended by _Omar E. Pol_, Nov 23 2020
From _Omar E. Pol_, Jan 25 2020: (Start)
For n = 5, by definition the length of row 5 is A000070(5-1) = A000070(4) = 12, so the row 5 of triangle has 12 terms. Since every column lists the positive integers A000027 so the row 5 is [5, 4, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1].
Then we have that the divisors of the numbers of the 5th row are:
.
5th row of triangle -----> 5  4  3  3  2  2  2  1  1  1  1  1
                           1  2  1  1  1  1  1
                              1
.
There are twelve 1's, four 2's, two 3's, one 4 and one 5.
In total there are 12 + 4 + 2 + 1 + 1 = 20 divisors.
On the other hand the partitions of 5 are as shown below:
.
.      5
.      3  2
.      4  1
.      2  2  1
.      3  1  1
.      2  1  1  1
.      1  1  1  1  1
.
There are twelve 1's, four 2's, two 3's, one 4 and one 5, as shown also in the 5th row of triangle A066633.
In total there are 12 + 4 + 2 + 1 + 1 = A006128(5) = 20 parts.
Finally in accordance with the conjecture we can see that all divisors of all numbers in the 5th row of the triangle are the same positive integers as all parts of all partitions of 5. (End)

Paolo Xausa, Table of n, a(n) for n = 1..10980 (rows 1..21 of triangle, flattened)

Cf. A000027 (columns), A000070 (row lengths), A338156 (divisors), A340061 (mirror).

Cf. A000041, A006128, A014153, A027750, A066633, A141157, A176207, A336811, A338156, A340581.

Table[Flatten[Table[ConstantArray[n-k,PartitionsP[k]],{k,0,n-1}]],{n,10}] (* Paolo Xausa, May 30 2022 *)

New name, changed offset, edited and more terms from Omar E. Pol, Nov 22 2020

A207031 Triangle read by rows: T(n,k) = sum of all parts of the k-th column of the last section of the set of partitions of n.

Original entry on oeis.org

1, 2, 1, 3, 1, 1, 6, 3, 1, 1, 8, 3, 2, 1, 1, 15, 8, 4, 2, 1, 1, 19, 8, 5, 3, 2, 1, 1, 32, 17, 9, 6, 3, 2, 1, 1, 42, 20, 13, 7, 5, 3, 2, 1, 1, 64, 34, 19, 13, 8, 5, 3, 2, 1, 1, 83, 41, 26, 16, 11, 7, 5, 3, 2, 1, 1, 124, 68, 41, 27, 17, 12, 7, 5, 3, 2, 1, 1

Offset: 1

Omar E. Pol, Feb 14 2012

Also T(n,k) is the number of parts >= k in the last section of the set of partitions of n. Therefore T(n,1) = A138137(n), the total number of parts in the last section of the set of partitions of n. For calculation of the number of odd/even parts, etc, follow the same rules from A206563.
More generally, 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 entry A206563.
It appears that reversed rows converge to A000041.
It appears that the first differences of row n together with 1 give the row n of triangle A182703 (see example). - Omar E. Pol, Feb 26 2012

			Illustration of initial terms. First six rows of triangle as sums of columns from the last sections of the first six natural numbers (or as sums of columns from the six sections of 6):
.                                         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
. --- --- ------- --------- ----------- --------------
A: 1, 2,1, 3,1,1,  6,3,1,1,  8,3,2,1,1,  15,8,4,2,1,1
.  |  |/|  |/|/|   |/|/|/|   |/|/|/|/|    |/|/|/|/|/|
B: 1, 1,1, 2,0,1,  3,2,0,1,  5,1,1,0,1,   7,4,2,1,0,1
.
A := initial terms of this triangle.
B := initial terms of triangle A182703.
.
Triangle begins:
1;
2,    1;
3,    1,  1;
6,    3,  1,  1;
8,    3,  2,  1,  1;
15,   8,  4,  2,  1,  1;
19,   8,  5,  3,  2,  1,  1;
32,  17,  9,  6,  3,  2,  1,  1;
42,  20, 13,  7,  5,  3,  2,  1,  1;
64,  34, 19, 13,  8,  5,  3,  2,  1,  1;
83,  41, 26, 16, 11,  7,  5,  3,  2,  1,  1;
124, 68, 41, 27, 17, 12,  7,  5,  3,  2,  1,  1;

Columns (1-2): A138137, A138135.
Row sums give A138879.
Cf. A000041, A002865, A006128, A135010, A138121, A181187, A182703, A206562, A206563, A207032, A207379, A208476, A210955, A210956.

From Omar E. Pol, Dec 07 2019: (Start)
From the formula in A138135 (year 2008) we have that:
A000041(n-1) = A138137(n) - A138135(n) = T(n,1) - T(n,2);
Hence A000041(n) = T(n+1,1) - T(n+1,2), n >= 0;
Also  A000041(n) = A002865(n) + T(n,1) - T(n,2). (End)

More terms from Alois P. Heinz, Feb 17 2012

A066897 Total number of odd parts in all partitions of n.

Original entry on oeis.org

1, 2, 5, 8, 15, 24, 39, 58, 90, 130, 190, 268, 379, 522, 722, 974, 1317, 1754, 2330, 3058, 4010, 5200, 6731, 8642, 11068, 14076, 17864, 22528, 28347, 35490, 44320, 55100, 68355, 84450, 104111, 127898, 156779, 191574, 233625, 284070, 344745, 417292, 504151

Offset: 1

Naohiro Nomoto, Jan 24 2002

Also sum of all odd-indexed parts minus the sum of all even-indexed parts of all partitions of n (Cf. A206563). - Omar E. Pol, Feb 12 2012
Column 1 of A206563. - Omar E. Pol, Feb 15 2012
Suppose that p=[p(1),p(2),p(3),...] is a partition of n with parts in nonincreasing order.  Let f(p) = p(1) - p(2) + p(3) - ... be the alternating sum of parts of p and let F(n) = sum of alternating sums of all partitions of n.  Conjecture: F(n) = A066897(n) for n >= 1. - Clark Kimberling, May 17 2019
From Omar E. Pol, Apr 02 2023: (Start)
Convolution of A000041 and A001227.
Convolution of A002865 and A060831.
a(n) is also the total number of odd divisors of all positive integers in a sequence with n blocks where the m-th block consists of A000041(n-m) copies of m, with 1 <= m <= n. The mentioned odd divisors are also all odd parts of all partitions of n. (End)
a(n) is odd iff n is a term of A067567 (proof: n*p(n) = the sum of the parts in all the partitions of n == the number of odd parts in all partitions of n (mod 2). Hence the number of odd parts in all partitions of n is odd iff n*p(n) is odd, equivalently, iff both n and p(n) are odd). - Peter Bala, Jan 11 2025

			a(4) = 8 because in the partitions of 4, namely [4],[3,1],[2,2],[2,1,1],[1,1,1,1], we have a total of 0+2+0+2+4=8 odd parts.

Vaclav Kotesovec, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Alois P. Heinz)

Cf. A000041, A001227, A001620, A002865, A006128, A060831, A066898, A066966, A066967, A103919, A206563, A207381, A207382, A209423, A338156.

a066897 = p 0 1 where
   p o _             0 = o
   p o k m | m < k     = 0
           | otherwise = p (o + mod k 2) k (m - k) + p o (k + 1) m
-- Reinhard Zumkeller, Mar 09 2012

a066897 = length . filter odd . concat . ps 1 where
   ps _ 0 = [[]]
   ps i j = [t:ts | t <- [i..j], ts <- ps t (j - t)]
-- Reinhard Zumkeller, Jul 13 2013

g:=sum(x^(2*j-1)/(1-x^(2*j-1)),j=1..70)/product(1-x^j,j=1..70): gser:=series(g,x=0,45): seq(coeff(gser,x^n),n=1..44);
# Emeric Deutsch, Mar 13 2006
b:= proc(n, i) option remember; local f, g;
      if n=0 or i=1 then [1, n]
    else f:= b(n, i-1); g:= `if`(i>n, [0, 0], b(n-i, i));
         [f[1]+g[1], f[2]+g[2]+ (i mod 2)*g[1]]
      fi
    end:
a:= n-> b(n, n)[2]:
seq(a(n), n=1..50);
# Alois P. Heinz, Mar 22 2012

f[n_, i_] := Count[Flatten[IntegerPartitions[n]], i]
o[n_] := Sum[f[n, i], {i, 1, n, 2}]
e[n_] := Sum[f[n, i], {i, 2, n, 2}]
Table[o[n], {n, 1, 45}]  (* A066897 *)
Table[e[n], {n, 1, 45}]  (* A066898 *)
%% - %                   (* A209423 *)
(* Clark Kimberling, Mar 08 2012 *)
b[n_, i_] := b[n, i] = Module[{f, g}, If[n==0 || i==1, {1, n}, f = b[n, i-1]; g = If[i>n, {0, 0}, b[n-i, i]]; {f[[1]] + g[[1]], f[[2]] + g[[2]] + Mod[i, 2]*g[[1]]}] ]; a[n_] := b[n, n][[2]]; Table[a[n], {n, 1, 50}] (* Jean-François Alcover, Sep 26 2015, after Alois P. Heinz *)

a(n) = Sum_{k=1..n} b(k)*numbpart(n-k), where b(k)=A001227(k)=number of odd divisors of k and numbpart() is A000041. - Vladeta Jovovic, Jan 26 2002
a(n) = Sum_{k=0..n} k*A103919(n,k). - Emeric Deutsch, Mar 13 2006
G.f.: Sum_{j>=1}(x^(2j-1)/(1-x^(2j-1)))/Product_{j>=1}(1-x^j). - Emeric Deutsch, Mar 13 2006
a(n) = A066898(n) + A209423(n) = A006128(n) - A066898(n). [Reinhard Zumkeller, Mar 09 2012]
a(n) = A207381(n) - A207382(n). - Omar E. Pol, Mar 11 2012
a(n) = (A006128(n) + A209423(n))/2. - Vaclav Kotesovec, May 25 2018
a(n) ~ exp(Pi*sqrt(2*n/3)) * (2*gamma + log(24*n/Pi^2)) / (8*Pi*sqrt(2*n)), where gamma is the Euler-Mascheroni constant A001620. - Vaclav Kotesovec, May 25 2018

More terms from Vladeta Jovovic, Jan 26 2002

A049085 Irregular table T(n,k) = maximal part of the k-th partition of n, when listed in Abramowitz-Stegun order (as in A036043).

Original entry on oeis.org

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

Offset: 0

Alford Arnold

a(0) = 0 by convention. - Franklin T. Adams-Watters, Jun 24 2014
Like A036043 this is important for calculating sequences defined over the numeric partitions, cf. A000041. For example, the triangular array A019575 can be calculated using A036042 and this sequence.
The row sums are A006128. - Johannes W. Meijer, Jun 21 2010
The name is correct if the partitions are read in reverse, so that the parts are weakly increasing. The version for non-reversed partitions is A334441. - Gus Wiseman, May 21 2020

			Rows:
  [0];
  [1];
  [2,1];
  [3,2,1];
  [4,3,2,2,1];
  [5,4,3,3,2,2,1];
  ...

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 831.

Alois P. Heinz, Rows n = 0..26, flattened
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
Wolfdieter Lang, First 15 rows.
OEIS Wiki, Orderings of partitions
Wikiversity, Lexicographic and colexicographic order

Row lengths are A000041.
Row sums are A006128.
The length of the partition is A036043.
The number of distinct elements of the partition is A103921.
The Heinz number of the partition is A185974.
The version ignoring length is A194546.
The version for non-reversed partitions is A334441.
Lexicographically ordered reversed partitions are A026791.
Reversed partitions in Abramowitz-Stegun order are A036036.
Reverse-lexicographically ordered partitions are A080577.
Partitions in Abramowitz-Stegun order are A334301.
Cf. A001221, A036037, A036042, A115623, A124734, A193073, A334302, A334433, A334438, A334439, A334440.

with(combinat):
nmax:=9:
for n from 1 to nmax do
   y(n):=numbpart(n):
   P(n):=partition(n):
   for k from 1 to y(n) do
      B(k):=P(n)[k]
   od:
   for k from 1 to y(n) do
      s:=0: j:=0:
      while sJohannes W. Meijer, Jun 21 2010

Table[If[n==0,{0},Max/@Sort[Reverse/@IntegerPartitions[n]]],{n,0,8}] (* Gus Wiseman, May 21 2020 *)

A049085(n,k)=if(n,partitions(n)[k][1],0) \\ M. F. Hasler, Jun 06 2018

More terms from Wolfdieter Lang, Apr 28 2005

a(0) inserted by Franklin T. Adams-Watters, Jun 24 2014

A097986 Number of strict integer partitions of n with a part dividing all the other parts.

Original entry on oeis.org

1, 1, 2, 2, 2, 4, 3, 5, 5, 7, 6, 12, 9, 13, 15, 20, 18, 28, 26, 37, 39, 47, 49, 71, 68, 85, 94, 117, 120, 159, 160, 201, 216, 257, 277, 348, 357, 430, 470, 562, 592, 720, 758, 901, 981, 1134, 1220, 1457, 1542, 1798, 1952, 2250, 2419, 2819, 3023, 3482, 3773, 4291

Offset: 1

Vladeta Jovovic, Oct 23 2004

If n > 0, we can assume such a part is the smallest. - Gus Wiseman, Apr 23 2021

Also the number of uniform (constant multiplicity) partitions of n containing 1, ranked by A367586. The strict case is A096765. The version without 1 is A329436. - Gus Wiseman, Dec 01 2023

			From _Gus Wiseman_, Dec 01 2023: (Start)
The a(1) = 1 through a(8) = 5 strict partitions with a part dividing all the other parts:
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)
            (2,1)  (3,1)  (4,1)  (4,2)    (6,1)    (6,2)
                                 (5,1)    (4,2,1)  (7,1)
                                 (3,2,1)           (4,3,1)
                                                   (5,2,1)
The a(1) = 1 through a(8) = 5 uniform partitions containing 1:
  (1)  (11)  (21)   (31)    (41)     (51)      (61)       (71)
             (111)  (1111)  (11111)  (321)     (421)      (431)
                                     (2211)    (1111111)  (521)
                                     (111111)             (3311)
                                                          (11111111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 500 terms from John Tyler Rascoe)

The non-strict version is A083710.
The case with no 1's is A098965.
The Heinz numbers of these partitions are A339563.
The strict complement is counted by A341450.
The version for "divisible by" instead of "dividing" is A343347.
The case where there is also a part divisible by all the others is A343378.
The case where there is no part divisible by all the others is A343381.
A000005 counts divisors.
A000009 counts strict partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A018818 counts partitions into divisors (strict: A033630).
A167865 counts strict chains of divisors > 1 summing to n.
Cf. A083711, A098743, A130689, A200745, A264401, A338470, A343377, A343379, A343380.
Cf. A023645, A025147, A047966, A072774, A096765, A329436, A367586.

Take[ CoefficientList[ Expand[ Sum[x^k*Product[1 + x^(k*i), {i, 2, 62}], {k, 62}]], x], {2, 60}] (* Robert G. Wilson v, Nov 01 2004 *)
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Or@@Table[And@@IntegerQ/@(#/x), {x,#}]&]], {n,0,30}] (* Gus Wiseman, Apr 23 2021 *)

A_x(N) = {my(x='x+O('x^N)); Vec(sum(k=1,N,x^k*prod(i=2,N-k, (1+x^(k*i)))))}
A_x(50) \\ John Tyler Rascoe, Nov 19 2024

a(n) = Sum_{d|n} A025147(d-1).
G.f.: Sum_{k>=1} (x^k*Product_{i>=2} (1+x^(k*i))).
a(n) ~ exp(Pi*sqrt(n/3)) / (8*3^(1/4)*n^(3/4)). - Vaclav Kotesovec, Jul 06 2025

More terms from Robert G. Wilson v, Nov 01 2004

Name shortened by Gus Wiseman, Apr 23 2021

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

Omar E. Pol, Nov 20 2020

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.

			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.

Paolo Xausa, Table of n, a(n) for n = 1..10206 (rows 1..23 of triangle, flattened)

Companion and subsequence of A338156.
Row lengths give A138137.
Row sums give A138879.
Cf. A000041, A000070, A002260, A002865, A006128, A024916, A027750, A066186, A066633, A127093, A135010, A138121, A138785, A176206, A181187, A182703, A187219, A207031, A207038, A207383, A221529, A221530, A221531, A237593, A245095, A221649, A221650, A302246, A302247, A336811, A337209, A339106, A339258, A339278, A339304, A340035, A340061, A350357.

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

A182699 Number of emergent parts in all partitions of n.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 4, 4, 10, 12, 22, 27, 47, 56, 89, 112, 164, 205, 294, 364, 505, 630, 845, 1052, 1393, 1719, 2235, 2762, 3533, 4343, 5506, 6730, 8443, 10296, 12786, 15531, 19161, 23161, 28374, 34201, 41621, 49975, 60513, 72385, 87200, 103999, 124670, 148209

Offset: 0

Omar E. Pol, Nov 29 2010

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.
Also, here the "filler parts" of the partitions of n are defined to be the parts of the last section of the set of partitions of n that are not the emergent parts.
For n >= 4, length of row n of A183152. - Omar E. Pol, Aug 08 2011
Also total number 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

			For n = 6 the partitions of 6 contain four "emergent" parts: (3), (4), (2), (2), so a(6) = 4. See below the location of the emergent parts.
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
For a(10) = 22 see the link for the location of the 22 "emergent parts" (colored yellow and green) and the location of the 42 "filler parts" (colored blue) in the last section of the set of partitions of 10.

Alois P. Heinz, Table of n, a(n) for n = 0..1000
Omar E. Pol, Illustration: How to build the last section of the set of partitions (copy, paste and fill)
Omar E. Pol, Illustration of the shell model of partitions (2D view)

Cf. A000041, A002865, A135010, A138121, A138135, A182700, A182709, A182740.

b:= proc(n, i) option remember; local t, h;
      if n<0 then [0, 0, 0]
    elif n=0 then [0, 1, 0]
    elif i<2 then [0, 0, 0]
    else t:= b(n, i-1); h:= b(n-i, i);
         [t[1]+h[1]+h[2], t[2], t[3]+h[3]+h[1]]
      fi
    end:
a:= n-> b(n, n)[3]:
seq (a(n), n=0..50);  # Alois P. Heinz, Oct 21 2011

b[n_, i_] := b[n, i] = Module[{t, h}, Which[n<0, {0, 0, 0}, n == 0, {0, 1, 0}, i<2 , {0, 0, 0}, True, t = b[n, i-1]; h = b[n-i, i]; Join [t[[1]] + h[[1]] + h[[2]], t[[2]], t[[3]] + h[[3]] + h[[1]] ]]]; a[n_] := b[n, n][[3]]; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Jun 18 2015, after Alois P. Heinz *)

a(n) = A138135(n) - A002865(n), n >= 1.
From Omar E. Pol, Oct 21 2011: (Start)
a(n) = A006128(n) - A006128(n-1) - A000041(n), n >= 1.
a(n) = A138137(n) - A000041(n), n >= 1. (End)
a(n) = A076276(n) - A006128(n-1), n >= 1. - Omar E. Pol, Oct 30 2011

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

Omar E. Pol, Dec 26 2020

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

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

Paolo Xausa, Table of n, a(n) for n = 1..17815 (rows 1..20 of triangle, flattened)

Nonzero terms of A340032.
Row lengths give A006128, n >= 1.
Row sums give A066186, n >= 1.
Cf. A000041, A002260, A027750, A066633, A127093, A135010, A138121, A138785, A176206, A181187, A182703, A206437, A207031, A207383, A221529, A221530, A221531, A221649, A236104, A237593, A245092, A245095, A221649, A221650, A302246, A302247, A336811, A336812, A337209, A338156, A339106, A339258, A339278, A339304, A340011, A340031, A340032, A340056, A340057, A340061.

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

A130689 Number of partitions of n such that every part divides the largest part; a(0) = 1.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 10, 11, 16, 19, 26, 28, 41, 43, 56, 65, 82, 88, 115, 122, 155, 174, 209, 225, 283, 305, 363, 402, 477, 514, 622, 666, 783, 858, 990, 1078, 1268, 1362, 1561, 1708, 1958, 2111, 2433, 2613, 2976, 3247, 3652, 3938, 4482, 4821, 5422

Offset: 0

Vladeta Jovovic, Jul 01 2007

First differs from A130714 at a(11) = 28, A130714(11) = 27. - Gus Wiseman, Apr 23 2021

			For n = 6 we have 10 such partitions: [1, 1, 1, 1, 1, 1], [1, 1, 1, 1, 2], [1, 1, 2, 2], [2, 2, 2], [1, 1, 1, 3], [3, 3], [1, 1, 4], [2, 4], [1, 5], [6].
From _Gus Wiseman_, Apr 18 2021: (Start)
The a(1) = 1 through a(8) = 16 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (41)     (33)      (61)       (44)
             (111)  (31)    (221)    (42)      (331)      (62)
                    (211)   (311)    (51)      (421)      (71)
                    (1111)  (2111)   (222)     (511)      (422)
                            (11111)  (411)     (2221)     (611)
                                     (2211)    (4111)     (2222)
                                     (3111)    (22111)    (3311)
                                     (21111)   (31111)    (4211)
                                     (111111)  (211111)   (5111)
                                               (1111111)  (22211)
                                                          (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..5000 (first 1001 terms from Andrew Howroyd)

Cf. A018818, A117086.
The dual version is A083710.
The case without 1's is A339619.
The Heinz numbers of these partitions are the complement of A343337.
The complement is counted by A343341.
The strict case is A343347.
The complement in the strict case is counted by A343377.
A000009 counts strict partitions.
A000041 counts partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A072233 counts partitions by sum and greatest part.
Cf. A066186, A083711, A097986, A338470, A341450, A343346, A343382.

Table[If[n==0,1,Length[Select[IntegerPartitions[n],FreeQ[#,1]&&And@@IntegerQ/@(Max@@#/#)&]]],{n,0,30}] (* Gus Wiseman, Apr 18 2021 *)

seq(n)={Vec(1 + sum(m=1, n, my(u=divisors(m)); x^m/prod(i=1, #u, 1 - x^u[i] + O(x^(n-m+1)))))} \\ Andrew Howroyd, Apr 17 2021

G.f.: 1 + Sum_{n>0} x^n/Product_{d divides n} (1-x^d).

A138135 Number of parts > 1 in the last section of the set of partitions of n.

Original entry on oeis.org

0, 1, 1, 3, 3, 8, 8, 17, 20, 34, 41, 68, 80, 123, 153, 219, 271, 382, 469, 642, 795, 1055, 1305, 1713, 2102, 2713, 3336, 4241, 5190, 6545, 7968, 9950, 12090, 14953, 18104, 22255, 26821, 32752, 39371, 47774, 57220, 69104

Offset: 1

Omar E. Pol, Mar 30 2008

nonn

Also first differences of A096541. For more information see A135010.

Alois P. Heinz, Table of n, a(n) for n = 1..1000

Zero together with the column k=2 of A207031.

Cf. A000041, A006128, A096541, A135010, A138121, A138137.

b:= proc(n, i) option remember; local f, g;
      if n=0 or i=1 then [1, 0]
    else f:= b(n, i-1); g:= `if`(i>n, [0, 0], b(n-i, i));
         [f[1]+g[1], f[2]+g[2]+`if`(i>1, g[1], 0)]
      fi
    end:
a:= n-> b(n, n)[2]-b(n-1, n-1)[2]:
seq (a(n), n=1..60); # Alois P. Heinz, Apr 04 2012

a[n_] := DivisorSigma[0, n] - 1 + Sum[(DivisorSigma[0, k] - 1)*(PartitionsP[n - k] - PartitionsP[n - k - 1]), {k, 1, n - 1}]; Table[a[n], {n, 1, 42}] (* Jean-François Alcover, Jan 14 2013, from 1st formula *)
Table[Length@Flatten@Select[IntegerPartitions[n], FreeQ[#, 1] &], {n, 1, 42}]  (* Robert Price, May 01 2020 *)

a(n)=numdiv(n)-1+sum(k=1,n-1,(numdiv(k)-1)*(numbpart(n-k) - numbpart(n-k-1))) \\ Charles R Greathouse IV, Jan 14 2013

a(n) = A096541(n)-A096541(n-1) = A138137(n)-A000041(n-1) = A006128(n)-A006128(n-1)-A000041(n-1).
a(n) ~ exp(Pi*sqrt(2*n/3))*(2*gamma - 2 + log(6*n/Pi^2))/(8*sqrt(3)*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) / Product_{j>=2} (1 - x^j). - Ilya Gutkovskiy, Mar 05 2021

cp's OEIS Frontend

A176206 Irregular triangle T(n,k) (n >= 1, k >= 1) read by rows: row n has length A000070(n-1) and every column k gives the positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A207031 Triangle read by rows: T(n,k) = sum of all parts of the k-th column of the last section of the set of partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

Extensions

A066897 Total number of odd parts in all partitions of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Haskell

Maple

Mathematica

Formula

Extensions

A049085 Irregular table T(n,k) = maximal part of the k-th partition of n, when listed in Abramowitz-Stegun order (as in A036043).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Extensions

A097986 Number of strict integer partitions of n with a part dividing all the other parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A182699 Number of emergent parts in all partitions of n.

Views

Author

Keywords

Comments

Examples

Links