OFFSET
1,1
EXAMPLE
2.16249326597070366937751944159918604837132718186280262...
MATHEMATICA
s = Sum[(2^k + 1)/(4^k + 1), {k, 0, 1000}];
d = N[s, 100]
First[RealDigits[d]] (* valid for first 200 digits; for more, change 1000 to 2000, etc. *)
(* or *)
RealDigits[Chop[N[-1 + (Log[3] - Pi + QPolyGamma[0, -I*Pi/Log[4], 1/4] + I*QPolyGamma[0, -I*Pi/Log[4], 2] - I*QPolyGamma[0, I*Pi/Log[4], 2])/Log[4], 120]], 10, 110][[1]] (* Vaclav Kotesovec, Jun 13 2024 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Jun 12 2024
STATUS
approved