|
%I #16 Oct 13 2019 14:07:16
%S 0,1,2,1,5,7,8,11,19,23,25,26,17,49,65,73,77,79,80,115,179,211,227,
%T 235,239,241,242,217,473,601,665,697,713,721,725,727,728,139,1163,
%U 1675,1931,2059,2123,2155,2171,2179,2183,2185,2186,2465,4513,5537,6049,6305
%N Irregular triangle read by rows: row n, for n >= 0, lists the nonnegative differences 3^n - 2^m, m >= 0, in increasing order.
%C A020914(n) = length of n-th row;
%C T(n,1) = A056577(n);
%C T(n,A098294(n)) = A001047(n);
%C T(n,A020914(n)) = A024023(n);
%C T(n,k) = A196486(n,A020914(n)-k) for n > 0, k = 1..A056576(n).
%H Reinhard Zumkeller, <a href="/A227048/b227048.txt">Rows n = 0..100 of triangle, flattened</a>
%e Initial rows:
%e 0: 0
%e 1: 1,2
%e 2: 1,5,7,8
%e 3: 11,19,23,25,26 (= 27-16, 27-8, 27-4, 27-2, 27-1)
%e 4: 17,49,65,73,77,79,80
%e 5: 115,179,211,227,235,239,241,242
%e 6: 217,473,601,665,697,713,721,725,727,728
%e 7: 139,1163,1675,1931,2059,2123,2155,2171,2179,2183,2185,2186
%e 8: 2465,4513,5537,6049,6305,6433,6497,6529,6545,6553,6557,6559,6560
%e ...
%o (Haskell)
%o a227048 n k = a227048_tabf !! n !! (k-1)
%o a227048_row n = a227048_tabf !! n
%o a227048_tabf = map f a000244_list where
%o f x = reverse $ map (x -) $ takeWhile (<= x) a000079_list
%Y Cf. A000079, A000244, A192111.
%Y See also A001047, A020914, A024023, A056576, A056577, A098294, A196486.
%K nonn,tabf
%O 0,3
%A _Reinhard Zumkeller_, Jun 29 2013
%E Definition revised by _N. J. A. Sloane_, Oct 11 2019
|
