The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A347935 Numbers k such that A187795(k) > 2*k. 4
 60, 72, 108, 120, 144, 168, 180, 216, 240, 252, 264, 280, 288, 300, 312, 324, 336, 360, 396, 400, 420, 432, 468, 480, 504, 528, 540, 560, 576, 588, 600, 612, 624, 648, 660, 672, 684, 720, 756, 780, 792, 800, 816, 828, 840, 864, 880, 900, 912, 924, 936, 960, 972 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Numbers k whose sum of aliquot divisors that are abundant numbers is > k. If k is a term then all the positive multiples of k are also terms. The smallest odd term is a(10042) = 155925. The numbers of terms not exceeding 10^k for k = 1, 2, ... are 0, 2, 53, 629, 6423, 63932, 639947, 6395539, 63934596, ... Apparently, this sequence has an asymptotic density 0.0639... LINKS Amiram Eldar, Table of n, a(n) for n = 1..10000 EXAMPLE The divisors of 60 are {1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60}. The abundant divisors are {12, 20, 30, 60} and their sum is 122 > 2*60 = 120. Therefore, 60 is a term. MATHEMATICA abQ[n_] := DivisorSigma[1, n] > 2*n; s[n_] := DivisorSum[n, # &, abQ[#] &]; q[n_] := s[n] > 2*n; Select[Range[1000], q] PROG (PARI) isok(k) = sumdiv(k, d, if (sigma(d)>2*d, d)) > 2*k; \\ Michel Marcus, Sep 20 2021 CROSSREFS Subsequence of A005101. Cf. A187795. Sequence in context: A265712 A335198 A335935 * A347938 A114837 A328149 Adjacent sequences: A347932 A347933 A347934 * A347936 A347937 A347938 KEYWORD nonn AUTHOR Amiram Eldar, Sep 20 2021 STATUS approved

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

Last modified May 18 12:18 EDT 2024. Contains 372630 sequences. (Running on oeis4.)