OFFSET
1,2
LINKS
Ivan Neretin and Peter Kagey, Table of n, a(n) for n = 1..10000, first 1000 terms from Ivan Neretin.
MAPLE
n:= 1: A[1]:= 1:
p:= 1:
for n from 2 to 100 do
for k from ceil(p/n)*n by n do
r:= numtheory:-phi(k);
if r > p then
A[n]:= k;
p:= 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, 49}]; a (* Ivan Neretin, May 25 2015 *)
FoldList[Block[{e = EulerPhi@ #1, k = 1, m}, While[EulerPhi[Set[m, k #2]] <= e, k++]; m] &, Range@ 49] (* Michael De Vlieger, Aug 29 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 19 2008
EXTENSIONS
Extended by Ray Chandler, Nov 09 2008
STATUS
approved