cp's OEIS Frontend

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.

Showing 1-7 of 7 results.

A004394 Superabundant [or super-abundant] numbers: n such that sigma(n)/n > sigma(m)/m for all m < n, sigma(n) being A000203(n), the sum of the divisors of n.

Original entry on oeis.org

1, 2, 4, 6, 12, 24, 36, 48, 60, 120, 180, 240, 360, 720, 840, 1260, 1680, 2520, 5040, 10080, 15120, 25200, 27720, 55440, 110880, 166320, 277200, 332640, 554400, 665280, 720720, 1441440, 2162160, 3603600, 4324320, 7207200, 8648640, 10810800, 21621600
Offset: 1

Views

Author

Keywords

Comments

Matthew Conroy points out that these are different from the highly composite numbers - see A002182. Jul 10 1996
With respect to the comment above, neither sequence is subsequence of the other. - Ivan N. Ianakiev, Feb 11 2020
Also n such that sigma_{-1}(n) > sigma_{-1}(m) for all m < n, where sigma_{-1}(n) is the sum of the reciprocals of the divisors of n. - Matthew Vandermast, Jun 09 2004
Ramanujan (1997, Section 59; written in 1915) called these numbers "generalized highly composite." Alaoglu and Erdős (1944) changed the terminology to "superabundant." - Jonathan Sondow, Jul 11 2011
Alaoglu and Erdős show that: (1) n is superabundant => n=2^{e_2} * 3^{e_3} * ...* p^{e_p}, with e_2 >= e_3 >= ... >= e_p (and e_p is 1 unless n=4 or n=36); (2) if q < r are primes, then | e_r - floor(e_q*log(q)/log(r)) | <= 1; (3) q^{e_q} < 2^{e_2+2} for primes q, 2 < q <= p. - Keith Briggs, Apr 26 2005
It follows from Alaoglu and Erdős finding 1 (above) that, for n > 7, a(n) is a Zumkeller Number (A083207); for details, see Proposition 9 and Corollary 5 at Rao/Peng link (below). - Ivan N. Ianakiev, Feb 11 2020
See A166735 for superabundant numbers that are not highly composite, and A189228 for superabundant numbers that are not colossally abundant.
Pillai called these numbers "highly abundant numbers of the 1st order". - Amiram Eldar, Jun 30 2019

References

  • R. Honsberger, Mathematical Gems, M.A.A., 1973, p. 112.
  • J. Sandor, "Abundant numbers", In: M. Hazewinkel, Encyclopedia of Mathematics, Supplement III, Kluwer Acad. Publ., 2002 (see pp. 19-21).
  • James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, page 147.
  • David Wells, The Penguin Dictionary of Curious and Interesting Numbers. Penguin Books, NY, 1986, 128.

Crossrefs

Almost the same as A077006.
The colossally abundant numbers A004490 are a subsequence, as are A023199.
Subsequence of A025487; apart from a(3) = 4 and a(7) = 36, a subsequence of A102750.
Cf. A112974 (number of superabundant numbers between colossally abundant numbers).
Cf. A091901 (Robin's inequality), A189686 (superabundant and the reverse of Robin's inequality), A192884 (non-superabundant and the reverse of Robin's inequality).

Programs

Formula

a(n+1) <= 2*a(n). - A.H.M. Smeets, Jul 10 2021

Extensions

Name edited by Peter Munn, Mar 13 2019

A004490 Colossally abundant numbers: m for which there is a positive exponent epsilon such that sigma(m)/m^{1 + epsilon} >= sigma(k)/k^{1 + epsilon} for all k > 1, so that m attains the maximum value of sigma(m)/m^{1 + epsilon}.

Original entry on oeis.org

2, 6, 12, 60, 120, 360, 2520, 5040, 55440, 720720, 1441440, 4324320, 21621600, 367567200, 6983776800, 160626866400, 321253732800, 9316358251200, 288807105787200, 2021649740510400, 6064949221531200, 224403121196654400
Offset: 1

Views

Author

N. J. A. Sloane, Jan 22 2001

Keywords

References

  • S. Ramanujan, Highly composite numbers, Proc. London Math. Soc., 14 (1915), 347-407. Reprinted in Collected Papers, Ed. G. H. Hardy et al., Cambridge 1927; Chelsea, NY, 1962, pp. 78-129. See esp. pp. 87, 115.

Crossrefs

A subsequence of A004394 (superabundant numbers).
Cf. A002093 (highly abundant numbers), A002182, A005101 (abundant numbers), A006038, A189228 (superabundant numbers that are not colossally abundant).

Formula

a(n) = Product_{k=1..n} A073751(k). - Jeppe Stig Nielsen, Nov 28 2021

A166735 Superabundant numbers (A004394) that are not highly composite (A002182).

Original entry on oeis.org

1163962800, 4658179125600, 13974537376800, 144403552893600, 433210658680800, 10685862914126400, 21371725828252800, 32057588742379200, 37400520199442400, 64115177484758400, 1533421328177138400
Offset: 1

Views

Author

T. D. Noe, Oct 20 2009

Keywords

Comments

Alaoglu and Erdos mention the first term in footnote 14.
Because the "shapes" of superabundant and highly composite numbers are different, there is a last superabundant number that is also highly composite. In factored form, that 154-digit number is N = A004394(1023) = A002182(2567) = 2^10 3^6 5^4 7^3 11^3 13^2 17^2 19^2 23^2 29 31 37...347. In other words, this sequence contains all superabundant numbers greater than N. - T. D. Noe, Oct 26 2009

Crossrefs

Cf. A166981 (intersection of SA and HC numbers). - T. D. Noe, Oct 26 2009
Cf. A189228 (SA numbers that are not CA).

Formula

a(574+i) = A004394(1023+i) for i>0.

A112974 Number of superabundant numbers between two consecutive colossally abundant numbers.

Original entry on oeis.org

1, 0, 3, 0, 2, 4, 0, 4, 6, 0, 2, 3, 6, 8, 6, 0, 10, 10, 5, 2, 11, 9, 10, 0, 9, 10, 12, 4, 13, 14, 15, 11, 6, 14, 0, 12, 2, 12, 11, 5, 10, 11, 12, 12, 12, 11, 11, 13, 13, 0, 15, 14, 3, 14, 16, 16, 8, 16, 17, 17, 19, 20, 16, 14, 7, 16, 2, 16, 14, 15, 3, 15, 15, 14, 18, 0, 16, 16, 16, 16, 16, 14
Offset: 1

Views

Author

T. D. Noe, Oct 07 2005

Keywords

Comments

The colossally abundant numbers are a subset of the superabundant abundant numbers. Is there a formula for a(n) that depends on the two consecutive colossally abundant numbers A004490(n) and A004490(n+1)?

Examples

			a(3)=3 because between colossally abundant numbers 12 and 60 there are three superabundant numbers: 24, 36 and 48.
		

Crossrefs

Cf. A004490 (colossally abundant numbers), A004394 (superabundant numbers), A189228 (superabundant numbers that are not colossally abundant).

A338786 Numbers in A166981 that are neither superior highly composite nor colossally abundant.

Original entry on oeis.org

1, 4, 24, 36, 48, 180, 240, 720, 840, 1260, 1680, 10080, 15120, 25200, 27720, 110880, 166320, 277200, 332640, 554400, 665280, 2162160, 3603600, 7207200, 8648640, 10810800, 36756720, 61261200, 73513440, 122522400, 147026880, 183783600, 698377680, 735134400, 1102701600
Offset: 1

Views

Author

Michael De Vlieger, Nov 09 2020

Keywords

Comments

These are numbers both highly composite and superabundant but neither superior highly composite nor colossally abundant.
This sequence, A224078, A304234, and A304235 are mutually exclusive subsets that comprise A166981.
Superset A166981 has 449 terms; this sequence has 358, A224078 has 20, A304234 has 39, and A304235 has 32.

Examples

			1 is in the sequence since it is the empty product, setting records for both the number of divisors and the sum of divisors, and it is neither also superior highly composite nor colossally abundant.
2 is not in the sequence since it is both colossally abundant and superior highly composite.
4 is in the sequence since it sets a record for the divisor counting and divisor sum functions, yet it is neither superior highly composite nor colossally abundant.
20951330400 is not in the sequence since it is colossally abundant though it is an HCN and SA. etc.
		

Crossrefs

Programs

  • Mathematica
    Complement[Import["https://oeis.org/A166981/b166981.txt", "Data"][[1 ;; 449, -1]], Union[FoldList[Times, Import["https://oeis.org/A073751/b073751.txt", "Data"][[1 ;; 120, -1]] ], FoldList[Times, Import["https://oeis.org/A000705/b000705.txt", "Data"][[1 ;; 120, -1]] ] ] ] (* Program reads OEIS b-files Michael De Vlieger, Nov 09 2020 *)

Formula

Complement of (the union of A002182 and A004394) and (the union of A002201 and A004490).

A333655 Highly composite numbers (A002182) that are not superior highly composite numbers (A002201).

Original entry on oeis.org

1, 4, 24, 36, 48, 180, 240, 720, 840, 1260, 1680, 7560, 10080, 15120, 20160, 25200, 27720, 45360, 50400, 83160, 110880, 166320, 221760, 277200, 332640, 498960, 554400, 665280, 1081080, 2162160, 2882880, 3603600, 6486480, 7207200, 8648640, 10810800, 14414400
Offset: 1

Views

Author

Iain Fox, Aug 23 2020

Keywords

Comments

For a number n to be in this sequence, it must have the following conditions be true, where d(n) represents the number of divisors of n (A000005): d(n) > d(k), for all k < n, and there does not exist a number e > 0 such that d(n)/n^e >= d(k)/k^e for k < n and d(n)/n^e > d(k)/k^e for k > n.
This sequence is the same as A189228 until n=12, for which a(12) = 7560 and A189228(12) = 10080.

Examples

			4 is in the sequence because it has three factors, more than any preceding number, making it highly composite, but it is not a superior highly composite number.
		

Crossrefs

Highly composite numbers: A002182.
Superior highly composite numbers: A002201.

Programs

  • PARI
    lista(nn)=my(v, w=[1,2,4], r=1, p=primes(primepi(2^log(nn)))); v=setminus(Set(vector(nn, i, prod(n=1, primepi(2^log(i)), p[n]^floor(1/(p[n]^(1/log(i))-1))))), [1]); forstep(x=6, v[#v], 6, if(numdiv(x)>r, r=numdiv(x); w=setunion(w, [x]))); setminus(w, v)

A340840 Union of the highly composite and superabundant numbers.

Original entry on oeis.org

1, 2, 4, 6, 12, 24, 36, 48, 60, 120, 180, 240, 360, 720, 840, 1260, 1680, 2520, 5040, 7560, 10080, 15120, 20160, 25200, 27720, 45360, 50400, 55440, 83160, 110880, 166320, 221760, 277200, 332640, 498960, 554400, 665280, 720720, 1081080, 1441440, 2162160, 2882880
Offset: 1

Views

Author

Michael De Vlieger, Jan 27 2021

Keywords

Comments

Numbers m that set records in A000005 and numbers k that set records for the ratio A000203(k)/k, sorted, with duplicates removed.
All terms are in A025487, since all terms in A002182 and A004394 are products of primorials P in A002110.
For numbers that are highly composite but not superabundant, see A308913; for numbers that are superabundant but not highly composite, see A166735. - Jon E. Schoenfield, Jun 14 2021

Crossrefs

Programs

  • Mathematica
    (* Load the function f[] at A025487, then: *) Block[{t = Union@ Flatten@ f[15], a = {}, b = {}, d = 0, s = 0}, Do[(If[#2 > d, d = #2; AppendTo[a, #1]]; If[#3/#1 > s, s = #3/#1; AppendTo[b, #1]]) & @@ Flatten@ {t[[i]], DivisorSigma[{0, 1}, t[[i]]]}, {i, Length@ t}]; Union[a, b]]
Showing 1-7 of 7 results.