|
%I #12 Mar 24 2021 08:07:33
%S 1,2,6,9,0,0,9,6,0,4,3,3,5,7,1,7,1,1,5,7,6,5,5,6,9,8,6,6,6,0,0,8,6,1,
%T 1,0,8,8,5,6,4,0,4,4,6,2,5,7,7,1,9,0,4,8,8,3,3,5,8,1,5,9,2,8,7,0,8,1,
%U 6,5,2,4,2,9,4,8,2,7,3,0,7,6,5,0,8,4,9,4,5,1,7,4,5,0,7,6,0,5,4
%N Decimal expansion of zeta(e).
%F Equals Sum_{k>=1} 1/k^e, where e = A001113.
%e 1.26900960433571711576556986660086110885640446257719...
%t RealDigits[Zeta[E], 10, 100][[1]] (* _Amiram Eldar_, Mar 24 2021 *)
%o (PARI) zeta2(v,n) = { local(y,x); y=Vec(Str(zeta(v))); print1(1", "); for(x=3,n,print1(y[x]", ")) } \\ v = argument, n=number of places
%Y Cf. A001113.
%K easy,nonn,cons
%O 1,2
%A _Cino Hilliard_, Sep 30 2005
|
