OFFSET
0,3
MATHEMATICA
Table[Length@Flatten[Permutations/@IntegerPartitions[n, 3, Select[Range@n, IntegerQ@Log2@#&]], 1], {n, 0, 100}] (* Giorgos Kalogeropoulos, Sep 13 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 13 2021
STATUS
approved