A211385 Values of n for which product_{p|n, p prime} 1 + 1/p > e^gamma*log(log(n)).

2, 3, 4, 5, 6, 8, 10, 12, 18, 30

Offset: 1

Author

Arkadiusz Wesolowski, Feb 07 2013

Keywords

• nonn

Comments

30 is the last term:

- if and only if the Riemann hypothesis is true

- for which sigma(n) > tau(n)*phi(n)

- which appears in A060735

Links

• Eric W. Weisstein, MathWorld: Riemann Hypothesis

Crossrefs

Cf. A001615, A060735, A064374, A067698.

Programs

Mathematica

lst = {}; Do[If[Times @@ (1 + 1/Transpose[FactorInteger[n]][[1]]) > E^EulerGamma*Log@Log[n], AppendTo[lst, n]], {n, 2, 30}]; lst