A329474 a(n) = log_2(A110428(n)). Also, a(n) = a(n-1) + a(m) for n >= 3, where m = 2^(p+1) + 2 - n and p is the unique integer such that 2^p < n - 1 <= 2^(p+1), starting with a(1) = 0 and a(2) = 1.

0, 1, 1, 2, 2, 4, 5, 6, 6, 12, 17, 21, 23, 25, 26, 27, 27, 54, 80, 105, 128, 149, 166, 178, 184, 190, 195, 199, 201, 203, 204, 205, 205, 410, 614, 817, 1018, 1217, 1412, 1602, 1786, 1964, 2130, 2279, 2407, 2512, 2592, 2646, 2673, 2700, 2726, 2751, 2774, 2795, 2812, 2824, 2830

Offset

1,4

Links

Table of n, a(n) for n=1..57.

Formula

2^a(n) = A110428(n).

Maple

a := proc(n) option remember;
`if`(n < 3, [0, 1][n], a(n - 1) + a(2^ceil(log[2](n - 1)) + 2 - n)); end proc;
seq(a(n), n = 1..50); #

Crossrefs

Cf. A050049, A050069, A110428.

Sequence in context: A064574 A059015 A325108 * A260295 A024683 A244017

Adjacent sequences: A329471 A329472 A329473 * A329475 A329476 A329477

Keyword

nonn

Author

Petros Hadjicostas, Nov 13 2019

Status

approved