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,1

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

Table of n, a(n) for n=1..10.

Eric W. Weisstein, MathWorld: Riemann Hypothesis

Mathematica

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

Crossrefs

Cf. A001615, A060735, A064374, A067698.

Sequence in context: A158292 A141341 A238110 * A116910 A141283 A276828

Adjacent sequences: A211382 A211383 A211384 * A211386 A211387 A211388

Keyword

nonn

Author

Arkadiusz Wesolowski, Feb 07 2013

Status

approved