login
A211385
Values of n for which product_{p|n, p prime} 1 + 1/p > e^gamma*log(log(n)).
0
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
MATHEMATICA
lst = {}; Do[If[Times @@ (1 + 1/Transpose[FactorInteger[n]][[1]]) > E^EulerGamma*Log@Log[n], AppendTo[lst, n]], {n, 2, 30}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved