OFFSET
0,3
COMMENTS
Also obtained by multiplying the n-th rows of A094587 by the first (n+1) powers of 2: T(n,k) = A094587(n,k) * A059268(n,k), 0 <= k <= n. - Reinhard Zumkeller, Jul 05 2012
LINKS
Reinhard Zumkeller, Rows n = 0..150 of triangle, flattened
Peter Luschny, Variants of Variations.
EXAMPLE
1
1, 2
2, 4, 4
6, 12, 12, 8
24, 48, 48, 32, 16
120, 240, 240, 160, 80, 32
720, 1440, 1440, 960, 480, 192, 64
5040, 10080, 10080, 6720, 3360, 1344, 448, 128
MAPLE
A126064 := proc(n, k) binomial(n, k)*(n-k)!*2^k ; end: for n from 0 to 13 do for k from 0 to n do printf("%d, ", A126064(n, k)) ; od: od: # R. J. Mathar, Nov 02 2007
MATHEMATICA
m = 9;
T = Transpose[2^Range[0, m] Table[n!/k!, {k, 0, m}, {n, 0, m}]];
Table[T[[n+1, k+1]], {n, 0, m}, {k, 0, n}] // Flatten (* Jean-François Alcover, Apr 04 2020 *)
PROG
(Haskell)
a126064 n k = a126064_tabl !! n !! k
a126064_row n = a126064_tabl !! n
a126064_tabl = zipWith (zipWith (*)) a094587_tabl a059268_tabl
-- Reinhard Zumkeller, Jul 05 2012
CROSSREFS
KEYWORD
AUTHOR
N. J. A. Sloane, Feb 28 2007
EXTENSIONS
More terms from R. J. Mathar, Nov 02 2007
STATUS
approved