This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A066698 #24 Dec 11 2024 00:37:15
%S A066698 14111,24617,28222,29767,32743,42059,45629,49234,59534,60691,65486,
%T A066698 66641,69071,73373,84118,88639,88723,91258,97751,98159,105877,121382,
%U A066698 125903,128027,129677,133282,136001,138142,140183,146507,146746,153851
%N A066698 Numbers k such that Euler phi(k) / Carmichael lambda(k) = 34.
%H A066698 Amiram Eldar, <a href="/A066698/b066698.txt">Table of n, a(n) for n = 1..10000</a>
%t A066698 Select[ Range[2 10^5], EulerPhi[ # ] == 34CarmichaelLambda[ # ] &]
%o A066698 (PARI) {cmf(f)=if( ((f[1]==2)&&(f[2]>2)),eulerphi(f[1]^f[2])/2, eulerphi(f[1]^f[2])) }
%o A066698 {cl(f)= k=factor(f); l=1; for(x=1,omega(f),l=lcm(l,cmf([k[x,1], k[x,2]]))); l }
%o A066698 {A0(n)=eulerphi(n)/cl(n)}
%o A066698 for(x=1,30001, if(A0(x)==34,print1(x,",")))
%o A066698 (PARI) isok(k) = eulerphi(k)/lcm(znstar(k)[2]) == 34; \\ _Michel Marcus_, May 25 2022
%Y A066698 Cf. A000010, A002322.
%Y A066698 Continuation of A062373, A062374, A062375, A062376, A062377.
%K A066698 nonn
%O A066698 1,1
%A A066698 _Randall L Rathbun_, Jan 12 2002
%E A066698 More terms from _Robert G. Wilson v_, Jan 13 2002