A324377 a(0) = 0; for n > 0, a(n) = A000265(A005187(n)).

0, 1, 3, 1, 7, 1, 5, 11, 15, 1, 9, 19, 11, 23, 25, 13, 31, 1, 17, 35, 19, 39, 41, 21, 23, 47, 49, 25, 53, 27, 7, 57, 63, 1, 33, 67, 35, 71, 73, 37, 39, 79, 81, 41, 85, 43, 11, 89, 47, 95, 97, 49, 101, 51, 13, 105, 109, 55, 7, 113, 29, 117, 119, 15, 127, 1, 65, 131, 67, 135, 137, 69, 71, 143, 145, 73, 149, 75, 19

Offset: 0

Author

Antti Karttunen, Feb 28 2019

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 0..16385
• 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, A005187, A283477, A322821, A324287, A324378, A324379.

Programs

PARI

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

Formula

a(0) = 0; for n > 0, a(n) = A000265(A005187(n)) = A005187(n) / 2^A324379(n).

a(n) = A322821(A283477(n)).