NeAB=Tabler,-2NSum
1
12
(2+2n-Sqrt[2(5+2n(2+n)+4Cosh[2r]+Cosh[4r])])
4
Sech[r]
2n
Tanh[r]
,{n,0,∞},{r,1/100,301/100,1/10};​​​​​​ListLinePlot[NeAB,DataRange{1/100,301/100},FrameLabel{Style["r",15,Black],Style["result",15,Black]},FrameTrue,RotateLabelTrue]