OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n)=Min{x; A085342(x)=n}
MAPLE
N:= 200: # for a(1)..a(N)
V:= Vector(N):
count:= 0:
for x from 1 while count < N do
v:= numtheory:-pi(x) - numtheory:-pi(numtheory:-phi(x));
if v >= 1 and v <= N and V[v] = 0 then
V[v]:= x; count:= count+1;
fi
od:
convert(V, list); # Robert Israel, Aug 23 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 10 2003
STATUS
approved
