A196486 - OEIS

%I #16 Oct 30 2018 10:31:02

%S 1,7,5,1,25,23,19,11,79,77,73,65,49,17,241,239,235,227,211,179,115,

%T 727,725,721,713,697,665,601,473,217,2185,2183,2179,2171,2155,2123,

%U 2059,1931,1675,1163,139,6559,6557,6553,6545,6529,6497,6433,6305,6049,5537

%N Irregular triangle 3^n-2^m.

%C Each n-th row consists of A056576(n) terms, the first term is 3^n-2, n-th term is 3^n-2^n=A001047(n), and the last term is A056577(n).

%C T(n,k) = A227048(n,A056576(n)-k) for k = 1..A056576(n). - _Reinhard Zumkeller_, Jun 30 2013

%H T. D. Noe, <a href="/A196486/b196486.txt">Rows n = 1..100 of triangle, flattened</a>

%e Rows are:

%e n=1: 1

%e n=2: 7,5,1

%e n=3: 25,23,19,11

%e n=4: 79,77,73,65,49,17

%e n=5: 241,239,235,227,211,179,115.

%t Flatten[Table[3^k - 2^m, {k, 10}, {m, Floor[Log[2, 3^k]]}]]

%o (Haskell)

%o a196486 n k = a196486_tabf !! (n-1) !! (k-1)

%o a196486_row n = a196486_tabf !! (n-1)

%o a196486_tabf = map (tail . reverse) $ tail a227048_tabf

%o -- _Reinhard Zumkeller_, Jun 30 2013

%Y Cf. A001047, A056576, A056577.

%K nonn,tabf

%O 1,2

%A _Zak Seidov_, Oct 03 2011