A068212 - OEIS

%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