OFFSET
1,2
EXAMPLE
1.2802016832895660106129188375799642131486184249158504289221305
MATHEMATICA
g[n_]:=Sum[1/(k^2+n), {k, Infinity}]; x/.FindRoot[g[x]==1, {x, 1}, AccuracyGoal->2000, WorkingPrecision-> 2340, MaxIterations->1000]//RealDigits//First
FindRoot[Pi*Sqrt[x]*Coth[Pi*Sqrt[x]] == 2*x+1, {x, 1}, WorkingPrecision->120] (* Vaclav Kotesovec, Jun 28 2015 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
José María Grau Ribas, Jun 19 2015
STATUS
approved