|
%I #12 Oct 23 2023 05:02:21
%S 0,1,1,3,3,9,5,13,11,21,11,31,17,31,35,41,27,49,31,59,55,59,39,79,57,
%T 77,67,89,53,101,67,107,107,107,113,133,85,127,131,153,99,163,107,163,
%U 161,155,119,203,143,189,185,203,137,215,197,233,215,215,161,261,163,233
%N a(n) = -(phi(n) + CarmichaelLambda(n)) + prime(n).
%F a(n) = A000040(n) - A000010(n) - A002322(n).
%t a= Table[ -(EulerPhi[n] + CarmichaelLambda[n]) + Prime[n], {n, 1, 200}]
%o (PARI) a(n) = prime(n) - eulerphi(n) - lcm(znstar(n)[2]); \\ _Michel Marcus_, Mar 18 2016
%Y Cf. A000010, A000040, A002322.
%K nonn,less
%O 1,4
%A _Roger L. Bagula_, Mar 12 2005
|
