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

1, 1, 2, 3, 4, 2, 6, 7, 8, 4, 10, 6, 12, 6, 4, 15, 16, 8, 18, 12, 6, 10, 22, 14, 24, 12, 26, 6, 28, 4, 30, 31, 10, 16, 12, 24, 36, 18, 12, 28, 40, 6, 42, 30, 8, 22, 46, 30, 48, 24, 16, 12, 52, 26, 20, 42, 18, 28, 58, 12, 60, 30, 24, 63, 12, 10, 66, 48, 22, 12, 70, 56, 72, 36, 24, 18, 30, 12, 78, 60, 80, 40, 82, 6, 16, 42

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. A047994, A345045.

Cf. also A344878, A345046, A353783.

Programs

PARI

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

Formula

a(n) = A047994(n) / A345045(n).