|
Search: id:A088011
|
|
|
| A088011 |
|
Both even and odd solutions to Abs[sigma[x]-2x]<=log[x]. Numbers n whose abundance-radius does not exceed log[n]. |
|
+0
3
|
|
| 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; listen)
|
|
|
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 this_sequence A050835 A054284 A079254
Adjacent sequences: A088008 A088009 A088010 this_sequence A088012 A088013 A088014
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote), Oct 20 2003
|
|
|
Search completed in 0.002 seconds
|
