A183190 Triangle T(n,k), read by rows, given by (1, 1, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (0, 1, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938.
1, 1, 0, 2, 1, 0, 4, 4, 1, 0, 8, 12, 6, 1, 0, 16, 32, 24, 8, 1, 0, 32, 80, 80, 40, 10, 1, 0, 64, 192, 240, 160, 60, 12, 1, 0, 128, 448, 672, 560, 280, 84, 14, 1, 0, 256, 1024, 1792, 1792, 1120, 448, 112, 16, 1, 0, 512, 2304, 4608, 5376, 4032, 2016, 672, 144, 18, 1, 0
Offset: 0
Examples
Triangle begins: 1; 1, 0; 2, 1, 0; 4, 4, 1, 0; 8, 12, 6, 1, 0; 16, 32, 24, 8, 1, 0; 32, 80, 80, 40, 10, 1, 0; ...
Crossrefs
Programs
-
Maple
T:= proc(n, k) option remember; `if`(k<0 or k>n, 0, `if`(n<2, 1-k, 2*T(n-1, k) +T(n-1, k-1))) end: seq(seq(T(n,k), k=0..n), n=0..12); # Alois P. Heinz, Nov 08 2019
-
Mathematica
T[n_, k_] /; 0 <= k <= n := T[n, k] = 2 T[n-1, k] + T[n-1, k-1]; T[0, 0] = T[1, 0] = 1; T[1, 1] = 0; T[, ] = 0; Table[T[n, k], {n, 0, 9}, {k, 0, n}] // Flatten (* Jean-François Alcover, Nov 08 2019 *)
Comments