|
Search: id:A085639
|
|
| |
|
| 1, -1, -1, 0, 4, 1, -1, 0, 0, -4, -1, 0, -1, 1, -4, 0, -1, 0, -1, 0, 1, 1, -1, 0, -5, 1, 0, 0, -1, 4, -1, 0, 1, 1, -4, 0, -1, 1, 1, 0, -1, -1, -1, 0, 0, 1, -1, 0, 0, 5, 1, 0, -1, 0, -4, 0, 1, 1, -1, 0, -1, 1, 0, 0, -4, -1, -1, 0, 1, 4, -1, 0, -1, 1, 5, 0, 1, -1, -1, 0, 0, 1, -1, 0, -4, 1, 1, 0, -1
(list; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
REFERENCES
|
T. M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1976.
|
|
FORMULA
|
a(n) = phi(n)*mu(n/gcd(n, 5)) / phi(n/gcd(n, 5)).
|
|
MATHEMATICA
|
a[n_] := EulerPhi[n] * MoebiusMu[n/GCD[n, 5]] / EulerPhi[n/GCD[n, 5]]; Table[ a[n], {n, 1, 105}]
|
|
PROGRAM
|
(PARI) a(n)=eulerphi(n)*moebius(n/gcd(n, 5))/eulerphi(n/gcd(n, 5))
|
|
CROSSREFS
|
Cf. A085384.
Sequence in context: A069018 A130636 A117414 this_sequence A135302 A128760 A057884
Adjacent sequences: A085636 A085637 A085638 this_sequence A085640 A085641 A085642
|
|
KEYWORD
|
sign,mult
|
|
AUTHOR
|
Yuval Dekel (dekelyuval(AT)hotmail.com), Aug 15 2003
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com) and Benoit Cloitre (benoit7848c(AT)orange.fr), Aug 17 2003
|
|
|
Search completed in 0.002 seconds
|
