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.

A306348 Numbers k such that exp(H_k)*log(H_k) <= sigma(k), where H_k is the harmonic number.

Original entry on oeis.org

1, 2, 3, 4, 6, 12, 24, 60
Offset: 1

Views

Author

Seiichi Manyama, Feb 09 2019

Keywords

Comments

If the Riemann hypothesis is true, there are no more terms.

Examples

			Let b(n) = exp(H_{a(n)})*log(H_{a(n)}).
n | a(n) |    b(n)    | sigma(a(n))
--+------+------------+-------------
1 |   1  |   0        |      1
2 |   2  |   1.817... |      3
3 |   3  |   3.791... |      4
4 |   4  |   5.894... |      7
5 |   6  |  10.384... |     12
6 |  12  |  25.218... |     28
7 |  24  |  57.981... |     60
8 |  60  | 166.296... |    168
		

Crossrefs

Programs

  • Mathematica
    For[k = 1, True, k++, If[Exp[HarmonicNumber[k]] Log[HarmonicNumber[k]] <= DivisorSigma[1, k], Print[k]]] (* Jean-François Alcover, Feb 14 2019 *)