%I #11 Sep 02 2014 18:46:57
%S 1,2,5,10,15,16,17,20,30,34,37,40,48,51,60,64,68,74,80,85,95,101,102,
%T 111,120,125,135,136,148,170,185,190,192,197,202,204,222,240,247,250,
%U 255,256,257,259,270,272,285,296,303,304,320,323,333,340,351,370,375,380,394,401
%N Arguments n for which the Carmichael lambda function A002322(n) is a perfect square.
%H Reinhard Zumkeller, <a href="/A173694/b173694.txt">Table of n, a(n) for n = 1..10000</a>
%F A010052(A002322(a(n))) = 1. - _Reinhard Zumkeller_, Sep 02 2014
%e 37 is in the sequence because lambda(37) = 36 = 6^2.
%p for n from 1 to 500 do if issqr(numtheory[lambda](n) ) then printf("%d,",n) ; end if; end do:
%o (Haskell)
%o a173694 n = a173694_list !! (n-1)
%o a173694_list = filter ((== 1) . a010052 . a002322) [1..]
%o -- _Reinhard Zumkeller_, Sep 02 2014
%Y Cf. A002322.
%Y Cf. A010052.
%K nonn
%O 1,2
%A _Michel Lagneau_, Nov 25 2010
%E Definition rephrased - _R. J. Mathar_, Nov 26 2010