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,2

Links

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

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 *)

Prog

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

Crossrefs

Cf. A073009.

Sequence in context: A204998 A019919 A213277 * A106230 A205126 A016623

Adjacent sequences: A135605 A135606 A135607 * A135609 A135610 A135611

Keyword

easy,nonn,cons

Author

Paolo P. Lava and Giorgio Balzarotti, Feb 27 2008

Extensions

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

Status

approved