0,1

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

u = 0.5530300788531359553083686485...

u = u /. FindRoot[0 == - 2 Sec[u] + u Sec[u] + Sin[u], {u, 0}, WorkingPrecision -> 150]

RealDigits[u][[1]]

Cf. A332500, A332507.

Sequence in context: A050170 A087089 A197382 * A246363 A319268 A277272

Adjacent sequences: A332518 A332519 A332520 * A332522 A332523 A332524

nonn,cons

Clark Kimberling, May 05 2020

approved