A345045 a(n) = A047994(n) / A345044(n), where A047994(n) is multiplicative with a(p^e) = p^e - 1, and A345044(n) gives the least common multiple of the same factors.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 3, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 4, 1, 1, 1, 1, 1, 2, 3, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 4, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 3, 2, 2, 1, 1, 1, 1, 1, 6, 4, 1, 2, 1, 1, 4, 6, 1, 2, 1, 2, 1, 1, 1, 2, 3, 1, 2, 1, 1, 4

Offset

1,15

Links

Table of n, a(n) for n=1..105.

Formula

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

Prog

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

Crossrefs

Cf. A047994, A345044.

Cf. also A344879, A345047.

Sequence in context: A324882 A345047 A031264 * A318809 A304118 A319679

Adjacent sequences: A345042 A345043 A345044 * A345046 A345047 A345048

Keyword

nonn

Author

Antti Karttunen, Jun 07 2021

Status

approved