Here is the plot of a function $f(x)$ such that: $$ f(x) = \frac {P_ {\lfloor 2 x \rfloor}} {P_ {\lfloor 2 x \rfloor - 1}} $$ where $P_k$ is the $k^{\mathrm{th}}$ Prime Number for x in range [1,300].

The curves are in the form $1 + \frac {1} {a x^b}$, with $a,b\in\mathbb {R}$ and where I chose arbitrarily $a$ and $b$, $b\simeq 1.22$ in the image above.
Personally, I was very surprised whith what seems very regular shapes occurring again and again along the curves.
Can someone explain this?
I deleted the first post about this, because it seems more like a Mathematica bug than something else, but I cannot find what's wrong. Here is the Mathematica code:
Block[{x},
Module[{ a, b, c, xa, xb, plotall, plots0, plots1},
a = Prime[Floor[2*x - 1]];
b = Prime[Floor[2*x]];
xa = 1; xb = 300; c = 1.22;
plots0 = { b/a};
plots1 = {1 + 1/2.21/x^c, 1 + 1/1.1/x^c, 1 + 1/0.725/x^c,
1 + 1/0.435/x^c, 1 + 1/0.31/x^c, 1 + 1/0.195/x^c,
1 + 1/0.126/x^c };
plotall = Join @@ {plots0, plots1};
Panel@Plot[ Tooltip@plotall, {x, xa, xb} , AxesLabel -> {x, y}]
]
]
As also suggested, here is the plot of: $$ f (x) = \frac {P_ {\lfloor x \rfloor}} {P_ {\lfloor x \rfloor - 1}} $$

and the interactive Mathematica code:
Block[{x},
Manipulate[
Module[{a, b, xa, xb, plotall, plots0, plots1},
a = Prime[Floor[x] - 1];
b = Prime[Floor[x]];
xa = 2; xb = 300;
plots0 = { b/a};
plots1 = { 1 + 1/r1/x^c1 };
plotall = Join @@ {plots0, plots1};
Plot[ Tooltip@plotall, {x, xa, xb} , AxesLabel -> {x, y}]
]
, Style["Global Options", Bold, "Panel"]
, {{r1, 0.83}, 0, 3, Appearance -> "Open"}
, {{c1, 1.25}, 0, 5, Appearance -> "Open"}
]
]
Since Julian Aguirre's answer, I just wanted to add the following graph, where the curves are in the form $1+ \frac {7} {4}.\frac {n} {x\text { Log} (x)}$ for $n$ integer in range[1,10]...

