|
%I #8 May 12 2024 15:35:35
%S 1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,1,1,1,2,1,1,2,1,
%T 2,1,1,1,2,1,1,2,1,1,4,1,1,1,1,1,2,1,1,1,2,1,2,1,1,2,1,1,2,1,4,2,1,1,
%U 2,2,1,1,1,1,2,1,2,2,1,1,1,1,1,2,4,1,2,1,1,4,6,1,2,1,2,1,1,1,2,1,1,2,1,1,4
%N a(n) = A003958(n) / A345046(n), where A003958(n) is multiplicative with a(p^e) = (p-1)^e, and A345046(n) gives the least common multiple of the same factors.
%H Antti Karttunen, <a href="/A345047/b345047.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = A003958(n) / A345046(n).
%o (PARI) A345047(n) = { my(f=factor(n)~, g=vector(#f, i, (f[1, i]-1)^f[2, i])); factorback(g)/lcm(g); };
%Y Cf. A003958, A345046.
%Y Cf. also A345045, A353784.
%K nonn
%O 1,15
%A _Antti Karttunen_, Jun 07 2021
|
