A166362 - OEIS

%I #13 Oct 01 2019 04:13:28

%S 1,2,2,4,6,4,4,6,8,8,6,8,12,10,8,20,12,18,12,8,16,20,16,24,12,18,24,

%T 16,12,20,24,22,16,42,20,32,24,18,40,24,36,28,16,30,36,32,48,20,32,44,

%U 24,24,36,40,36,60,24,32,54,40,24,64,42,56,40,24,72,44,60,46,72,32,42,60

%N a(n) = phi(nonprime(n)).

%C Essentially the same as A073256.

%H G. C. Greubel, <a href="/A166362/b166362.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A000010(A018252(n)).

%t Table[EulerPhi[FixedPoint[n + PrimePi@# &, n + PrimePi@n]], {n, 1, 100}] (* _G. C. Greubel_, May 10 2016 *)

%Y Cf. A000010, A073256, A018252.

%K nonn,look

%O 1,2

%A _Juri-Stepan Gerasimov_, Oct 12 2009

%E Entries checked by _R. J. Mathar_, May 21 2010