OFFSET
1,1
EXAMPLE
3.17926687388521243903268667719706019015292978153968229...
MATHEMATICA
s = Sum[(2^k + 1)/(3^k + 1), {k, 0, 1000}];
d = N[s, 100]
First[RealDigits[d]]
RealDigits[Total[Table[(2^k+1)/(3^k+1), {k, 0, 1000}]], 10, 100][[1]] (* Harvey P. Dale, Sep 24 2024 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Jun 12 2024
STATUS
approved