OFFSET
0,1
FORMULA
See Mathematica program. - Joerg Arndt, Sep 09 2013
EXAMPLE
0.66157019207358511204457389...
MAPLE
c:= Sum( (-1)^k/(1+binomial(k+1, 2)), k=0..infinity):
Re(evalf(c, 120)); # Alois P. Heinz, Sep 09 2013
MATHEMATICA
N[((-2 I) (LerchPhi[-1, 1, 1/2 - (I/2) Sqrt[7]] - LerchPhi[-1, 1, 1/2 + (I/2) Sqrt[7]]))/Sqrt[7], 99] (* Joerg Arndt, Sep 09 2013 *)
-(2*Im[PolyGamma[(1-I*Sqrt[7])/4] - PolyGamma[(3-I*Sqrt[7])/4]])/Sqrt[7] // RealDigits[#, 10, 100]& // First (* Jean-François Alcover, Sep 10 2013 *)
PROG
(PARI) default(realprecision, 133); sumalt(k=1, 1/(1+k*(k-1)/2)*(-1)^(k+1))
(PARI) -(2*imag(psi((1-I*sqrt(7))/4)-psi((3-I*sqrt(7))/4)))/sqrt(7) \\ sumalt is faster; Charles R Greathouse IV, Sep 10 2013
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Didier Guillet, Sep 08 2013
EXTENSIONS
More terms from Joerg Arndt, Sep 09 2013
STATUS
approved