|
%I #20 Mar 31 2024 19:16:04
%S 1,3,1,12,4,1,60,20,5,1,360,120,30,6,1,2520,840,210,42,7,1,20160,6720,
%T 1680,336,56,8,1,181440,60480,15120,3024,504,72,9,1,1814400,604800,
%U 151200,30240,5040,720,90,10,1
%N A scaled version of triangle A162990.
%C We get this scaled version of triangle A162990 by dividing the coefficients in the left hand columns by their 'top-values' and then taking the square root.
%C T(n,k) = A173333(n+1,k+1), 1 <= k <= n. - _Reinhard Zumkeller_, Feb 19 2010
%C T(n,k) = A094587(n+1,k+1), 1 <= k <= n. - _Reinhard Zumkeller_, Jul 05 2012
%H Reinhard Zumkeller, <a href="/A162995/b162995.txt">Rows n = 1..150 of triangle, flattened</a>
%F a(n,m) = (n+1)!/(m+1)! for n = 1, 2, 3, ..., and m = 1, 2, ..., n.
%e The first few rows of the triangle are:
%e [1]
%e [3, 1]
%e [12, 4, 1]
%e [60, 20, 5, 1]
%p a := proc(n, m): (n+1)!/(m+1)! end: seq(seq(a(n, m), m=1..n), n=1..9); # _Johannes W. Meijer_, revised Nov 23 2012
%t Table[(n+1)!/(m+1)!, {n, 10}, {m, n}] (* _Paolo Xausa_, Mar 31 2024 *)
%o (Haskell)
%o a162995 n k = a162995_tabl !! (n-1) !! (k-1)
%o a162995_row n = a162995_tabl !! (n-1)
%o a162995_tabl = map fst $ iterate f ([1], 3)
%o where f (row, i) = (map (* i) row ++ [1], i + 1)
%o -- _Reinhard Zumkeller_, Jul 04 2012
%Y Cf. A094587.
%Y A056542(n) equals the row sums for n>=1.
%Y A001710, A001715, A001720, A001725, A001730, A049388, A049389, A049398, A051431 are related to the left hand columns.
%Y A000012, A009056, A002378, A007531, A052762, A052787, A053625 and A159083 are related to the right hand columns.
%K easy,nonn,tabl
%O 1,2
%A _Johannes W. Meijer_, Jul 27 2009
|
