"Use the method based on comparison of the deviance and the number of degrees of freedom shown in the output of generalized linear model for Poisson regression. Calculate approximate confidence interval centered at the theoretical mean value of the deviance statistic and check if observed deviance belongs to it."

If I am to solve this manually in R, what equation do I use?

confint() does not give the correct solution.