A126064 Triangle read by rows, obtained by multiplying columns of triangle in A094587 by 1,2,4,8,16,... respectively.

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, 40320, 80640, 80640, 53760, 26880, 10752, 3584, 1024, 256, 362880, 725760, 725760, 483840, 241920, 96768, 32256, 9216, 2304, 512

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

Sequence in context: A128745 A332891 A188524 * A066813 A320194 A033732

Adjacent sequences: A126061 A126062 A126063 * A126065 A126066 A126067

Keyword

nonn,tabl,easy

Author

N. J. A. Sloane, Feb 28 2007

Extensions

More terms from R. J. Mathar, Nov 02 2007

Status

approved