OFFSET
1,1
COMMENTS
(a(n)/(b(n)) is a strictly increasing sequence that converges to 3.
EXAMPLE
5/2 < 13/5 < 19/7 < 31/11 < 37/13 < 67/23 < 109/37 < 127/43 < 139/47 < ...
MATHEMATICA
a = {{4, 4}}; r = 3; Do[If[# < Last[a][[2]], AppendTo[a, {n, #}]] &[
NextPrime[Prime[PrimePi[Prime[n]*r]]]/Prime[n]], {n, 1300}];
Numerator[Rest[Map[#[[2]] &, a]]] (* A370161 *)
Denominator[Rest[Map[#[[2]] &, a]]] (* A370162 *)
(* Peter J. C. Moses, Feb 6 2024 *)
CROSSREFS
KEYWORD
nonn,frac,new
AUTHOR
Clark Kimberling, Feb 16 2024
STATUS
editing