|
| |
|
|
A088011
|
|
Both even and odd solutions to Abs[sigma[x]-2x]<=log[x]. Numbers n whose abundance-radius does not exceed log[n].
|
|
2
| |
|
|
4, 6, 8, 10, 16, 20, 28, 32, 64, 70, 88, 104, 110, 128, 136, 152, 256, 464, 496, 512, 592, 650, 884, 1024, 1155, 1888, 1952, 2048, 2144, 4030, 4096, 5830, 8128, 8192, 8384, 8925, 11096, 16384, 17816, 18632, 18904, 32128, 32445, 32768, 32896, 33664, 45356
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| abu[x_] := Abs[DivisorSigma[1, x]-2*x] Do[If[ !Greater[abu[n], Log[n]//N], Print[n]], {n, 1, 100000}]
|
|
|
CROSSREFS
| Cf. A088007-A088012, A077374, A005100, A005101, A000079, A000396.
Sequence in context: A127792 A062711 A117347 * A050835 A054284 A079254
Adjacent sequences: A088008 A088009 A088010 * A088012 A088013 A088014
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote), Oct 20 2003
|
| |
|
|
