|
Search: id:A066152
|
|
|
| A066152 |
|
Solutions n to the equation EulerPhi(n) = sigma(n + 1) - sigma(n). |
|
+0
1
|
|
| 2, 459, 17835, 34089, 55419, 61183, 180785, 194139, 248501, 385671, 907323, 988455, 1374735, 1407413, 1408253, 1452135, 1749087, 2451727, 3026705, 3263585, 3831487, 6541695, 7633989, 9336785
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
EulerPhi(459) = 288 = 1008 - 720 = EulerPhi(460) - EulerPhi(459).
|
|
MATHEMATICA
|
Select [Range[1, 10^6], EulerPhi[ # ] == DivisorSigma[1, # + 1] - DivisorSigma[1, # ] & ]
|
|
CROSSREFS
|
Sequence in context: A012734 A104183 A099686 this_sequence A112862 A094484 A062620
Adjacent sequences: A066149 A066150 A066151 this_sequence A066153 A066154 A066155
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Dec 13 2001
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 27 2001
|
|
|
Search completed in 0.002 seconds
|
