## Task 1.5
pelldata <- data.frame(
  n = n,
  Fn = Fn,
  Pn = Pn,
  approx_sqrt2 = app,
  diff_from_sqrt2_5dp = dif,
  accuracy_dp = acc
)

head(pelldata, 10)
tail(pelldata, 10)