%I #7 Mar 19 2016 04:31:54
%S 1,2,3,5,7,11,11,17,17,25,21,35,29,37,43,49,43,55,49,67,67,69,61,87,
%T 77,89,85,101,81,109,97,123,127,123,137,145,121,145,155,169,139,175,
%U 149,183,185,177,165,219,185,209,217,227,189,233,237,257,251,243,219,277
%N a(n) = prime(n) - Carmichael lambda(n).
%F a(n) = A000040(n) - A002322(n). - _Michel Marcus_, Mar 18 2016
%t a= Table[Prime[n] - CarmichaelLambda[n], {n, 1, 200}]
%o (PARI) a(n) = prime(n) - lcm(znstar(n)[2]); \\ _Michel Marcus_, Mar 18 2016
%Y Cf. A000040, A002322.
%K nonn
%O 1,2
%A _Roger L. Bagula_, Mar 12 2005
|