|
|
|
|
1, 2, 4, 6, 6, 12, 12, 16, 22, 28, 32, 30, 36, 52, 48, 62, 62, 68, 88, 104, 116, 108, 128, 128, 132, 168, 160, 168, 200, 204, 240, 232, 242, 284, 300, 324, 332, 348, 352, 352, 412, 440, 400, 466, 460, 516, 496, 566, 582, 580, 608, 646, 676, 736, 716, 782, 728, 816, 832, 856, 916, 924, 948, 1034, 1008, 1044, 1096, 1154, 1112, 1212, 1204, 1188
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
b:= proc(n) option remember; `if`(n=0, 1,
(t-> Bits[Xor](2^n*t, t))(b(n-1)))
end:
a:= n-> convert(Bits[Split](b(n)), `+`):
|
|
PROG
|
l=[1]
for n in range(1, 101):
x = l[n - 1]
l.append(x^(2**n*x))
|
|
CROSSREFS
|
Number of odd term on row n of A053632.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|