|
Search: id:A066698
|
|
|
| A066698 |
|
Euler phi(n) / Carmichael lambda(n) = 34. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Select[ Range[2 10^5], EulerPhi[ # ] == 34CarmichaelLambda[ # ] &]
|
|
PROGRAM
|
(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, ", ")))
|
|
CROSSREFS
|
Continuation of A062373-A062377
Sequence in context: A031819 A066939 A140708 this_sequence A157786 A035918 A134610
Adjacent sequences: A066695 A066696 A066697 this_sequence A066699 A066700 A066701
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Randall L.Rathbun, Jan 12 2002
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 13 2002
|
|
|
Search completed in 0.002 seconds
|
