A347785 Number of compositions (ordered partitions) of n into at most 4 powers of 2.

1, 1, 2, 3, 6, 9, 12, 14, 18, 17, 18, 22, 24, 22, 26, 24, 18, 17, 26, 22, 30, 30, 34, 24, 24, 22, 34, 24, 26, 24, 24, 0, 18, 17, 26, 22, 38, 30, 34, 24, 30, 30, 42, 24, 34, 24, 24, 0, 24, 22, 34, 24, 34, 24, 24, 0, 26, 24, 24, 0, 24, 0, 0, 0, 18, 17, 26, 22, 38, 30

Offset

0,3

Links

Table of n, a(n) for n=0..69.

Mathematica

Table[Length@Flatten[Permutations/@IntegerPartitions[n, 4, Select[Range@n, IntegerQ@Log2@#&]], 1], {n, 0, 69}] (* Giorgos Kalogeropoulos, Sep 13 2021 *)

Crossrefs

Cf. A000079, A023359, A151760, A347784, A347786, A347787.

Sequence in context: A131975 A288754 A057474 * A270139 A353159 A145441

Adjacent sequences: A347782 A347783 A347784 * A347786 A347787 A347788

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 13 2021

Status

approved