A175506 Denominators of the antiharmonic means B of numbers k such that gcd(k, n) = 1 for numbers n >= 1 and k < n.

1, 1, 3, 2, 1, 3, 3, 4, 9, 1, 1, 6, 3, 3, 3, 8, 1, 9, 3, 2, 3, 1, 1, 12, 5, 3, 27, 6, 1, 3, 3, 16, 3, 1, 3, 18, 3, 3, 3, 4, 1, 3, 3, 2, 9, 1, 1, 24, 21, 5, 3, 6, 1, 27, 1, 12, 3, 1, 1, 6, 3, 3, 9, 32, 3, 3, 3, 2, 3, 3, 1, 36, 3, 3, 15, 6, 3, 3, 3, 8, 81, 1, 1, 6, 1, 3, 3, 4, 1, 9, 1, 2, 3, 1, 3, 48, 3, 21, 9

Offset

1,3

Comments

See A175505 - numerators of the antiharmonic means B of numbers k such that gcd(k, n) = 1 for numbers n >= 1 and k < n where B = A053818(n) / A023896(n) = A175505(n) / a(n).

Links

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

Formula

a(n) = A175505(n) * A023896(n) / A053818(n).

Mathematica

f[n_] := 2Plus @@ (Select[ Range@n, GCD[ #, n] == 1 &]^2)/(n*EulerPhi@n); f[1] = 1; Denominator@ Array[f, 80] (* Robert G. Wilson v, Jul 01 2010 *)

Crossrefs

Sequence in context: A128262 A140414 A129514 * A211705 A010267 A023636

Adjacent sequences: A175503 A175504 A175505 * A175507 A175508 A175509

Keyword

nonn

Author

Jaroslav Krizek, May 31 2010

Extensions

More terms from Robert G. Wilson v, Jul 01 2010

Status

approved