A332420 Number of Maclaurin polynomials p(2m-1,x) of sin(x) having exactly n positive zeros.

3, 4, 5, 4, 4, 4, 4, 5, 4, 4, 5, 4, 4, 4, 4, 5, 4, 4, 5, 4, 4, 4, 4, 5, 4, 4, 5, 4, 4, 4, 4, 5, 4, 4, 5, 4, 4, 5, 4, 4, 4, 4, 5, 4, 4, 5, 4, 4, 4, 4, 5, 4, 4, 5, 4, 4, 5, 4, 4, 4, 4, 5, 4, 4, 5, 4, 4, 5, 4, 4, 4, 4, 5, 4, 4, 5, 4, 4, 4, 4, 5, 4, 4, 5, 4, 4, 5, 4

Offset: 1

Author

Clark Kimberling, Feb 13 2020

Keywords

• nonn

Comments

Maclaurin polynomial p(2m-1,x) of sin(x) is x - x^3/3! + x^5/5! - ... - (-1)^m*x^(2m-1)/(2m-1)!.

Examples

			a(1) counts these values of 2m-1: 3, 5, and 11. The single zeros of p(3,x), p(5,x), and p(11,x) are sqrt(6), 3.078642..., and 3.141148..., respectively.
		

Crossrefs

Cf. A012265, A332325.

Programs

Mathematica

z = 60; p[n_, x_] := Normal[Series[Sin[x], {x, 0, n}]];
t[n_] := x /. NSolve[p[n, x] == 0, x, z];
u[n_] := Select[t[n], Im[#] == 0 && # > 0 &];
v = Table[Length[u[n]], {n, 2, 100, 2}]
Table[Count[v, n], {n, 1, 10}]

Extensions

More terms from Jinyuan Wang, Jan 21 2025