|
| |
|
|
A065393
|
|
Sigma[Phi[n]] - Phi[Sigma[n]] is increasing at these values of n.
|
|
4
| |
|
|
3, 5, 7, 11, 13, 17, 19, 29, 31, 37, 41, 53, 61, 73, 95, 97, 109, 127, 143, 157, 181, 209, 241, 287, 313, 323, 337, 377, 403, 407, 421, 473, 527, 533, 541, 589, 601, 661, 713, 731, 757, 779, 899, 1009, 1073, 1147, 1159, 1199, 1271, 1321, 1333, 1349, 1517
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,500
|
|
|
FORMULA
| a = 0; s = 0; Do[s = DivisorSigma[1, EulerPhi[n]] - EulerPhi[DivisorSigma[1, n]]; If[s>a, a = s; Print[n]], {n, 1, 10000}]
|
|
|
EXAMPLE
| First composite number is the 19th term, 143.
|
|
|
PROG
| (PARI) { n=r=0; for (m=1, 10^9, x=sigma(eulerphi(m)) - eulerphi(sigma(m)); if (x > r, r=x; write("b065393.txt", n++, " ", m); if (n==500, return)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Oct 18 2009]
|
|
|
CROSSREFS
| Sigma[Phi[m]]-Phi[Sigma[m]] = A065395[m] = A000203[A000010[m]]-A000010[A000203[m]]. Cf. A000010, A000203, A065394, A065395.
Sequence in context: A059645 A090190 A065041 * A179740 A186884 A045393
Adjacent sequences: A065390 A065391 A065392 * A065394 A065395 A065396
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Nov 05 2001
|
| |
|
|
