%I A066697
%S A066697 513,703,999,1026,1387,1406,1539,1971,1998,2071,2413,2774,2943,2997,
%T A066697 3078,3097,3429,3439,3781,3942,4142,4401,4617,4699,4826,4887,5149,5373,
%U A066697 5833,5886,5913,5994,6031,6194,6858,6878,7201,7317,7363,7543,7562
%N A066697 Euler phi(n) / Carmichael lambda(n) = 18.
%o A066697 (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,10001, if(A0(x)==18,
               print1(x,",")))
%Y A066697 Sequence in context: A044879 A015931 A060947 this_sequence A076338 A111344 
               A017681
%Y A066697 Adjacent sequences: A066694 A066695 A066696 this_sequence A066698 A066699 
               A066700
%K A066697 easy,nonn
%O A066697 1,1
%A A066697 Randall L. Rathbun, Jan 12 2002
%E A066697 Corrected by T. D. Noe (noe(AT)sspectra.com), Nov 01 2006