%I #27 Sep 22 2015 18:24:26
%S 1,2,3,4,5,12,7,13,9,16,11,29,11,23,19,22,13,36,17,40,27,37,19,53,23,
%T 41,27,43,23,79,23,43,37,47,35,72,29,59,47,71,31,103,31,64,57,61,31,
%U 89,37,79,51,71,37,107,53,89,61,79,41,149,41,83,71,82,59,142
%N a(n) = A143480(n)/n.
%H Peter Kagey, <a href="/A261863/b261863.txt">Table of n, a(n) for n = 1..10000</a>
%t a = t = {1}; lim = 66; Do[k = 1; While[EulerPhi[k n] <= t[[n - 1]], k++]; AppendTo[a, k n]; AppendTo[t, EulerPhi[k n]], {n, 2, lim}]; Array[Take[a, {#}]/# &, {lim}] // Flatten (* _Michael De Vlieger_, Sep 04 2015 *)
%Y Cf. A143480, A143481 (phi(n*a(n))).
%Y Cf. similar sequence A259439 (A143482(n)/n).
%K nonn
%O 1,2
%A _Peter Kagey_, Sep 03 2015