22 Mar
2019
22 Mar
'19
1:27 a.m.
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