A199515 Denominators of: MoebiusMu(n)^2*(n/(n - EulerPhi(n))).

1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 4, 7, 1, 1, 1, 1, 1, 3, 6, 1, 1, 1, 7, 1, 1, 1, 11, 1, 1, 13, 9, 11, 1, 1, 10, 5, 1, 1, 5, 1, 1, 1, 12, 1, 1, 1, 1, 19, 1, 1, 1, 3, 1, 7, 15, 1, 1, 1, 16, 1, 1, 17, 23, 1, 1, 25, 23, 1, 1, 1, 19, 1, 1, 17, 9, 1, 1, 1, 21, 1, 1, 21, 22, 31, 1, 1, 1

Offset: 2

Author

Mats Granvik, Nov 07 2011

Keywords

• nonn
• frac

Comments

Denominators of zeros to a symmetric polynomial.

See A199514 for numerators and program.

Links

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

Crossrefs

Cf. A000010, A008683, A191898. Numerators: A199514.

Programs

Mathematica

Table[MoebiusMu[n]^2 (n/(n-EulerPhi[n])),{n,2,90}]//Denominator (* Harvey P. Dale, May 15 2022 *)

PARI

A199515(n) = denominator(issquarefree(n)*(n/(n-eulerphi(n)))); \\ Antti Karttunen, Sep 07 2018

Formula

A199514(n)/a(n) = A008683(n)^2*(n/(n - A000010(n))), n > 1.

a(n) = denominator of A008966(n)*(n/A051953(n)). - Antti Karttunen, Sep 07 2018