A110993 - OEIS

%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