OFFSET
1,3
COMMENTS
LINKS
Peter Kagey, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = t = {1}; lim = 58; Do[k = 1; While[EulerPhi[k n] < t[[n - 1]], k++]; AppendTo[a, k n]; AppendTo[t, EulerPhi[k n]], {n, 2, lim}]; EulerPhi /@ a (* Michael De Vlieger, Sep 04 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 19 2008
EXTENSIONS
Extended by Ray Chandler, Nov 09 2008
Name changed by Peter Kagey, Sep 03 2015
STATUS
approved