%I #11 Jan 03 2017 02:26:30
%S 1,1,2,1,2,2,2,2,2,2,4,2,4,4,8,2,6,4,4,2,2,4,4,4,6,4,4,4,6,8,4,8,8,4,
%T 12,6,8,8,8,4,6,4,8,2,2,8,6,4,16,8,4,6,8,8,12,4,2,8,12,6,12,16,16,4,6,
%U 16,4,8,10,8,24,12,8,12,12,8,6,16,18,8,2,8,32,6,8,8,8,8,24,4,12,2,24
%N a(n) = phi(n) divided by its largest prime factor.
%F a(n) = A052126(A000010(n)) = A000010(n)/A068211(n) = A000010(n)/A006530(A000010(n)).
%t epn[n_]:=Module[{e=EulerPhi[n]},e/FactorInteger[e][[-1,1]]]; Array[ epn,100,3] (* _Harvey P. Dale_, Apr 18 2012 *)
%Y Cf. A000010, A006530, A052126, A068211.
%K nonn
%O 3,3
%A _Labos Elemer_, Feb 21 2002