A061463 Numerator of 1 + 1/(2^2) + 1/(3^3) + ... 1/(n^n).
0, 1, 5, 139, 8923, 27891287, 753077249, 620192080073207, 40644910035811590827, 21600371677519118879091707, 67501161497474683459322666743, 19258869155079686765079369534624940189973
Offset: 0
Examples
1, 5/4, 139/108, 8923/6912,...
Crossrefs
Cf. A061464.
Programs
-
Maple
summ := 0; for n from 1 to 15 do printf("%d ", numer(summ)); if (1 = 1) then summ := summ + 1/n^n: end if; od;
-
Mathematica
Join[{0},Accumulate[Table[1/n^n,{n,15}]]]//Numerator (* Harvey P. Dale, Jul 26 2018 *)
Extensions
More terms from Winston C. Yang (winston(AT)cs.wisc.edu), May 19 2001