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
A237616
a(n) = n*(n + 1)*(5*n - 4)/2.
Original entry on oeis.org
0, 1, 18, 66, 160, 315, 546, 868, 1296, 1845, 2530, 3366, 4368, 5551, 6930, 8520, 10336, 12393, 14706, 17290, 20160, 23331, 26818, 30636, 34800, 39325, 44226, 49518, 55216, 61335, 67890, 74896, 82368, 90321, 98770, 107730, 117216, 127243, 137826, 148980, 160720
Offset: 0
After 0, the sequence is provided by the row sums of the triangle:
1;
2, 16;
3, 32, 31;
4, 48, 62, 46;
5, 64, 93, 92, 61;
6, 80, 124, 138, 122, 76;
7, 96, 155, 184, 183, 152, 91;
8, 112, 186, 230, 244, 228, 182, 106;
9, 128, 217, 276, 305, 304, 273, 212, 121;
10, 144, 248, 322, 366, 380, 364, 318, 242, 136; etc.,
where (r = row index, c = column index):
T(r,r) = T(c,c) = 15*r-14 and T(r,c) = T(r-1,c)+T(r,r) = (r-c+1)*T(r,r), with r>=c>0.
- E. Deza and M. M. Deza, Figurate numbers, World Scientific Publishing (2012), page 93 (fifteenth row of the table).
Cf. sequences with formula n*(n+1)*(k*n-k+3)/6:
A000217 (k=0),
A000292 (k=1),
A000330 (k=2),
A002411 (k=3),
A002412 (k=4),
A002413 (k=5),
A002414 (k=6),
A007584 (k=7),
A007585 (k=8),
A007586 (k=9),
A007587 (k=10),
A050441 (k=11),
A172073 (k=12),
A177890 (k=13),
A172076 (k=14), this sequence (k=15),
A172078(k=16),
A237617 (k=17),
A172082 (k=18),
A237618 (k=19),
A172117(k=20),
A256718 (k=21),
A256716 (k=22),
A256645 (k=23),
A256646(k=24),
A256647 (k=25),
A256648 (k=26),
A256649 (k=27),
A256650(k=28).
-
List([0..40], n-> n*(n+1)*(5*n-4)/2); # G. C. Greubel, Aug 30 2019
-
[n*(n+1)*(5*n-4)/2: n in [0..40]];
-
I:=[0,1,18,66]; [n le 4 select I[n] else 4*Self(n-1)-6*Self(n-2)+4*Self(n-3)-Self(n-4): n in [1..50]]; // Vincenzo Librandi, Feb 12 2014
-
seq(n*(n+1)*(5*n-4)/2, n=0..40); # G. C. Greubel, Aug 30 2019
-
Table[n(n+1)(5n-4)/2, {n, 0, 40}]
CoefficientList[Series[x (1+14x)/(1-x)^4, {x, 0, 40}], x] (* Vincenzo Librandi, Feb 12 2014 *)
LinearRecurrence[{4,-6,4,-1},{0,1,18,66},50] (* Harvey P. Dale, Jan 11 2015 *)
-
a(n)=n*(n+1)*(5*n-4)/2 \\ Charles R Greathouse IV, Sep 24 2015
-
[n*(n+1)*(5*n-4)/2 for n in (0..40)] # G. C. Greubel, Aug 30 2019
A152767
3 times 10-gonal (or decagonal) numbers: a(n) = 3*n*(4*n-3).
Original entry on oeis.org
0, 3, 30, 81, 156, 255, 378, 525, 696, 891, 1110, 1353, 1620, 1911, 2226, 2565, 2928, 3315, 3726, 4161, 4620, 5103, 5610, 6141, 6696, 7275, 7878, 8505, 9156, 9831, 10530, 11253, 12000, 12771, 13566, 14385, 15228, 16095, 16986, 17901, 18840, 19803, 20790, 21801
Offset: 0
For n=8, a(8) = (1*3 + 5*7 + 9*11 +..+ 29*31) - (2*4 + 6*8 + 10*12 +..+ 26*28) = 696 (see Problem 1052 in References). - _Bruno Berselli_, Dec 12 2010
- "Supplemento al Periodico di Matematica", Raffaello Giusti Editore (Livorno), Jan. 1910 p. 47 (Problem 1052).
Cf. numbers of the form n*(n*k - k + 6)/2, this sequence is the case k=24: see Comments lines of
A226492.
A213835
Rectangular array: (row n) = b**c, where b(h) = h, c(h) = 4*n-7+4*h, n>=1, h>=1, and ** = convolution.
Original entry on oeis.org
1, 7, 5, 22, 19, 9, 50, 46, 31, 13, 95, 90, 70, 43, 17, 161, 155, 130, 94, 55, 21, 252, 245, 215, 170, 118, 67, 25, 372, 364, 329, 275, 210, 142, 79, 29, 525, 516, 476, 413, 335, 250, 166, 91, 33, 715, 705, 660, 588, 497, 395
Offset: 1
Northwest corner (the array is read by falling antidiagonals):
1....7....22....50....95
5....19...46....90....155
9....31...70....130...215
13...43...94....170...275
17...55...118...210...335
21...67...142...250...395
Cf.
A304659 (first lower diagonal).
-
b[n_]:=n;c[n_]:=4n-3;
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}] (* A213835 *)
Table[t[n,n],{n,1,40}] (* A172078 *)
s[n_]:=Sum[t[i,n+1-i],{i,1,n}]
Table[s[n],{n,1,50}] (* A051797 *)
A264851
a(n) = n*(n + 1)*(n + 2)*(4*n - 3)/6.
Original entry on oeis.org
0, 1, 20, 90, 260, 595, 1176, 2100, 3480, 5445, 8140, 11726, 16380, 22295, 29680, 38760, 49776, 62985, 78660, 97090, 118580, 143451, 172040, 204700, 241800, 283725, 330876, 383670, 442540, 507935, 580320, 660176, 748000, 844305, 949620, 1064490, 1189476
Offset: 0
Cf. similar sequences with formula n*(n+1)*(n+2)*(k*n-k+2)/12 listed in
A264850.
A172080
a(n) = n*(12*n^3 + 10*n^2 - 9*n - 7)/6.
Original entry on oeis.org
0, 1, 37, 190, 590, 1415, 2891, 5292, 8940, 14205, 21505, 31306, 44122, 60515, 81095, 106520, 137496, 174777, 219165, 271510, 332710, 403711, 485507, 579140, 685700, 806325, 942201, 1094562, 1264690, 1453915, 1663615, 1895216, 2150192
Offset: 0
-
List([0..40], n-> n*(n+1)*(12*n^2 -2*n -7)/6); G. C. Greubel, Aug 30 2019
-
[(12*n^4+10*n^3-9*n^2-7*n)/6: n in [0..50]]; // Vincenzo Librandi, Jan 01 2014
-
seq(n*(n+1)*(12*n^2 -2*n -7)/6, n=0..40); # G. C. Greubel, Aug 30 2019
-
CoefficientList[Series[x(1+32x+15x^2)/(1-x)^5, {x, 0, 40}], x] (* Vincenzo Librandi, Jan 01 2014 *)
Table[n*(n+1)*(12*n^2 -2*n -7)/6, {n,0,40}] (* G. C. Greubel, Aug 30 2019 *)
-
vector(40, n, n*(n-1)*(12*(n-1)^2 -2*n -5)/6) \\ G. C. Greubel, Aug 30 2019
-
[n*(n+1)*(12*n^2 -2*n -7)/6 for n in (0..40)] # G. C. Greubel, Aug 30 2019
Showing 1-6 of 6 results.
Comments