login
A345046
If n = Product p(k)^e(k) then a(n) = LCM (p(k)-1)^e(k).
4
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, 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, 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
OFFSET
1,3
PROG
(PARI) A345046(n) = { my(f=factor(n)~); lcm(vector(#f, i, (f[1, i]-1)^f[2, i])); };
CROSSREFS
Cf. also A345044, A353783.
Sequence in context: A046791 A187203 A187202 * A125131 A003958 A326140
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 07 2021
STATUS
approved