login
A249183 seen as binary numbers.
6

%I #13 Jul 28 2023 04:07:44

%S 1,7,27,119,427,1799,6939,30583,109227,458759,1769499,7798903,

%T 27984299,117901063,454761243,2004318071,7158278827,30064771079,

%U 115964117019,511101108343,1833951035819,7726646167303,29802778073883,131352984844151,469126392949419

%N A249183 seen as binary numbers.

%C Appears to be basically the same as A048711. - _R. J. Mathar_, Nov 16 2014

%H Reinhard Zumkeller, <a href="/A249184/b249184.txt">Table of n, a(n) for n = 0..1000</a>

%F a(n) = Sum_{k=0..2*n} (A249133(n,k)*2^k).

%F A007088(a(n)) = A249183(n).

%F A000120(a(n)) = A105321(n).

%F A023416(a(n)) = A249304(n).

%t a[n_] := FromDigits[Mod[Riffle[Binomial[n, Range[0, n]], Binomial[n - 1, Range[0, n - 1]]], 2], 2]; Array[a, 25, 0] (* _Amiram Eldar_, Jul 28 2023 *)

%o (Haskell)

%o a249184 = foldr (\b v -> 2 * v + b) 0 . a249133_row

%Y Cf. A249183 (binary), A249133, A007088, A001317, A000120, A023416, A105321, A249304.

%K nonn

%O 0,2

%A _Reinhard Zumkeller_, Nov 14 2014