|
Search: id:A085713
|
|
|
| A085713 |
|
Consider numbers k such that phi(x) = k has exactly 3 solutions and they are (3*p, 4*p, 6*p) where p is 1 or a prime. Sequence gives values of p. |
|
+0
1
|
|
| 1, 23, 29, 47, 53, 59, 71, 83, 103, 107, 131, 149, 167, 173, 179, 191, 197, 223, 227, 239, 263, 269, 283, 293, 311, 317, 343, 347, 359, 361, 373, 383, 389, 419, 431, 443, 467, 479, 491, 503, 509, 557, 563, 569, 587, 599, 643, 647, 653, 659, 677, 683, 709, 719
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
83 is a term because the three solutions (249,332,498) to phi(x) = 164 can be written as (3*83, 4*83, 6*83)
|
|
MATHEMATICA
|
t = Table[ EulerPhi[n], {n, 1, 5000}]; u = Union[ Select[t, Count[t, # ] == 3 &]]; a = {}; Do[k = 1; While[ EulerPhi[3k] != u[[n]], k++ ]; AppendTo[a, k], {n, 1, 60}]; Sort[a]
|
|
CROSSREFS
|
Cf. A000010, A002202, A007367, A007374, A058277, A032447, A064275.
Sequence in context: A106988 A127834 A108111 this_sequence A102904 A108249 A045120
Adjacent sequences: A085710 A085711 A085712 this_sequence A085714 A085715 A085716
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Alford Arnold (alford1940(AT)aol.com), Jul 19 2003
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 19 2003
|
|
|
Search completed in 0.002 seconds
|
