%I #9 Feb 09 2013 07:36:16

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

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

%C 30 is the last term:

%C - if and only if the Riemann hypothesis is true

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

%C - which appears in A060735

%H Eric W. Weisstein, <a href="http://mathworld.wolfram.com/RiemannHypothesis.html">MathWorld: Riemann Hypothesis</a>

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

%Y Cf. A001615, A060735, A064374, A067698.

%K nonn

%O 1,1

%A _Arkadiusz Wesolowski_, Feb 07 2013