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