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
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
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Feb 07 2013
STATUS
approved