|
Search: id:A066155
|
|
|
| A066155 |
|
Solutions n to the equation EulerPhi(n) = sigma(n + 1) - sigma(n - 1). |
|
+0
1
|
|
| 4, 6, 11, 32, 38, 54, 84, 278, 407, 804, 1854, 2664, 3287, 6579, 11327, 14750, 15608, 20720, 41664, 46839, 70190, 73283, 80429, 185231, 241614, 275876, 355292, 375200, 410327, 511220, 692909, 763179, 901494, 920390
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
EulerPhi(6) = 2 = 8 - 6 = sigma(7) - sigma(5).
|
|
MATHEMATICA
|
Select [Range[1, 10^6], EulerPhi[ # ] == DivisorSigma[1, # + 1] - DivisorSigma[1, # - 1] & ]
|
|
CROSSREFS
|
Adjacent sequences: A066152 A066153 A066154 this_sequence A066156 A066157 A066158
Sequence in context: A022318 A047811 A091280 this_sequence A105308 A116983 A078426
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Dec 13 2001
|
|
|
Search completed in 0.002 seconds
|
