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,3

Links

Antti Karttunen, Table of n, a(n) for n = 1..16384

Index entries for sequences related to lcm's

Prog

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

Crossrefs

Cf. A003958, A345047.

Cf. also A345044, A353783.

Sequence in context: A046791 A187203 A187202 * A125131 A003958 A326140

Adjacent sequences: A345043 A345044 A345045 * A345047 A345048 A345049

Keyword

nonn

Author

Antti Karttunen, Jun 07 2021

Status

approved