|
%I #16 May 22 2019 08:47:05
%S 1,9,4,5,4,7,4,4,4,8,0,3,0,2,3,6,5,8,9,4,7,8,0,3,7,0,2,6,9,1,3,0,0,9,
%T 7,9,2,4,8,1,6,8,1,4,0,2,6,0,6,1,3,4,1,6,6,6,8,2,3,5,4,4,1,7,6,9,0,9,
%U 7,2,5,8,5,0,7,0,4,4,5,5,4,2,1,0,0,4,1,7
%N A continued fraction transformation of Euler-Mascheroni constant.
%C This number has the continued fraction which is the decimal expansion of Euler-Mascheroni constant.
%e Equals 0.1945474448030236589478037026913009...
%p with(numtheory): P:=proc(q) local a,b,n: a:=evalf(gamma,q): b:=[]:
%p while a>0 do b:=[op(b),trunc(a)]: a:=evalf(10*(a-trunc(a)),q): od:
%p a:=b[nops(b)]: for n from nops(b)-1 by -1 to 1 do a:=1/a+b[n]:
%p od: print(evalf(a,q)); end: P(200):
%Y Cf. A001620, A094964, A094965.
%K base,nonn,cons,easy
%O 0,2
%A _Paolo P. Lava_, May 16 2019
|
