Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #6 Jan 14 2021 17:46:34
%S 2,2,3,8,3,3,4,3,4,3,9,1,2,4,2,5,1,4,9,0,6,9,8,7,3,6,5,1,9,3,9,9,4,4,
%T 0,8,2,0,0,1,9,3,7,8,6,4,2,9,5,1,7,3,5,8,5,4,0,0,8,3,9,7,7,6,9,9,8,7,
%U 1,7,4,2,2,2,6,2,1,6,7,9,9,5,8,0,7,4,3,4,1,8,0,2,9,6,4,6,4,1,8
%N Decimal expansion of Zeta(Phi).
%F Zeta(s) = Sum(1/n^s, n=1, 2, ..inf). Phi = Golden ratio = (sqrt(5)+1)/2 ~ 1.618033989..
%t RealDigits[Zeta[GoldenRatio],10,120][[1]] (* _Harvey P. Dale_, Jan 14 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,1
%A _Cino Hilliard_, Sep 30 2005