|
%I #17 Dec 27 2022 16:53:44
%S 1,0,6,2,5,5,0,8,0,5,4,9,6,2,5,5,9,3,7,8,6,9,4,4,5,9,3,8,7,9,3,3,7,5,
%T 8,6,3,2,8,5,4,8,4,1,5,7,3,3,8,6,2,6,3,2,0,1,0,7,8,1,0,8,5,9,1,6,5,7,
%U 6,1,1,6,4,9,0,1,4,4,8,1,7,6,8,6,3,2,1,4,9,6,3,9,6,1,6,3,1,3,1,8,8,3,7,6,4
%N Decimal expansion of Sum_{k >= 1} k^(-k^2).
%H G. C. Greubel, <a href="/A258102/b258102.txt">Table of n, a(n) for n = 1..1000</a>
%H MathOverflow, <a href="http://mathoverflow.net/questions/206034">What is a "generalized zeta function"?</a>
%e 1.06255080549625593786944593879337586328548415733862632010781...
%p evalf(Sum(k^(-k^2), k=1..infinity), 120); # _Vaclav Kotesovec_, May 21 2015
%t NSum[k^(-k^2), {k, 1, Infinity}, WorkingPrecision -> 105] // RealDigits // First
%o (PARI) default(realprecision,120); sumpos(k=1, k^(-k^2)) \\ _Vaclav Kotesovec_, May 21 2015
%Y Cf. A073009.
%K nonn,cons,easy
%O 1,3
%A _Jean-François Alcover_, May 20 2015
|
