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

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

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A054576 A326840 A326153 * A316695 A316767 A292505

Adjacent sequences: A199512 A199513 A199514 * A199516 A199517 A199518

Keyword

nonn,frac

Author

Mats Granvik, Nov 07 2011

Status

approved