A066696 Numbers k such that Euler phi(k) / Carmichael lambda(k) = 14.

1247, 1421, 2059, 2494, 2842, 3053, 3479, 3683, 4118, 4859, 5537, 6106, 6119, 6931, 6958, 7366, 8023, 8471, 9017, 9653, 9718, 9947, 10277, 10991, 11074, 11711, 12083, 12238, 13427, 13769, 13862, 13987, 14239, 14351, 15863, 16046, 16942

Offset

1,1

Links

Table of n, a(n) for n=1..37.

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 } {A062377(n)=eulerphi(n)/cl(n)} for(x=1, 30001, if(A062377(x)==14, print1(x, ", ")))
(PARI) isok(k) = eulerphi(k)/lcm(znstar(k)[2]) == 14; \\ Michel Marcus, May 25 2022

Crossrefs

Cf. A000010, A002322.

Cf. A062373, A062374, A062375, A062376, A062377.

Sequence in context: A023065 A190413 A252675 * A195006 A114528 A069146

Adjacent sequences: A066693 A066694 A066695 * A066697 A066698 A066699

Keyword

easy,nonn

Author

Randall L Rathbun, Jan 12 2002

Extensions

Terms joined (twice) by Georg Fischer, Jul 08 2022

Status

approved