A080046 Multiplicative Pascal triangle, read by rows: T(n,1)=T(n,n)=n and T(n,k) = T(n-1,k-1) * T(n-1,k).
1, 2, 2, 3, 4, 3, 4, 12, 12, 4, 5, 48, 144, 48, 5, 6, 240, 6912, 6912, 240, 6, 7, 1440, 1658880, 47775744, 1658880, 1440, 7, 8, 10080, 2388787200, 79254226206720, 79254226206720, 2388787200, 10080, 8, 9, 80640, 24078974976000
Offset: 1
Examples
1 2 2 3 4 3 4 12 12 4
Links
- Reinhard Zumkeller and Andre F. Labossiere, Rows n=1..14 of triangle, flattened
- Index entries for triangles and arrays related to Pascal's triangle
Programs
-
Haskell
a080046 n k = a080046_tabl !! (n-1) !! (k-1) a080046_row n = a080046_tabl !! (n-1) a080046_tabl = iterate f [1] where f (x:xs) = [x + 1] ++ (zipWith (*) xs $ reverse xs) ++ [x + 1] -- Reinhard Zumkeller, Oct 27 2013
Extensions
Corrected by André F. Labossière, Sep 27 2004
Comments