0,1

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

u = 0.5530300788531359553083686485...

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

RealDigits[u][[1]]

Cf. A332500, A332521.

Sequence in context: A287746 A128006 A157703 * A242617 A158349 A320478

Adjacent sequences: A332504 A332505 A332506 * A332508 A332509 A332510

nonn,cons

Clark Kimberling, May 05 2020

approved