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
KEYWORD
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