OFFSET
0,1
EXAMPLE
0.736789911413448643988374575444321693365546569110...
MAPLE
Digits:=100: Int(-s*Zeta(1 - s), s=0..1): evalf(%*10^90):
ListTools:-Reverse(convert(floor(%), base, 10));
MATHEMATICA
ndig = 100; RealDigits[N[-Integrate[x*Zeta[1 - x], {x, 0, 1}], ndig + 1], 10, ndig][[1]] (* Amiram Eldar, Jul 15 2021 *)
PROG
(PARI) intnum(x=0, 1, -x*zeta(1-x)) \\ Michel Marcus, Jul 15 2021
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Peter Luschny, Jul 15 2021
STATUS
approved