|
Search: id:A090127
|
|
|
| A090127 |
|
Distinct values of EulerPhi[n] in order of their appearance as n grows. |
|
+0
2
|
|
| 1, 2, 4, 6, 10, 12, 8, 16, 18, 22, 20, 28, 30, 24, 36, 40, 42, 46, 32, 52, 58, 60, 48, 66, 44, 70, 72, 78, 54, 82, 64, 56, 88, 96, 100, 102, 106, 108, 112, 110, 80, 126, 84, 130, 136, 138, 92, 120, 148, 150, 156, 104, 132, 162, 166, 172, 116, 178, 180, 144, 160, 190, 192
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
t=Table[EulerPhi[w], {w, 1, 100}] s=Sort[t]; u=Union[t]; Length[u] Table[Count[s, Part[u, j]], {j, 1, Length[u]}] g=Table[Min[Flatten[Position[t, Part[u, j]]]], {j, 1, Length[u]}]; uu=Union[g]; Table[Part[t, Part[uu, j]], {j, 1, Length[g]}]
|
|
CROSSREFS
|
Cf. A000010.
Sequence in context: A014666 A067852 A102025 this_sequence A057910 A022305 A103799
Adjacent sequences: A090124 A090125 A090126 this_sequence A090128 A090129 A090130
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jan 16 2004
|
|
|
Search completed in 0.003 seconds
|
