For $r = \sqrt[3]{n} = \sqrt[3]{\alpha^3 + \beta}$, where $\beta$ is chosen to be close to zero, the idea is for initial guess $r_1 = \alpha$,
$$
n^3 = (\alpha + \epsilon)^3 = \alpha^3 + \underbrace{3\alpha^2\epsilon + 3\alpha\epsilon^2 + \epsilon^3}_\beta
$$
Newton's Method (one step): Using just first-order $\epsilon$ term, ignoring $\epsilon^2$ and $\epsilon^3$ terms, we get $\beta \approx 3 \alpha^2 \epsilon$, that is $\epsilon \approx \beta / (3\alpha^2)$, so the approximation is
$$
r_2 = \alpha + \epsilon = \alpha + \frac{\beta}{3 \alpha^2}
$$
Halley's method (one step, in njuffa's answer): Using the second order $\epsilon$ and $\epsilon^2$ terms, ignoring just the $\epsilon^3$ term, we get $\beta \approx 3 \alpha^2 \epsilon + 3 \alpha\epsilon^2$, so
$$
\epsilon \approx \frac{\beta}{3\alpha^2 + 3 \alpha \epsilon}
$$
This is a recursive formula, but approximating the denominator $\epsilon$ with our previous $\epsilon \approx \beta / (3\alpha^2)$, the root approximation is
$$
r_3 = \alpha + \frac{\beta}{3\alpha^2 + \beta / \alpha} = \alpha + \frac{\alpha\beta}{3 \alpha^3 + \beta} = \alpha + \frac{\alpha\beta}{3n - 2\beta}
$$
These also appear in General Method for Extracting Roots using (Folded) Continued Fractions by Manny Sardina which gives some continued fraction (rational) approximations for integer cube roots (Section 2.6).
For your example $y=200$ (with $\sqrt[3]{200} \approx 5.8480$), the approximations for $\alpha = 6, \beta = -16$ are
\begin{align}
r_1 &= 6 \\
r_2 &= 6 - \frac{16}{3 \times 6^2} = \frac{158}{27} = 5.851851 \dots \tag{1 decimal digit}\\
r_3 &= 6 + \frac{6 \times -16}{3 \times 200 + 2 \times 16} = \frac{462}{79} = 5.84810\dots \tag{3 decimal digits}\\
\end{align}
Just for fun, here are the errors of $r_2$ and $r_3$ for $1 \le x \le 1000$, simply taking $\alpha = \operatorname{round}(r)$:
library(tidyverse)
cbrt_err <- function(x) {
r <- x^(1/3)
alpha <- round(r)
beta <- x - alpha^3
r1 <- alpha
r2 <- alpha + beta / (3 * alpha^2)
r3 <- alpha + (alpha*beta) / (3*x - 2*beta)
list(r-r1, r-r2, r-r3)
}
ggplot() +
xlim(1, 1000) +
geom_function(aes(color = "r2 err"), fun = ~ cbrt_err(.)[[2]], n=10000) +
geom_function(aes(color = "r3 err"), fun = ~ cbrt_err(.)[[3]], n=10000) +
labs(y = "error") +
theme_bw()
![approx errors](https://cdn.statically.io/img/i.sstatic.net/MkOul.png)