|
|
A249184
|
|
A249183 seen as binary numbers.
|
|
6
|
|
|
1, 7, 27, 119, 427, 1799, 6939, 30583, 109227, 458759, 1769499, 7798903, 27984299, 117901063, 454761243, 2004318071, 7158278827, 30064771079, 115964117019, 511101108343, 1833951035819, 7726646167303, 29802778073883, 131352984844151, 469126392949419
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=0..2*n} (A249133(n,k)*2^k).
|
|
MATHEMATICA
|
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 *)
|
|
PROG
|
(Haskell)
a249184 = foldr (\b v -> 2 * v + b) 0 . a249133_row
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|