|
Search: id:A066198
|
|
|
| A066198 |
|
Numbers n where EulerPhi changes as fast as sigma, i.e. |EulerPhi(n+1)-EulerPhi(n)| = |sigma(n+1)-sigma(n)|. |
|
+0
3
|
|
| 2, 6, 8, 10, 22, 46, 58, 82, 106, 166, 178, 188, 226, 262, 285, 346, 358, 382, 466, 478, 502, 562, 586, 718, 838, 854, 862, 886, 902, 982, 1018, 1186, 1282, 1306, 1318, 1366, 1438, 1486, 1522, 1618, 1822, 1906, 2013, 2026, 2038, 2062, 2098, 2206, 2446, 2458
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
|EulerPhi(7)-EulerPhi(6)| = |6-2| = |8-12| = |sigma(7)-sigma(6)|.
|EulerPhi(9)-EulerPhi(8)|=||6-4|=2=|13-15|=|sigma(9)-sigma(8)|.
|
|
MATHEMATICA
|
Select[ Range[ 1, 10^4 ], Abs[ DivisorSigma[ 1, # + 1 ] - DivisorSigma[ 1, # ] ] == Abs[ EulerPhi[ # + 1 ] - EulerPhi[ # ] ] & ]
|
|
CROSSREFS
|
Sequence in context: A038619 A118257 A066762 this_sequence A108417 A088417 A050880
Adjacent sequences: A066195 A066196 A066197 this_sequence A066199 A066200 A066201
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Dec 16 2001
|
|
EXTENSIONS
|
More terms from Jason Earls (zevi_35711(AT)yahoo.com), Jun 05 2002
|
|
|
Search completed in 0.002 seconds
|
