login
a(n) = phi(A019565(n)), where phi is Euler totient function.
3

%I #6 Dec 19 2020 08:00:07

%S 1,1,2,2,4,4,8,8,6,6,12,12,24,24,48,48,10,10,20,20,40,40,80,80,60,60,

%T 120,120,240,240,480,480,12,12,24,24,48,48,96,96,72,72,144,144,288,

%U 288,576,576,120,120,240,240,480,480,960,960,720,720,1440,1440,2880,2880,5760,5760,16,16,32,32,64,64,128,128

%N a(n) = phi(A019565(n)), where phi is Euler totient function.

%F If 2n = 2^e1 + 2^e2 + ... + 2^ek [e1 ... ek distinct], then a(n) = A006093(e1) * A006093(e2) * ... * A006093(ek).

%F a(n) = A000010(A019565(n)).

%o (PARI) A339820(n) = { my(m=1, p=1); while(n>0, p = nextprime(1+p); if(n%2, m *= (p-1)); n >>= 1); (m); };

%Y Cf. A000010, A019565, A339821 (bisection).

%Y Cf. also A324650, A339809.

%K nonn

%O 0,3

%A _Antti Karttunen_, Dec 18 2020