%I #9 Mar 19 2024 07:49:07
%S 1,2,7,3,0,4,1,6,1,3,6,8,7,3,7,0,6,1,4,1,9,0,5,6,5,0,5,5,3,2,1,8,3,5,
%T 6,2,1,3,7,9,5,1,1,3,0,4,5,2,7,7,1,0,9,7,9,2,1,9,0,0,2,4,5,3,0,9,0,9,
%U 5,8,5,6,8,0,5,8,5,7,9,3,5,4,5,8,6,6,9,7,2,2,4,3,4,7,1,8,0,2,3
%N Decimal expansion of Zeta(Zeta(4)).
%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 12.730416..
%t RealDigits[Zeta[Zeta[4]],10,120][[1]] (* _Harvey P. Dale_, Apr 02 2018 *)
%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. A013662.
%K easy,nonn,cons
%O 2,2
%A _Cino Hilliard_, Sep 30 2005