|
%I #17 Aug 07 2017 15:19:37
%S 0,0,0,0,0,0,0,2,0,0,0,2,0,0,4,4,0,0,0,4,6,0,0,6,0,0,0,6,0,4,0,8,10,0,
%T 12,6,0,0,12,12,0,6,0,10,12,0,0,12,0,0,16,12,0,0,20,18,18,0,0,12,0,0,
%U 30,16,36,10,0,16,22,12,0,18,0,0,20,18,30,12,0,28,0,0,0,18,48,0,28,30,0,12
%N a(n) = phi(n) - CarmichaelLambda(n).
%H Antti Karttunen, <a href="/A104194/b104194.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A000010(n) - A002322(n). - _Michel Marcus_, Mar 18 2016
%t Table[EulerPhi[n] - CarmichaelLambda[n], {n, 1, 200}]
%o (PARI) a(n) = eulerphi(n) - lcm(znstar(n)[2]); \\ _Michel Marcus_, Mar 18 2016
%Y Cf. A000010, A002322, A034380.
%K nonn
%O 1,8
%A _Roger L. Bagula_, Mar 12 2005
|
