%I #10 Jul 13 2013 12:04:22
%S 1,1,2,2,4,6,2,6,10,12,4,16,18,22,20,18,28,30,8,36,40,42,46,42,52,58,
%T 60,16,66,70,72,78,54,82,88,96,100,102,106,108,112,110,100,126,32,130,
%U 136,138,148,150,156,162,166,156,172,178,180,190,192,196,198
%N Auxiliary function for computing the Carmichael lambda function (A002322).
%H Reinhard Zumkeller, <a href="/A207193/b207193.txt">Table of n, a(n) for n = 1..10000</a>
%F If p = 2 and e > 2 then a(n)=2^(e-2), otherwise a(n)=(p-1)*p^(e-1), where p^e = A000961(n), the n-th prime power.
%o (Haskell)
%o a207193 1 = 1
%o a207193 n | p == 2 && e > 2 = 2 ^ (e - 2)
%o | otherwise = (p - 1) * p ^ (e - 1)
%o where p = a025473 n; e = a025474 n
%Y Cf. A085730, A025473, A025474.
%K nonn
%O 1,3
%A _Reinhard Zumkeller_, Feb 16 2012
|