This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A023197 #25 Nov 07 2020 11:32:48 %S A023197 120,180,240,360,420,480,504,540,600,660,672,720,780,840,900,960,1008, %T A023197 1080,1200,1260,1320,1344,1440,1512,1560,1584,1620,1680,1800,1848, %U A023197 1872,1890,1920,1980,2016,2040,2100,2160,2184,2280,2340,2352,2376,2400,2520 %N A023197 Numbers k such that sigma(k) >= 3*k. %C A023197 Sometimes called 3-abundant numbers (but compare the comments in A033880). The first odd number is A119240(3) = 1018976683725. - _T. D. Noe_, Mar 31 2011 %D A023197 Melvyn B. Nathanson, Elementary Methods in Number Theory, Springer, 2000, p 260. %H A023197 T. D. Noe, <a href="/A023197/b023197.txt">Table of n, a(n) for n = 1..10000</a> %H A023197 Richard Laatsch, <a href="http://www.jstor.org/stable/2690424">Measuring the Abundancy of Integers</a>, Mathematics Magazine, Vol. 59, No. 2 (1986), pp. 84-92, <a href="https://isidore.co/misc/Physics%20papers%20and%20books/Zotero/storage/99C5C5IC/Laatsch%20-%201986%20-%20Measuring%20the%20Abundancy%20of%20Integers.pdf">alternative link</a>. %F A023197 A001221(a(n)) >= 3 (Laatsch, 1986). - _Amiram Eldar_, Nov 07 2020 %p A023197 select(t -> numtheory:-sigma(t) >= 3*t, [$1..10000]); # _Robert Israel_, Dec 28 2014 %t A023197 Select[Range[10000], DivisorSigma[1,#] >= 3*#&] (* _Vladimir Joseph Stephan Orlovsky_, Apr 21 2010 *) %Y A023197 Cf. A000203, A001221, A119240. %Y A023197 See A033880 for definition of k-abundancy. %K A023197 nonn %O A023197 1,1 %A A023197 _David W. Wilson_