A330892 Square array of polygonal numbers read by descending antidiagonals (the transpose of A317302).
0, 1, 0, 0, 1, 0, -3, 1, 1, 0, -8, 0, 2, 1, 0, -15, -2, 3, 3, 1, 0, -24, -5, 4, 6, 4, 1, 0, -35, -9, 5, 10, 9, 5, 1, 0, -48, -14, 6, 15, 16, 12, 6, 1, 0, -63, -20, 7, 21, 25, 22, 15, 7, 1, 0, -80, -27, 8, 28, 36, 35, 28, 18, 8, 1, 0, -99, -35, 9, 36, 49, 51, 45, 34, 21, 9, 1, 0
Offset: 1
Links
- E. Deza and M. Deza, Figurate Numbers, World Scientific, 2012; see p. 45.
- Eric Weisstein's World of Mathematics, Polygonal Number.
- Wikipedia, Polygonal number.
- Index to sequences related to polygonal numbers
Crossrefs
Cf. A317302 (the same array) but read by ascending antidiagonals.
Rows: A067998, A080956, A001477, A000217, A000290, A000326, A000384, A000566, A000567, A001106, A001107, A051682, A051624, A051865, A051866, A051867, A051868, A051869, A051870, A051871, A051872, A051873, A051874, A051875, A051876, A255184, A255185, A255186, A161935, A255187, A254474, ..., ;
Programs
-
Mathematica
Table[ PolygonalNumber[r - c, c], {r, 0, 11}, {c, r, 0, -1}] // Flatten
Formula
P(r, c) = (r - 2)(c(c-1)/2) + c.
Comments