A324378 a(n) = A000265(1+A005187(n)).

1, 1, 1, 5, 1, 9, 11, 3, 1, 17, 19, 5, 23, 3, 13, 27, 1, 33, 35, 9, 39, 5, 21, 43, 47, 3, 25, 51, 27, 55, 57, 29, 1, 65, 67, 17, 71, 9, 37, 75, 79, 5, 41, 83, 43, 87, 89, 45, 95, 3, 49, 99, 51, 103, 105, 53, 55, 111, 113, 57, 117, 59, 15, 121, 1, 129, 131, 33, 135, 17, 69, 139, 143, 9, 73, 147, 75, 151, 153, 77, 159, 5, 81

Offset: 0

Author

Antti Karttunen, Feb 28 2019

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 0..16384
• Antti Karttunen, Data supplement: n, a(n) computed for n = 0..65537
• Index entries for sequences related to binary expansion of n

Crossrefs

Cf. A000265, A002487, A005187, A324288, A324377.

Programs

PARI

A000265(n) = (n/2^valuation(n, 2));
A005187(n) = { my(s=n); while(n>>=1, s+=n); s; };
A324378(n) = A000265(1+A005187(n));

Formula

a(n) = A000265(1+A005187(n)).

A002487(a(n)) = A324288(n).

a(2^n) = 1 for all n >= 0.