Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A339822
The exponent of the highest power of 2 dividing A339821(n).
7
0, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 2, 3, 4, 5, 2, 3, 4, 5, 3, 4, 5, 6, 3, 4, 5, 6, 4, 5, 6, 7, 4, 5, 6, 7, 5, 6, 7, 8, 5, 6, 7, 8, 6, 7, 8, 9, 6, 7, 8, 9, 7, 8, 9, 10, 7, 8, 9, 10, 8, 9, 10, 11, 1, 2, 3, 4, 2, 3, 4, 5, 2, 3, 4, 5, 3, 4, 5, 6, 3, 4, 5, 6, 4, 5, 6, 7, 4, 5, 6, 7, 5, 6, 7, 8, 5, 6, 7, 8, 6, 7, 8, 9, 6, 7
OFFSET
0,3
FORMULA
If 4n = 2^e1 + 2^e2 + ... + 2^ek [e1 ... ek distinct], then a(n) = A023506(e1) + A023506(e2) + ... + A023506(ek).
a(n) = A007814(A339821(n)) = A053574(A019565(2n)).
PROG
(PARI) A339822(n) = { my(s=0, p=2); while(n>0, p = nextprime(1+p); if(n%2, s += valuation((p-1), 2)); n >>= 1); (s); };
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 18 2020
STATUS
approved