OFFSET
1,2
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
EXAMPLE
1.2781851590909461795403909483...
MAPLE
Digits := 120 : 3*(gamma+Psi(I/sqrt(2))); evalf(Re(%)) ;
MATHEMATICA
RealDigits[ 3/2*(2*EulerGamma + Re[PolyGamma[0, 1 - I/Sqrt[2]] + PolyGamma[0, 1 + I/Sqrt[2]]]), 10, 105] // First (* Jean-François Alcover, Feb 11 2013 *)
PROG
(PARI) 3*Euler+3*real(psi(I/sqrt(2))) \\ Charles R Greathouse IV, Jul 19 2013
(PARI) sumnumrat(3/n/(2*n^2 + 1), 1) \\ Charles R Greathouse IV, Feb 08 2023
CROSSREFS
KEYWORD
AUTHOR
R. J. Mathar, Jul 15 2010
STATUS
approved