This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A211385 #10 Feb 16 2025 08:33:17
%S A211385 2,3,4,5,6,8,10,12,18,30
%N A211385 Values of n for which product_{p|n, p prime} 1 + 1/p > e^gamma*log(log(n)).
%C A211385 30 is the last term:
%C A211385 - if and only if the Riemann hypothesis is true
%C A211385 - for which sigma(n) > tau(n)*phi(n)
%C A211385 - which appears in A060735
%H A211385 Eric W. Weisstein, <a href="https://mathworld.wolfram.com/RiemannHypothesis.html">MathWorld: Riemann Hypothesis</a>
%t A211385 lst = {}; Do[If[Times @@ (1 + 1/Transpose[FactorInteger[n]][[1]]) > E^EulerGamma*Log@Log[n], AppendTo[lst, n]], {n, 2, 30}]; lst
%Y A211385 Cf. A001615, A060735, A064374, A067698.
%K A211385 nonn
%O A211385 1,1
%A A211385 _Arkadiusz Wesolowski_, Feb 07 2013