|
%I #9 May 12 2024 16:00:47
%S 1,1,2,1,4,2,6,1,4,4,10,2,12,6,4,1,16,4,18,4,6,10,22,2,16,12,8,6,28,4,
%T 30,1,10,16,12,4,36,18,12,4,40,6,42,10,4,22,46,2,36,16,16,12,52,8,20,
%U 6,18,28,58,4,60,30,12,1,12,10,66,16,22,12,70,4,72,36,16,18,30,12,78,4,16,40,82,6,16,42,28,10
%N If n = Product p(k)^e(k) then a(n) = LCM (p(k)-1)^e(k).
%H Antti Karttunen, <a href="/A345046/b345046.txt">Table of n, a(n) for n = 1..16384</a>
%H <a href="/index/Lc#lcm">Index entries for sequences related to lcm's</a>
%o (PARI) A345046(n) = { my(f=factor(n)~); lcm(vector(#f, i, (f[1, i]-1)^f[2, i])); };
%Y Cf. A003958, A345047.
%Y Cf. also A345044, A353783.
%K nonn,changed
%O 1,3
%A _Antti Karttunen_, Jun 07 2021
|
