|
| |
|
|
A062376
|
|
Euler phi(n) / Carmichael lambda(n) = 8.
|
|
1
| |
|
|
80, 120, 160, 168, 195, 208, 255, 260, 264, 272, 280, 312, 320, 336, 340, 360, 390, 400, 408, 416, 420, 435, 440, 456, 464, 510, 528, 552, 555, 580, 592, 595, 600, 615, 616, 640, 656, 660, 663, 672, 696, 697, 715, 740, 744, 760, 765, 792, 795, 800, 820
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Solutions to A000010(n)/A002322(n)=8.
|
|
|
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 } {A062376(n)=eulerphi(n)/cl(n)} for(x=1, 10001, if(A062376(x)==8, print1(x, ", ")))
|
|
|
CROSSREFS
| Cf. A000010, A002322, A034380, A033948, A033948, A062373-A062377.
Sequence in context: A043223 A039400 A044003 * A068140 A204648 A202447
Adjacent sequences: A062373 A062374 A062375 * A062377 A062378 A062379
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Vladeta Jovovic (vladeta(AT)eunet.rs), Jun 17 2001
|
|
|
EXTENSIONS
| More terms from Randall L. Rathbun, Jan 12 2002
|
| |
|
|
