OFFSET
1,2
COMMENTS
A permutation of A002202. - Amiram Eldar, Nov 14 2024
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
t=Table[EulerPhi[w], {w, 1, 100}]; s=Sort[t]; u=Union[t]; 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]}]
DeleteDuplicates[EulerPhi[Range[200]]] (* Harvey P. Dale, Jan 20 2013 *)
PROG
(Haskell)
a090127 n = a090127_list !! (n-1)
a090127_list = f a000010_list [] where
f (x:xs) phis | x `elem` phis = f xs phis
| otherwise = x : f xs (x : phis)
-- Reinhard Zumkeller, Dec 18 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 16 2004
STATUS
approved