A213769
Principal diagonal of the convolution array A213768.
Original entry on oeis.org
1, 8, 26, 63, 136, 272, 521, 968, 1762, 3159, 5600, 9840, 17169, 29784, 51418, 88399, 151432, 258592, 440345, 747960, 1267586, 2143783, 3618816, 6098208, 10260001, 17236712, 28918106, 48454623, 81093832, 135569264, 226404905
Offset: 1
-
(See A213768.)
LinearRecurrence[{4,-4,-2,4,0,-1},{1,8,26,63,136,272},40] (* Harvey P. Dale, Jan 08 2015 *)
A213770
Antidiagonal sums of the convolution array A213768.
Original entry on oeis.org
1, 7, 23, 58, 126, 250, 467, 837, 1457, 2484, 4172, 6932, 11429, 18739, 30603, 49838, 81002, 131470, 213175, 345425, 559461, 905832, 1466328, 2373288, 3840841, 6215455, 10057727, 16274722, 26334102, 42610594, 68946587, 111559197
Offset: 1
A213500
Rectangular array T(n,k): (row n) = b**c, where b(h) = h, c(h) = h + n - 1, n >= 1, h >= 1, and ** = convolution.
Original entry on oeis.org
1, 4, 2, 10, 7, 3, 20, 16, 10, 4, 35, 30, 22, 13, 5, 56, 50, 40, 28, 16, 6, 84, 77, 65, 50, 34, 19, 7, 120, 112, 98, 80, 60, 40, 22, 8, 165, 156, 140, 119, 95, 70, 46, 25, 9, 220, 210, 192, 168, 140, 110, 80, 52, 28, 10, 286, 275, 255, 228, 196, 161, 125, 90
Offset: 1
Northwest corner (the array is read by southwest falling antidiagonals):
1, 4, 10, 20, 35, 56, 84, ...
2, 7, 16, 30, 50, 77, 112, ...
3, 10, 22, 40, 65, 98, 140, ...
4, 13, 28, 50, 80, 119, 168, ...
5, 16, 34, 60, 95, 140, 196, ...
6, 19, 40, 70, 110, 161, 224, ...
T(6,1) = (1)**(6) = 6;
T(6,2) = (1,2)**(6,7) = 1*7+2*6 = 19;
T(6,3) = (1,2,3)**(6,7,8) = 1*8+2*7+3*6 = 40.
-
b[n_] := n; c[n_] := n
t[n_, k_] := Sum[b[k - i] c[n + i], {i, 0, k - 1}]
TableForm[Table[t[n, k], {n, 1, 10}, {k, 1, 10}]]
Flatten[Table[t[n - k + 1, k], {n, 12}, {k, n, 1, -1}]]
r[n_] := Table[t[n, k], {k, 1, 60}] (* A213500 *)
-
t(n,k) = sum(i=0, k - 1, (k - i) * (n + i));
tabl(nn) = {for(n=1, nn, for(k=1, n, print1(t(k,n - k + 1),", ");); print(););};
tabl(12) \\ Indranil Ghosh, Mar 26 2017
-
def t(n, k): return sum((k - i) * (n + i) for i in range(k))
for n in range(1, 13):
print([t(k, n - k + 1) for k in range(1, n + 1)]) # Indranil Ghosh, Mar 26 2017
A213774
Rectangular array: (row n) = b**c, where b(h) = F(h+1), c(h) = 2*n-3+2*h, F=A000045 (Fibonacci numbers), n>=1, h>=1, and ** = convolution.
Original entry on oeis.org
1, 5, 3, 14, 11, 5, 31, 26, 17, 7, 61, 53, 38, 23, 9, 112, 99, 75, 50, 29, 11, 197, 176, 137, 97, 62, 35, 13, 337, 303, 240, 175, 119, 74, 41, 15, 566, 511, 409, 304, 213, 141, 86, 47, 17, 939, 850, 685, 515, 368, 251, 163, 98, 53, 19, 1545, 1401, 1134
Offset: 1
Northwest corner (the array is read by falling antidiagonals):
1....5....14...31....61....112
3....11...26...53....99....176
5....17...38...75....137...240
7....23...50...97....175...304
9....29...62...119...213...368
11...35...74...141...251...432
-
b[n_] := Fibonacci[n + 1]; c[n_] := 2 n - 1;
t[n_, k_] := Sum[b[k - i] c[n + i], {i, 0, k - 1}]
TableForm[Table[t[n, k], {n, 1, 10}, {k, 1, 10}]]
Flatten[Table[t[n - k + 1, k], {n, 12}, {k, n, 1, -1}]]
r[n_] := Table[t[n, k], {k, 1, 60}] (* A213774 *)
Table[t[n, n], {n, 1, 40}] (* A213775 *)
s[n_] := Sum[t[i, n + 1 - i], {i, 1, n}]
Table[s[n], {n, 1, 50}] (* A213776 *)
Showing 1-4 of 4 results.
Comments