A023199 a(n) is the least k with sigma(k) >= n*k.
1, 6, 120, 27720, 122522400, 130429015516800, 1970992304700453905270400, 1897544233056092162003806758651798777216000, 4368924363354820808981210203132513655327781713900627249499856876120704000
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..13
- Walter Nissen, Abundancy : Some Resources, 2008-2010.
- T. D. Noe, An algorithm for finding the least k with sigma(k) >= nk, 2005-2009.
Crossrefs
Programs
-
PARI
a(n) = my(k=1); while (sigma(k)/k < n, k++); k; \\ Michel Marcus, Oct 07 2019
Extensions
More terms from Walter Nissen, Apr 15 1997
Further terms from Devin Kilminster (devin(AT)maths.uwa.edu.au), Mar 10 2003
The term a(10) = 271#23#10! was apparently found independently by Bodo Zinser and Don Reble, circa Jul 05 2005
The next term, a(11) = 487#29#10!, was corrected by Don Reble, Jul 06 2005
a(12) = 857#37#11!42 from Don Reble, Jul 06 2005
a(14)-a(17) found by T. D. Noe and rechecked by him Oct 11 2005
a(15) corrected. The conjecture still fails at n=15. - T. D. Noe, Oct 13 2009
Comments