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

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

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, A353784.

Sequence in context: A345047 A031264 A382420 * A318809 A304118 A319679

Adjacent sequences: A345042 A345043 A345044 * A345046 A345047 A345048

Keyword

nonn

Author

Antti Karttunen, Jun 07 2021

Status

approved