|
%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
|
