|
%I #9 Jul 13 2013 12:03:22
%S 1,2,1,6,2,1,18,6,2,1,54,18,6,2,1,162,54,18,6,2,1,486,162,54,18,6,2,1,
%T 1458,486,162,54,18,6,2,1,4374,1458,486,162,54,18,6,2,1,13122,4374,
%U 1458,486,162,54,18,6,2,1,39366,13122,4374,1458,486,162,54,18,6,2,1
%N Sequence array for binomial transform of Jacobsthal numbers A001045(n+1).
%C Sequence array for A025192. Row sums are 3^n, A000244. Diagonal sums are A015518(n+1). Inverse is A114284.
%H Reinhard Zumkeller, <a href="/A114283/b114283.txt">Rows n = 0..120 of triangle, flattened</a>
%F Riordan array ((1-x)/(1-3x), x).
%e Triangle begins
%e 1;
%e 2,1;
%e 6,2,1;
%e 18,6,2,1;
%e 54,18,6,2,1;
%e 162,54,18,6,2,1;
%o (Haskell)
%o a114283 n k = a114283_tabl !! n !! k
%o a114283_row n = a114283_tabl !! n
%o a114283_tabl = iterate
%o (\row -> (sum $ zipWith (+) row $ reverse row) : row) [1]
%o -- _Reinhard Zumkeller_, Nov 27 2012
%K easy,nonn,tabl
%O 0,2
%A _Paul Barry_, Nov 20 2005
|
