|
%I #28 Nov 20 2020 21:29:48
%S 1,1,3,1,3,3,8,2,9,6,6,0,0,6,2,6,3,7,1,5,0,8,8,5,2,7,8,6,9,2,8,3,4,9,
%T 5,1,3,0,6,8,1,0,6,9,5,0,9,0,2,5,8,3,9,8,8,2,1,7,1,9,5,2,5,6,0,2,7,0,
%U 9,8,6,8,8,3,0,9,2,6,5,6,8,7,9,6,0,2,9,1,8,3,6,8,6,8,9,5,5,5,8,2,5,7,5,7,7
%N Decimal expansion of Sum_{n>=1} 1/(n!*n^n).
%F Equals Sum_{n>=1} 1/A061711(n).
%e 1.13133829660062637150885278692834951306810695090...
%p evalf(sum(1/(n!*n^n), n=1..infinity), 106); # _Alois P. Heinz_, Nov 20 2020
%t RealDigits[N[Sum[1/(n!*n^n), {n, 1, Infinity}], 800]]
%o (PARI) suminf(n=1, 1/(n!*n^n)) \\ _Michel Marcus_, Aug 20 2020
%Y Cf. A061711, A073009, A094082.
%K nonn,cons
%O 1,3
%A _Mario Cortés_, Aug 03 2020
%E Missing first digit inserted by _Alois P. Heinz_, Nov 20 2020
|
