A119907
Number of partitions of n such that if k is the largest part, then k-2 occurs as a part.
Original entry on oeis.org
0, 0, 0, 0, 1, 1, 3, 4, 7, 9, 15, 18, 27, 34, 47, 58, 79, 96, 127, 155, 199, 242, 308, 371, 465, 561, 694, 833, 1024, 1223, 1491, 1778, 2150, 2556, 3076, 3642, 4359, 5151, 6133, 7225, 8570, 10066, 11892, 13937, 16401, 19173, 22495, 26228, 30676, 35692, 41620
Offset: 0
-
b:= proc(n, i) option remember;
`if`(n=0 or i=1, 1, b(n, i-1)+`if`(i>n, 0, b(n-i, i)))
end:
a:= n-> add(b(n-(2*k-2), k), k=3..1+n/2):
seq(a(n), n=0..60); # Alois P. Heinz, May 18 2012
-
b[n_, i_] := b[n, i] = If[n==0 || i==1, 1, b[n, i-1] + If[i>n, 0, b[n-i, i]]]; a[n_] := Sum[b[n-(2*k-2), k], {k, 3, 1+n/2}]; Table[a[n], {n, 0, 60}] (* Jean-François Alcover, Jul 01 2015, after Alois P. Heinz *)
A210950
Triangle read by rows: T(n,k) = number of parts in the k-th column of the partitions of n but with the partitions aligned to the right margin.
Original entry on oeis.org
1, 1, 2, 1, 2, 3, 1, 2, 4, 5, 1, 2, 4, 6, 7, 1, 2, 4, 7, 10, 11, 1, 2, 4, 7, 11, 14, 15, 1, 2, 4, 7, 12, 17, 21, 22, 1, 2, 4, 7, 12, 18, 25, 29, 30, 1, 2, 4, 7, 12, 19, 28, 36, 41, 42, 1, 2, 4, 7, 12, 19, 29, 40, 50, 55, 56, 1, 2, 4, 7, 12, 19, 30, 43
Offset: 1
For n = 6 the partitions of 6 aligned to the right margin look like this:
.
. 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
.
The number of parts in columns 1-6 are
. 1, 2, 4, 7, 10, 11, the same as the 6th row of triangle.
Triangle begins:
1;
1, 2;
1, 2, 3;
1, 2, 4, 5;
1, 2, 4, 6, 7;
1, 2, 4, 7, 10, 11;
1, 2, 4, 7, 11, 14, 15;
1, 2, 4, 7, 12, 17, 21, 22;
1, 2, 4, 7, 12, 18, 25, 29, 30;
1, 2, 4, 7, 12, 19, 28, 36, 41, 42;
1, 2, 4, 7, 12, 19, 29, 40, 50, 55, 56;
1, 2, 4, 7, 12, 19, 30, 43, 58, 70, 76, 77;
-
m[n_, k_] := Length[IntegerPartitions[n][[k]]]; c[n_] := PartitionsP[n];
t[n_, h_] := Select[Range[c[n]], m[n, #] == h &, 1];
Column[Table[t[n, h], {n, 1, 20}, {h, 1, n}]]
(* Clark Kimberling, Oct 16 2023 *)
A210951
Triangle read by rows: T(n,k) = number of parts in the k-th column of the shell model of partitions considering only the n-th shell and with its parts aligned to the right margin.
Original entry on oeis.org
1, 0, 2, 0, 0, 3, 0, 0, 1, 5, 0, 0, 0, 1, 7, 0, 0, 0, 1, 3, 11, 0, 0, 0, 0, 1, 3, 15, 0, 0, 0, 0, 1, 3, 6, 22, 0, 0, 0, 0, 0, 1, 4, 7, 30, 0, 0, 0, 0, 0, 1, 3, 7, 11, 42, 0, 0, 0, 0, 0, 0, 1, 4, 9, 13, 56, 0, 0, 0, 0, 0, 0, 1, 3, 8, 15, 20, 77, 0, 0, 0
Offset: 1
For n = 6 and k = 1..6 the 6th shell looks like this:
-------------------------
k: 1, 2, 3, 4, 5, 6
-------------------------
. 6
. 3 + 3
. 4 + 2
. 2 + 2 + 2
. 1
. 1
. 1
. 1
. 1
. 1
. 1
.
The total number of parts in columns 1-6 are
. 0, 0, 0, 1, 3, 11, the same as the 6th row of triangle.
Triangle begins:
1;
0, 2;
0, 0, 3;
0, 0, 1, 5;
0, 0, 0, 1, 7;
0, 0, 0, 1, 3, 11;
0, 0, 0, 0, 1, 3, 15;
0, 0, 0, 0, 1, 3, 6, 22;
0, 0, 0, 0, 0, 1, 4, 7, 30;
0, 0, 0, 0, 0, 1, 3, 7, 11, 42;
0, 0, 0, 0, 0, 0, 1, 4, 9, 13, 56;
0, 0, 0, 0, 0, 0, 1, 3, 8, 15, 20, 77;
A210946
Triangle read by rows: T(n,k) = sum of parts in the k-th column of the mirror of the last section of the set of partitions of n with its parts aligned to the right margin.
Original entry on oeis.org
1, 3, 5, 9, 2, 12, 3, 20, 9, 2, 25, 11, 3, 38, 22, 9, 2, 49, 28, 14, 3, 69, 44, 26, 9, 2, 87, 55, 37, 14, 3, 123, 83, 62, 29, 9, 2, 152
Offset: 1
For n = 7 the illustration shows two arrangements of the last section of the set of partitions of 7:
.
. (7) (7)
. (4+3) (3+4)
. (5+2) (2+5)
. (3+2+2) (2+2+3)
. (1) (1)
. (1) (1)
. (1) (1)
. (1) (1)
. (1) (1)
. (1) (1)
. (1) (1)
. (1) (1)
. (1) (1)
. (1) (1)
. (1) (1)
. ---------
. 25,11,3
.
The left hand picture shows the last section of 7 with its parts aligned to the right margin. In the right hand picture (the mirror) we can see that the sum of all parts of the columns 1..3 are 25, 11, 3 therefore row 7 lists 25, 11, 3.
Written as a triangle begins:
1;
3;
5;
9, 2;
12, 3;
20, 9, 2;
25, 11, 3;
38, 22, 9, 2;
49, 28, 14, 3;
69, 44, 26, 9, 2;
87, 55, 37, 14, 3,
123, 83, 62, 29, 9, 2;
Cf.
A135010,
A138121,
A182703,
A194714,
A196807,
A206437,
A207031,
A207034,
A207035,
A210945,
A210952,
A210953.
Showing 1-4 of 4 results.
Comments