A345046 If n = Product p(k)^e(k) then a(n) = LCM (p(k)-1)^e(k).

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

Author

Antti Karttunen, Jun 07 2021

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..16384
• Index entries for sequences related to lcm's

Crossrefs

Cf. A003958, A345047.

Cf. also A345044, A353783.

Programs

PARI

A345046(n) = { my(f=factor(n)~); lcm(vector(#f, i, (f[1, i]-1)^f[2, i])); };