|
Search: id:A088010
|
|
|
| A088010 |
|
Solutions to sigma[x]-2x<=x^(1/3) and x is odd. Abundance-radius = Abs[sigma[n]-2n] does not exceed n^(1/3) and n is odd. |
|
+0 1
|
|
| 1, 315, 1155, 8415, 8925, 31815, 32445, 33705, 34335, 78975, 351351, 430815, 437745, 442365, 449295, 730125, 1805475, 7667625, 13800465, 14571585, 16029405, 16286445, 20297745, 20355825, 20487159, 21003885, 22982505, 23082885
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
abu[x_] := Abs[DivisorSigma[1, x]-2*x] Do[If[ !Greater[abu[n], n^(1/3)//N]&&OddQ[n], Print[n]], {n, 1, 100000}]
|
|
CROSSREFS
|
Cf. A077374, A088007-A088012, A000396, A000079, A005100, A005101.
Sequence in context: A114807 A109130 A087415 this_sequence A145753 A048905 A115559
Adjacent sequences: A088007 A088008 A088009 this_sequence A088011 A088012 A088013
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Oct 20 2003
|
|
EXTENSIONS
|
a(17)-a(28) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Feb 01 2009
|
|
|
Search completed in 0.002 seconds
|