0,1

Table of n, a(n) for n=0..85.

u = 0.4158555967898679887880048019...

u = u /. FindRoot[0 == (-Pi/4) Sec[u] + u Sec[u] + Sin[u], {u, 0}, WorkingPrecision -> 150]

RealDigits[u][[1]]

Cf. A332500, A332507.

Sequence in context: A242131 A177266 A272534 * A173386 A011443 A016687

Adjacent sequences: A332519 A332520 A332521 * A332523 A332524 A332525

nonn,cons

Clark Kimberling, May 05 2020

approved