|
%I #27 Dec 25 2019 18:10:32
%S 1,6,1,36,12,1,216,108,18,1,1296,864,216,24,1,7776,6480,2160,360,30,1,
%T 46656,46656,19440,4320,540,36,1,279936,326592,163296,45360,7560,756,
%U 42,1,1679616,2239488,1306368,435456,90720,12096,1008
%N Triangle whose (i,j)-th entry is binomial(i,j)*6^(i-j).
%C T(n,k) = A013613(n,n-k), 0 <= k <= n. - _Reinhard Zumkeller_, Nov 21 2013
%H Reinhard Zumkeller, <a href="/A038255/b038255.txt">Rows n = 0..125 of triangle, flattened</a>
%H Naiomi T. Cameron and Asamoah Nkwanta, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL8/Cameron/cameron46.html">On Some (Pseudo) Involutions in the Riordan Group</a>, Journal of Integer Sequences, Vol. 8 (2005), Article 05.3.7.
%H B. N. Cyvin et al., <a href="http://match.pmf.kg.ac.rs/electronic_versions/Match34/match34_109-121.pdf">Isomer enumeration of unbranched catacondensed polygonal systems with pentagons and heptagons</a>, Match, No. 34 (Oct 1996), pp. 109-121.
%F G.f.: 1/(1 - 6*x - x*y). - _Ilya Gutkovskiy_, Apr 21 2017
%e 1
%e 6, 1
%e 36, 12, 1
%e 216, 108, 18, 1
%e 1296, 864, 216, 24, 1
%e 7776, 6480, 2160, 360, 30, 1
%e 46656, 46656, 19440, 4320, 540, 36, 1
%e 279936, 326592, 163296, 45360, 7560, 756, 42, 1
%e 1679616, 2239488, 1306368, 435456, 90720, 12096, 1008, 48, 1
%p for i from 0 to 8 do seq(binomial(i, j)*6^(i-j), j = 0 .. i) od; # _Zerinvary Lajos_, Dec 21 2007
%t Table[Binomial[n,m]6^(n-m),{n,0,10},{m,0,n}]//Flatten (* _Harvey P. Dale_, Dec 25 2019 *)
%o (Haskell)
%o a038255 n k = a038255_tabl !! n !! k
%o a038255_row n = a038255_tabl !! n
%o a038255_tabl = map reverse a013613_tabl
%o -- _Reinhard Zumkeller_, Nov 21 2013
%Y Cf. A038207.
%Y Cf. A000420 (row sums), A013613 (mirrored), A110440, A007318, A000400.
%K nonn,tabl,easy
%O 0,2
%A _N. J. A. Sloane_.
|
