login
a(n) = phi(A143482(n)) where phi(m) = A000010(m).
3

%I #24 Oct 12 2015 22:28:24

%S 1,1,2,2,4,4,6,8,18,20,20,24,24,24,24,32,32,36,36,40,48,60,88,96,100,

%T 120,162,168,168,176,180,192,220,256,288,288,360,360,384,400,400,432,

%U 504,560,600,616,736,736,756,800,864,864,936,936,1000,1008,1008,1008

%N a(n) = phi(A143482(n)) where phi(m) = A000010(m).

%C Previous name was: a(n) is the number of positive integers <= A143482(n) and coprime to A143482(n).

%C a(n+1) >= a(n) for all n.

%H Peter Kagey, <a href="/A143483/b143483.txt">Table of n, a(n) for n = 1..10000</a>

%t 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 *)

%Y Cf. A143482.

%Y A143481 is an analogous sequence with A143480 as the referenced sequence.

%K nonn

%O 1,3

%A _Leroy Quet_, Aug 19 2008

%E Extended by _Ray Chandler_, Nov 09 2008

%E Name changed by _Peter Kagey_, Sep 03 2015