|
|
A342186
|
|
Triangle read by rows, matrix inverse of A139382.
|
|
2
|
|
|
1, -1, 1, 3, -4, 1, -21, 31, -11, 1, 315, -486, 196, -26, 1, -9765, 15381, -6562, 1002, -57, 1, 615195, -978768, 428787, -69688, 4593, -120, 1, -78129765, 124918731, -55434717, 9279163, -652999, 19833, -247, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
This triangle appears to be the q-analog of A008275 (Stirling numbers of the first kind) for q=2. However, A333142 has a similar definition.
Row sums of unsigned triangle are A006125 with offset 1.
|
|
LINKS
|
|
|
FORMULA
|
T(n,k) = T(n-1,k-1) - (2^(n-1)-1) * T(n-1,k), n, k >= 1, T(1, 1) = 1, T(n, 0) = 0.
T(n,k) = Sum_{j=k..n} (-1)^(n-j)*2^binomial(n-j,2)*qBinomial(n,j,2)*binomial(j,k), where qBinomial(n,k,2) is A022166(n,k). - Fabian Pereyra, Feb 08 2024
|
|
EXAMPLE
|
The triangle begins:
1;
-1, 1;
3, -4, 1;
-21, 31, -11, 1;
315, -486, 196, -26, 1;
-9765, 15381, -6562, 1002, -57, 1;
615195, -978768, 428787, -69688, 4593, -120, 1;
-78129765, 124918731, -55434717, 9279163, -652999, 19833, -247, 1;
...
|
|
MAPLE
|
A342186 := proc(n, k) if n = 1 and k = 1 then 1 elif k > n or k < 1 then 0 else
|
|
MATHEMATICA
|
T[1, 1] := 1; T[n_, k_] := T[n, k] = If[k > n || k < 1, 0, T[n - 1, k - 1] - (2^(n - 1) - 1)*T[n - 1, k]]; Table[T[n, k], {n, 1, 8}, {k, 1, n}] (* after G. C. Greubel's program for A139382 *)
|
|
PROG
|
(PARI) mat(nn) = my(m = matrix(nn, nn)); for (n=1, nn, for(k=1, nn, m[n, k] = if (n==1, if (k==1, 1, 0), if (k==1, 1, (2^k-1)*m[n-1, k] + m[n-1, k-1])); ); ); m; \\ A139382
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|