|
Search: id:A092586
|
|
|
| A092586 |
|
Numbers n such that sigma[phi(n)]-phi[sigma(n)] is nonzero and is divisible by (n+1), that is A065395[n]/(n+1)=phi[sigma(n)]-sigma[phi(n)]/(n+1) is a nonzero integer. |
|
+0
1
|
|
| 7, 87, 231, 463, 617, 691, 751, 855, 1059, 1127, 2795, 4819, 11999, 18527, 22481, 75311, 121939, 232901, 256751, 288883, 313919, 371519, 845831, 1285841, 1762799, 1815167, 7195199, 9096191, 40324121, 93070943, 99388823, 113140151
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
sigma(phi(x))-phi(sigma(x))/phi(x+1) equals 1 if x=7; is 2 if x=463; is 3 if x=4819.
|
|
MATHEMATICA
|
f[ x_] := EulerPhi[ DivisorSigma[1, x]] - DivisorSigma[1, EulerPhi[x]]; t = {}; Do[ s = f[n]; If[ s != 0 && Mod[ s, n + 1] == 0, Print[n]; AppendTo[t, n], {n, 2*10^8}]; t
|
|
CROSSREFS
|
Cf. A033632, A092584-A092588, A000203, A000010, A065395.
Sequence in context: A060237 A000686 A102923 this_sequence A048363 A020556 A007803
Adjacent sequences: A092583 A092584 A092585 this_sequence A092587 A092588 A092589
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Mar 01 2004
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v Mar 03 2004
|
|
|
Search completed in 0.002 seconds
|
