OFFSET
1,2
COMMENTS
LINKS
Ivan Neretin and Peter Kagey, Table of n, a(n) for n = 1..10000, first 1000 terms from Ivan Neretin
MAPLE
A[1]:= 1:
for n from 2 to 100 do
for k from n by n do
r:= numtheory:-phi(k);
if r > A[n-1] then
A[n]:= r;
break
fi
od:
od:
seq(A[i], i=1..100); # Robert Israel, Sep 04 2015
MATHEMATICA
a = b = {1}; Do[k = 1; While[(r = EulerPhi[nxt = k*n]) <= b[[-1]], k++]; AppendTo[a, nxt]; AppendTo[b, r], {n, 2, 52}]; b (* Ivan Neretin, May 25 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