%I #10 Mar 19 2024 07:49:49
%S 5,8,2,3,8,4,2,2,0,4,6,5,7,0,7,3,9,9,8,3,1,1,8,0,8,8,2,3,2,0,2,6,7,4,
%T 7,8,3,3,0,7,4,5,5,4,2,0,7,7,7,6,6,7,3,5,6,3,0,7,4,5,6,0,0,1,2,7,2,1,
%U 6,0,0,4,4,0,4,9,7,3,0,7,4,6,2,7,4,0,8,0,5,5,1,7,7,5,5,0,0,3,8
%N Decimal expansion of Zeta(Zeta(6)).
%H <a href="/wiki/Index_to_constants#Start_of_section_Z">Index entries for constants related to Zeta</a>
%F Zeta(s) = Sum(1/n^s, n=1, 2, ..inf).
%e 58.23842...
%t RealDigits[ Zeta[ Zeta[6] ], 10, 99] // First (* _Jean-François Alcover_, Feb 15 2013 *)
%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 ) }
%Y Cf. A013664.
%K easy,nonn,cons
%O 2,1
%A _Cino Hilliard_, Sep 30 2005