|
%I #19 Dec 22 2022 15:45:14
%S 275,341,451,550,671,682,775,781,902,1111,1271,1342,1375,1441,1550,
%T 1562,1661,1775,1991,2101,2201,2222,2321,2542,2651,2750,2761,2882,
%U 2911,2981,3025,3091,3131,3275,3322,3421,3550,3641,3751,3775,3875,3982,4061
%N Euler phi(n) / Carmichael lambda(n) = 10.
%C Solutions to A000010(n)/A002322(n)=10.
%H R. J. Mathar, <a href="/A062377/b062377.txt">Table of n, a(n) for n = 1..7771</a>
%t Reap[ For[ n = 1, n <= 4061, n++, If[ EulerPhi[n] / CarmichaelLambda[n] == 10, Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Mar 26 2013 *)
%t Select[Range[4100],EulerPhi[#]/CarmichaelLambda[#]==10&] (* _Harvey P. Dale_, Dec 22 2022 *)
%o (PARI) {cmf(f)=if( ((f[1]==2)&&(f[2]>2)),eulerphi(f[1]^f[2])/2, eulerphi(f[1]^f[2])) } {cl(f)= k=factor(f); l=1; for(x=1,omega(f),l=lcm(l,cmf([k[x,1], k[x,2]]))); l } {A062377(n)=eulerphi(n)/cl(n)} for(x=1,10001, if(A062377(x)==10,print1(x,",")))
%Y Cf. A000010, A002322, A034380, A033948, A062373, A062374, A062375, A062376.
%K easy,nonn
%O 1,1
%A _Vladeta Jovovic_, Jun 17 2001
%E More terms from _Randall L Rathbun_, Jan 12 2002
|
