login
A135608
Decimal expansion of Sum_{n>=2} 1/n^(n+1).
3
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
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
KEYWORD
easy,nonn,cons
AUTHOR
EXTENSIONS
Lower summation index in definition corrected by R. J. Mathar, Jan 26 2009
STATUS
approved