login
Numerator of 1 + 1/(2^2) + 1/(3^3) + ... 1/(n^n).
2

%I #4 Jul 26 2018 18:55:31

%S 0,1,5,139,8923,27891287,753077249,620192080073207,

%T 40644910035811590827,21600371677519118879091707,

%U 67501161497474683459322666743,19258869155079686765079369534624940189973

%N Numerator of 1 + 1/(2^2) + 1/(3^3) + ... 1/(n^n).

%e 1, 5/4, 139/108, 8923/6912,...

%p 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;

%t Join[{0},Accumulate[Table[1/n^n,{n,15}]]]//Numerator (* _Harvey P. Dale_, Jul 26 2018 *)

%Y Cf. A061464.

%K nonn,frac,easy

%O 0,3

%A _Amarnath Murthy_, May 04 2001

%E More terms from Winston C. Yang (winston(AT)cs.wisc.edu), May 19 2001