A066698 Numbers k such that Euler phi(k) / Carmichael lambda(k) = 34.

14111, 24617, 28222, 29767, 32743, 42059, 45629, 49234, 59534, 60691, 65486, 66641, 69071, 73373, 84118, 88639, 88723, 91258, 97751, 98159, 105877, 121382, 125903, 128027, 129677, 133282, 136001, 138142, 140183, 146507, 146746, 153851

Offset: 1

Author

Randall L Rathbun, Jan 12 2002

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000010, A002322.

Continuation of A062373, A062374, A062375, A062376, A062377.

Programs

Mathematica

Select[ Range[2 10^5], EulerPhi[ # ] == 34CarmichaelLambda[ # ] &]

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 }
{A0(n)=eulerphi(n)/cl(n)}
for(x=1,30001, if(A0(x)==34,print1(x,",")))

PARI

isok(k) = eulerphi(k)/lcm(znstar(k)[2]) == 34; \\ Michel Marcus, May 25 2022

Extensions

More terms from Robert G. Wilson v, Jan 13 2002