|
|
|
|
0, 1, 6, 10, 30, 51, 68, 84, 164, 245, 330, 414, 482, 551, 616, 680, 1000, 1321, 1646, 1970, 2310, 2651, 2988, 3324, 3596, 3869, 4146, 4422, 4682, 4943, 5200, 5456, 6736, 8017, 9302, 10586, 11886, 13187, 14484, 15780, 17140, 18501, 19866, 21230
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
1/3*Map[Total, Table[Function[k, FromDigits[#, 2] &@ Apply[Function[{a, b}, Riffle @@ Map[PadLeft[#, Max[Length /@ {a, b}]] &, {a, b}]], Map[IntegerDigits[#, 2] &@ BitXor[#, Floor[#/2]] &, {k, j}]]][i - j], {i, 0, 43}, {j, i, 0, -1}]] (* Michael De Vlieger, Nov 01 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|