cp's OEIS Frontend

A332328 Decimal expansion of the least positive zero of the 8th Maclaurin polynomial of cos x.

%I A332328 #8 Feb 12 2020 19:47:02
%S A332328 1,5,7,0,8,2,1,0,6,7,9,5,3,3,9,0,7,2,9,1,7,2,8,2,1,1,5,3,1,4,9,2,4,9,
%T A332328 5,5,3,1,6,1,6,6,5,8,4,3,6,0,0,3,5,7,8,5,6,5,3,7,7,3,2,5,2,7,2,0,4,0,
%U A332328 5,0,3,7,0,5,0,3,8,6,3,5,8,3,0,4,4,4
%N A332328 Decimal expansion of the least positive zero of the 8th Maclaurin polynomial of cos x.
%C A332328 The Maclaurin polynomial p(2n,x) of cos x is 1 - x^2/2! + x^4/4! + ... + (-1)^n x^(2n)/(2n)!.
%C A332328 Let z(n) be the least positive zero of p(2n,x).  The limit of z(n) is Pi/2 = 1.570796326..., as in A019669.
%e A332328 Least positive zero = 1.5708210679533907291728211531492495531616658...
%t A332328 z = 150; p[n_, x_] := Normal[Series[Cos[x], {x, 0, n}]]
%t A332328 t = x /. NSolve[p[8, x] == 0, x, z][[5]]
%t A332328 u = RealDigits[t][[1]]
%t A332328 Plot[Evaluate[p[8, x]], {x, -1, 2}]
%Y A332328 Cf. A019669, A332326.
%K A332328 nonn,cons,easy
%O A332328 1,2
%A A332328 _Clark Kimberling_, Feb 11 2020