0,1

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

u = 0.763926663317091041161960918884092435074956...

x = x /.FindRoot[1/2 x Sqrt[1 + 4 x^2] + 1/4 ArcSinh[2 x] == 1, {x, 0}, WorkingPrecision -> 200]

RealDigits[x][[1]]

Cf. A333202.

Sequence in context: A013675 A198878 A332982 * A187799 A288935 A132714

Adjacent sequences: A335993 A335994 A335995 * A335997 A335998 A335999

nonn,cons

Clark Kimberling, Jul 04 2020

approved