|
%I #6 Sep 22 2021 18:56:51
%S 1,0,0,6,0,3,1,7,5,0,0,2,1,7,0,1,6,9,8,1,5,8,8,4,7,8,4,8,3,1,8,7,7,2,
%T 5,2,0,0,5,5,0,1,4,8,9,9,4,0,0,9,0,3,0,7,3,2,6,2,0,3,1,4,6,2,8,9,0,2,
%U 6,3,5,1,0,1,3,6,6,9,7,3,8,9,0,7,9,6,6,5,6,3,4,5,4,7,4,2,1,1,8
%N Decimal expansion of Zeta(Zeta(10)).
%F Zeta(s) = Sum(1/n^s, n=1, 2, ..inf).
%t RealDigits[Zeta[Zeta[10]],10,120][[1]] (* _Harvey P. Dale_, Sep 22 2021 *)
%o (PARI) zeta2(v,n) = \ v = value, n=number of places { local(y,x,l,z1); z1=zeta(v); l=length(Str(floor(z1))); \ length of the integer part y=Vec(Str(z1)); for(x=1,l, \ to the left of decimal point print1(y[x]","); ); for(x=l+2,n,print1(y[x]",") \ to the right of the decimal point ) }
%K easy,nonn,cons
%O 1,4
%A _Cino Hilliard_, Sep 30 2005
|
