The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A244326 Numbers n such that floor(antisigma(n)/n) < floor(antisigma(n - 1)/(n - 1)). 2
 36, 48, 60, 72, 84, 90, 96, 108, 120, 132, 144, 156, 168, 180, 192, 210, 216, 240, 252, 264, 270, 280, 288, 300, 312, 324, 330, 336, 360, 378, 384, 390, 396, 408, 420, 432, 450, 456, 468, 480, 504, 510, 528, 540, 552, 560, 570, 576, 588, 600, 612, 624, 630, 648 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Antisigma(n) = A024816(n) = the sum of the non-divisors of n that are between 1 and n. Numbers from A166069 (multiply perfect numbers k such that sigma(k)/k > 2) are members of this sequence. LINKS Jaroslav Krizek, Table of n, a(n) for n = 1..8787 (all terms < 10000) MATHEMATICA With[{as=Table[Floor[Total[Complement[Range[2, n], Divisors[n]]/n]], {n, 1000}]}, Flatten[Position[Partition[as, 2, 1], _?(First[#]>Last[#]&), {1}, Heads->False]]]+1 (* Harvey P. Dale, Sep 10 2014 *) PROG (MAGMA) [n: n in [2..10000] | Floor((((n*(n+1))div 2  - SumOfDivisors(n)) div n)) lt Floor((((n*(n-1))div 2  - SumOfDivisors(n-1)) div (n-1)))] CROSSREFS Cf. A024816, A166069, A244324, A244325. Sequence in context: A260927 A291713 A287840 * A064597 A119850 A033701 Adjacent sequences:  A244323 A244324 A244325 * A244327 A244328 A244329 KEYWORD nonn AUTHOR Jaroslav Krizek, Jun 25 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 29 20:42 EDT 2020. Contains 334710 sequences. (Running on oeis4.)