|
| |
| |
|
|
|
-1, -3, -4, -15, -6, -63, -18, -364, -42, -400, -60, -4095, -72, -90, -102, -3906, -132, -168, -2380, -174, -65535, -5220, -294, -384, -262143, -12720, -678, -702, -265720, -744, -762, -774, -828, -840, -25260, -858, -912, -1092, -1098, -1164, -1182, -1194, -1218, -1374, -1428, -1488, -1560
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| Values of m-A006530[A000203(m)] differences, when m < A006530[A000203(m)].
|
|
|
EXAMPLE
| m=29929=173, sigma[29929]=1+173+29929=30103 and 29929-30103=-174, the 20th term here.
|
|
|
MATHEMATICA
| ma[x_] := Part[Reverse[Flatten[FactorInteger[x]]], 2] Do[s=n-ma[DivisorSigma[1, n]]; If[Equal[Sign[s], -1], Print[s]], {n, 2, 10000000}]
|
|
|
CROSSREFS
| Cf. A000203, A006530, A062700, A023194, A071166.
Sequence in context: A086826 A130409 A157351 * A194924 A205489 A076365
Adjacent sequences: A071164 A071165 A071166 * A071168 A071169 A071170
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 15 2002
|
| |
|
|
