|
|
A307149
|
|
Number of binary partitions of n in which exactly two of the powers of 2 are used an odd number of times.
|
|
2
|
|
|
0, 0, 0, 1, 0, 2, 1, 3, 1, 5, 3, 7, 4, 10, 7, 12, 8, 17, 13, 21, 16, 28, 23, 32, 27, 42, 37, 48, 44, 60, 56, 66, 64, 83, 81, 93, 94, 114, 115, 124, 131, 152, 159, 166, 182, 198, 214, 212, 241, 254, 283, 274, 320, 322, 368, 342, 412, 402, 472, 428, 528, 494
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,6
|
|
LINKS
|
|
|
MATHEMATICA
|
Clear[L]; L[m_, n_] := L[m, n] = If[n == 0, If[m == 0, 1, 0], If[EvenQ[n] && n >= 2, L[m, n - 2] + L[m, n/2], If[m >= 1, L[m - 1, n - 1], 0]]]; Table[L[2, n], {n, 0, 100}] (* Vaclav Kotesovec, Mar 29 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|