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