|
%I #11 Jul 28 2023 10:36:57
%S 1,111,11011,1110111,110101011,11100000111,1101100011011,
%T 111011101110111,11010101010101011,1110000000000000111,
%U 110110000000000011011,11101110000000001110111,1101010110000000110101011,111000001110000011100000111,11011000110110001101100011011
%N a(n) = row n of triangle A249133, concatenated.
%H Reinhard Zumkeller, <a href="/A249183/b249183.txt">Table of n, a(n) for n = 0..500</a>
%F a(n) = Sum_{k=0..2*n} A249133(n,k)*10^k.
%F a(n) = A007088(A249184(n));
%F A055641(a(n)) = A249304(n).
%e . 0: 1
%e . 1: 111
%e . 2: 11011
%e . 3: 1110111
%e . 4: 110101011
%e . 5: 11100000111
%e . 6: 1101100011011
%e . 7: 111011101110111
%e . 8: 11010101010101011
%e . 9: 1110000000000000111
%e . 10: 110110000000000011011
%e . 11: 11101110000000001110111
%e . 12: 1101010110000000110101011
%e . 13: 111000001110000011100000111
%e . 14: 11011000110110001101100011011
%e . 15: 1110111011101110111011101110111
%e . 16: 110101010101010101010101010101011
%e . 17: 11100000000000000000000000000000111
%e . 18: 1101100000000000000000000000000011011
%e . 19: 111011100000000000000000000000001110111
%e . 20: 11010101100000000000000000000000110101011
%e . 21: 1110000011100000000000000000000011100000111
%e . 22: 110110001101100000000000000000001101100011011
%e . 23: 11101110111011100000000000000000111011101110111
%e . 24: 1101010101010101100000000000000011010101010101011
%e . 25: 111000000000000011100000000000001110000000000000111
%e . 26: 11011000000000001101100000000000110110000000000011011
%e . 27: 1110111000000000111011100000000011101110000000001110111
%e . 28: 110101011000000011010101100000001101010110000000110101011
%e . 29: 11100000111000001110000011100000111000001110000011100000111
%e . 30: 1101100011011000110110001101100011011000110110001101100011011
%e . 31: 111011101110111011101110111011101110111011101110111011101110111
%e . 32: 11010101010101010101010101010101010101010101010101010101010101011 .
%t a[n_] := FromDigits[Mod[Riffle[Binomial[n, Range[0, n]], Binomial[n - 1, Range[0, n - 1]]], 2]]; Array[a, 15, 0] (* _Amiram Eldar_, Jul 28 2023 *)
%o (Haskell)
%o a249183 = foldr (\b v -> 10 * v + b) 0 . a249133_row
%Y Cf. A249133, A249184 (decimal), A007088, A006943.
%K nonn
%O 0,2
%A _Reinhard Zumkeller_, Nov 14 2014
| 