OFFSET
1,1
MATHEMATICA
Select[ Range[2 10^5], EulerPhi[ # ] == 34CarmichaelLambda[ # ] &]
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Randall L Rathbun, Jan 12 2002
EXTENSIONS
More terms from Robert G. Wilson v, Jan 13 2002
STATUS
approved