A135608 Decimal expansion of Sum_{n>=2} 1/n^(n+1).

1, 3, 8, 3, 8, 9, 9, 9, 4, 9, 7, 1, 6, 6, 1, 8, 6, 0, 9, 7, 4, 9, 5, 8, 4, 5, 9, 0, 0, 9, 2, 4, 1, 9, 0, 2, 9, 7, 7, 9, 2, 8, 4, 0, 1, 5, 3, 6, 6, 0, 0, 0, 8, 2, 5, 8, 2, 2, 8, 2, 1, 4, 5, 2, 8, 5, 3, 3, 8, 2, 1, 1, 7, 1, 4, 8, 4, 0, 9, 6, 5, 6, 2, 3, 6, 0, 7, 7, 6, 0, 4, 2, 8, 3, 1, 8, 7, 2, 7, 7

Offset: 0

Author

Paolo P. Lava and Giorgio Balzarotti, Feb 27 2008

Keywords

• easy
• nonn
• cons

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A073009.

Programs

Maple

P:=proc(n) local a,i; a:=0; for i from 1 by 1 to n do a:=a+i^(-i-1); print(evalf(a-1,101)); od; end: P(100);

Mathematica

digits = 100; NSum[1/(n^(n+1)), {n, 2, Infinity}, NSumTerms -> 100, WorkingPrecision -> digits+5] // RealDigits[#, 10, digits]& // First (* Jean-François Alcover, Feb 18 2014 *)

PARI

suminf(n=2, 1/n^(n+1)) \\ Michel Marcus, Oct 23 2016

Extensions

Lower summation index in definition corrected by R. J. Mathar, Jan 26 2009