|
Search: id:A066080
|
|
|
| A066080 |
|
Largest solution to p(n) = EulerPhi[x] - 1. |
|
+0
11
|
|
| 2, 6, 12, 18, 22, 42, 60, 54, 46, 58, 62, 126, 150, 98, 94, 106, 118, 198, 134, 142, 270, 158, 166, 276, 420, 250, 206, 214, 378, 348, 254, 262, 274, 278, 298, 302, 474, 486, 334, 346, 358, 594, 382, 840, 394, 398, 422, 446, 454, 458, 708, 478, 1050, 502, 1020
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
For p=97: x = {97, 119, 153, 194, 195, 208, 224, 238, 260, 280, 288, 306, 312, 336, 360, 390, 420} is set of 17 solutions such that 1+Phi[x]=97
|
|
MATHEMATICA
|
Table[Do[s=1+EulerPhi[n]; If[Equal[s, Prime[k]], Print[{n, s}]], {n, 1, 4*Prime[k]^2}], {k, 1, 100}]
|
|
CROSSREFS
|
Sequence in context: A138630 A026229 A043343 this_sequence A071707 A069087 A085345
Adjacent sequences: A066077 A066078 A066079 this_sequence A066081 A066082 A066083
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Dec 03 2001
|
|
|
Search completed in 0.002 seconds
|
