|
Search: id:A071167
|
|
| |
|
| -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; listen)
|
|
|
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 this_sequence A076365 A070971 A130113
Adjacent sequences: A071164 A071165 A071166 this_sequence A071168 A071169 A071170
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), May 15 2002
|
|
|
Search completed in 0.002 seconds
|
