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.
%I A182703 #108 May 16 2020 01:13:01 %S A182703 1,1,1,2,0,1,3,2,0,1,5,1,1,0,1,7,4,2,1,0,1,11,3,2,1,1,0,1,15,8,3,3,1, %T A182703 1,0,1,22,7,6,2,2,1,1,0,1,30,15,6,5,3,2,1,1,0,1,42,15,10,5,4,2,2,1,1, %U A182703 0,1,56,27,14,10,5,5,2,2,1,1,0,1 %N A182703 Triangle read by rows: T(n,k) = number of occurrences of k in the last section of the set of partitions of n. %C A182703 For the definition of "section" of the set of partitions of n see A135010. %C A182703 Also, column 1 gives the number of partitions of n-1. For k >= 2, row n lists the number of k's in all partitions of n that do not contain 1 as a part. %C A182703 From _Omar E. Pol_, Feb 12 2012: (Start) %C A182703 It appears that reversed rows converge to A002865. %C A182703 It appears that row n is also the base of an isosceles triangle in which the column sums give the partition numbers A000041 in descending order starting with p(n-1) = A000041(n-1). Example for n = 7: %C A182703 . %C A182703 . 1, %C A182703 . 1, 0, 1, %C A182703 . 4, 2, 1, 0, 1, %C A182703 11, 3, 2, 1, 1, 0, 1, %C A182703 --------------------- %C A182703 11, 7, 5, 3, 2, 1, 1, %C A182703 . %C A182703 It appears that in row n starts an infinite trapezoid in which column sums always give the number of partitions of n-1. Example for n = 7: %C A182703 . %C A182703 11, 3, 2, 1, 1, 0, 1, %C A182703 . 8, 3, 3, 1, 1, 0, 1, %C A182703 . 6, 2, 2, 1, 1, 0, 1, %C A182703 . 5, 3, 2, 1, 1, 0, 1, %C A182703 . 4, 2, 2, 1, 1, 0, 1, %C A182703 . 5, 2, 2, 1, 1, 0,... %C A182703 . 4, 2, 2, 1, 1,... %C A182703 . 4, 2, 2, 1,... %C A182703 . 4, 2, 2,... %C A182703 . 4, 2,... %C A182703 . 4,... %C A182703 . %C A182703 The sum of any column is always p(7-1) = p(6) = A000041(6) = 11. %C A182703 It appears that the first term of row n is one of the vertices of an infinite isosceles triangle in which column sums give the partition numbers A000041 in ascending order starting with p(n-1) = A000041(n-1). Example for n = 7: %C A182703 11, %C A182703 . 8, %C A182703 . 7, 6, %C A182703 . 6, 5, %C A182703 . 10, 5, ... %C A182703 . 10, ... %C A182703 . 10, ... %C A182703 ------------------- %C A182703 11, 15, 22, 30, ... %C A182703 (End) %C A182703 It appears that row n lists the first differences of the row n of triangle A207031 together with 1 (as the final term of row n). - _Omar E. Pol_, Feb 26 2012 %C A182703 More generally T(n,k) is the number of occurrences of k in the n-th section of the set of partitions of any integer >= n. - _Omar E. Pol_, Oct 21 2013 %H A182703 Alois P. Heinz, <a href="/A182703/b182703.txt">Rows n = 1..141, flattened</a> %H A182703 Omar E. Pol, <a href="http://www.polprimos.com/imagenespub/polpatru.jpg">Illustration of the section model of partitions, Figure 1 (n = 1..6)</a>, <a href="http://www.polprimos.com/imagenespub/polpa2dt.jpg">Figure 2 (2D view, n = 1..10)</a>, <a href="http://www.polprimos.com/imagenespub/polpa3dt.jpg">Figure 3 (3D view, n = 1..9)</a> %F A182703 It appears that T(n,k) = A207032(n,k) - A207032(n,k+2). - Omar E. Pol, Feb 26 2012 %e A182703 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: %e A182703 . _ _ _ _ _ _ _ %e A182703 . (7) (7) |_ _ _ _ | %e A182703 . (4+3) (4+3) |_ _ _ _|_ | %e A182703 . (5+2) (5+2) |_ _ _ | | %e A182703 . (3+2+2) (3+2+2) |_ _ _|_ _|_ | %e A182703 . (1) (1) | | %e A182703 . (1) (1) | | %e A182703 . (1) (1) | | %e A182703 . (1) (1) | | %e A182703 . (1) (1) | | %e A182703 . (1) (1) | | %e A182703 . (1) (1) | | %e A182703 . (1) (1) | | %e A182703 . (1) (1) | | %e A182703 . (1) (1) | | %e A182703 . (1) (1) |_| %e A182703 . ---------------- %e A182703 . 19,8,5,3,2,1,1 --> Row 7 of triangle A207031. %e A182703 . |/|/|/|/|/|/| %e A182703 . 11,3,2,1,1,0,1 --> Row 7 of this triangle. %e A182703 . %e A182703 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, for k = 1..7, row 7 gives: 11, 3, 2, 1, 1, 0, 1. %e A182703 Triangle begins: %e A182703 1; %e A182703 1, 1; %e A182703 2, 0, 1; %e A182703 3, 2, 0, 1; %e A182703 5, 1, 1, 0, 1; %e A182703 7, 4, 2, 1, 0, 1; %e A182703 11, 3, 2, 1, 1, 0, 1; %e A182703 15, 8, 3, 3, 1, 1, 0, 1; %e A182703 22, 7, 6, 2, 2, 1, 1, 0, 1; %e A182703 30, 15, 6, 5, 3, 2, 1, 1, 0, 1; %e A182703 42, 15, 10, 5, 4, 2, 2, 1, 1, 0, 1; %e A182703 56, 27, 14, 10, 5, 5, 2, 2, 1, 1, 0, 1; %e A182703 ... %p A182703 p:= (f, g)-> zip((x, y)-> x+y, f, g, 0): %p A182703 b:= proc(n,i) option remember; local g; %p A182703 if n=0 then [1] %p A182703 elif n<2 or i<2 then [0] %p A182703 else g:= `if`(i>n, [0], b(n-i, i)); %p A182703 p(p([0$j=2..i, g[1]], b(n, i-1)), g) %p A182703 fi %p A182703 end: %p A182703 h:= proc(n) option remember; %p A182703 `if`(n=0, 1, b(n, n)[1]+h(n-1)) %p A182703 end: %p A182703 T:= proc(n) h(n-1), b(n, n)[2..n][] end: %p A182703 seq(T(n), n=1..20); # _Alois P. Heinz_, Feb 19 2012 %t A182703 p[f_, g_] := Plus @@ PadRight[{f, g}]; b[n_, i_] := b[n, i] = Module[{g}, Which[n == 0, {1}, n<2 || i<2, {0}, True, g = If [i>n, {0}, b[n-i, i]]; p[p[Append[Array[0&, i-1], g[[1]]], b[n, i-1]], g]]]; h[n_] := h[n] = If[n == 0, 1, b[n, n][[1]] + h[n-1]]; t[n_] := {h[n-1], Sequence @@ b[n, n][[2 ;; n]]}; Table[t[n], {n, 1, 20}] // Flatten (* _Jean-François Alcover_, Jan 16 2014, after _Alois P. Heinz_'s Maple code *) %t A182703 Table[{PartitionsP[n-1]}~Join~Table[Count[Flatten@Cases[IntegerPartitions[n], x_ /; Last[x] != 1], k], {k,2,n}], {n,1,12}] // Flatten (* _Robert Price_, May 15 2020 *) %Y A182703 Row sums give A138137. Where records occur is A134869. %Y A182703 Columns 1-10: A000041, A182712-A182714, A206555-A206560. %Y A182703 Sub-triangles (1-11): A023531, A129186, A194702-A194710 %Y A182703 Cf. A066633, A135010, A182742, A182743, A194812, A206563, A207031, A207032, A206437, A211025. %K A182703 nonn,tabl,look %O A182703 1,4 %A A182703 _Omar E. Pol_, Nov 28 2010