login
A324377
a(0) = 0; for n > 0, a(n) = A000265(A005187(n)).
4
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,3
FORMULA
a(0) = 0; for n > 0, a(n) = A000265(A005187(n)) = A005187(n) / 2^A324379(n).
a(n) = A322821(A283477(n)).
PROG
(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)));
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 28 2019
STATUS
approved