|
| |
|
|
A045763
|
|
Number of numbers "unrelated to n": m<n such that m is neither a divisor of n nor relatively prime to n.
|
|
34
| |
|
|
0, 0, 0, 0, 0, 1, 0, 1, 1, 3, 0, 3, 0, 5, 4, 4, 0, 7, 0, 7, 6, 9, 0, 9, 3, 11, 6, 11, 0, 15, 0, 11, 10, 15, 8, 16, 0, 17, 12, 17, 0, 23, 0, 19, 16, 21, 0, 23, 5, 25, 16, 23, 0, 29, 12, 25, 18, 27, 0, 33, 0, 29, 22, 26, 14, 39, 0, 31, 22, 39, 0, 37, 0, 35, 30, 35, 14, 47, 0, 39, 23, 39, 0, 49
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,10
|
|
|
COMMENTS
| a(n)=0 iff n is a prime or 1 or 4. - Robert G. Wilson v (rgwv(at)rgwv.com), Nov 02 2005
|
|
|
REFERENCES
| Martin Beumer, The Arithmetical Function tau_k(N), Amer. Math. Monthly, 69, Oct 1962, p. 780 (a(n)=ksi(N)).
Suggested by Wouter Meeussen (wouter.meeussen(AT)pandora.be)
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
|
|
|
FORMULA
| n + 1 - d(n) - phi(n); where d is the number of divisors of n and phi is Euler's totient function.
|
|
|
MATHEMATICA
| f[n_] := n + 1 - DivisorSigma[0, n] - EulerPhi[n]; Array[f, 84] (* Robert G. Wilson v *)
|
|
|
PROG
| (PARI) a(n)=n+1-numdiv(n)-eulerphi(n) \\ Charles R Greathouse IV, Jul 15 2011
|
|
|
CROSSREFS
| Sequence in context: A141030 A194084 A100258 * A132748 A055945 A138123
Adjacent sequences: A045760 A045761 A045762 * A045764 A045765 A045766
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Nov 02 2005
|
| |
|
|
