On 2019-03-21 21:05, Dan Asimov wrote:

I haven't been able to access the link provided, so would appreciate seeing the function definition in ascii.

Thanks,

Dan It might be worth a few more retries.

Sqrt[(1/2)*Log[2]*Sinh[(2*Pi^2)/Log[2]]]* (Sum[x^2^(-n) + x^2^n - 1, {n, 0, Infinity}] - x + Log[-Log[x]]/ Log[2] + 1/2 + EulerGamma/Log[2]) Plot[%, {x, .001, .999}, Exclusions -> None] // tim Contrary to my blatherings, it bunches fully at x=1 but not x=0. —rwg