A145975 Triangle read by rows, partition triangle A027293 convolved with A010815.
1, 1, -1, 2, -1, -1, 3, -2, -1, 0, 5, -3, -2, 0, 0, 7, -5, -3, 0, 0, 1, 11, -7, -5, 0, 0, 1, 0, 15, -11, -7, 0, 0, 2, 0, 1, 22, -15, -11, 0, 0, 3, 0, 1, 0, 30, -22, -15, 0, 0, 5, 0, 2, 0, 0, 42, -30, -22, 0, 0, 7, 0, 3, 0, 0, 0, 56, -42, -30, 0, 0, 11, 0, 5, 0, 0, 0, 0
Offset: 1
Examples
First few rows of the triangle = 1; 1, -1; 2, -1, -1; 3, -2, -1, 0; 5, -3, -2, 0, 0; 7, -5, -3, 0, 0, 1; 11, -7, -5, 0, 0, 1, 0; 15, -11, -7, 0, 0, 2, 0, 1; 22, -15, -11, 0, 0, 3, 0, 1, 0; 30, -22, -15, 0, 0, 5, 0, 2, 0, 0; 42, -30, -22, 0, 0, 7, 0, 3, 0, 0, 0; ...
Links
- Robert Price, Table of n, a(n) for n = 1..1275 (first 50 rows)
Programs
-
Mathematica
Table[Count[Flatten[Union /@ IntegerPartitions@n],k]*SeriesCoefficient[Product[1 - x^i, {i, k - 1}], {x, 0, k - 1}], {n, 12}, {k, n}] // Flatten (* Robert Price, Jun 15 2020 *)
Formula
Extensions
Missing zero at a(55) inserted by Robert Price, Jun 15 2020
Comments