|
%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
|
