login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A158469 Continued fraction for hz = limit_{k -> infinity} 1 + k - Sum_{j = -k..k} exp(-2^j). 2

%I

%S 1,3,189,3,2,2,1,5,4,1,1,3,1,1,1,5,8,12,1,22,7,14,1,2,1,5,1,4,222,1,1,

%T 2,3,24,6,27,1,15,1,9,1,1,18,6,24,2,1,7,1,4,2,2,1,1,84,1,1,1,3,1,1,1,

%U 1,1,5,15,3,13,3,2,14,1,1,1,10,15,10,1,6,120,1,31,2,4,2,7,2,2,1,1,1,1,1,3,7

%N Continued fraction for hz = limit_{k -> infinity} 1 + k - Sum_{j = -k..k} exp(-2^j).

%e 1.33274738243289922500860109837389970441674398225984453657972 ...

%p with(numtheory): hz:= limit(1+k -sum(exp(-2^j), j=-k..k), k=infinity): cfrac(evalf(hz, 130), 100, 'quotients')[];

%t terms = 95; digits = terms+15; Clear[f]; f[k_] := f[k] = 1+k-Sum[Exp[-2^j], {j, -k, k}] // RealDigits[#, 10, digits+1]& // First // Quiet; f[1]; f[n = 2]; While[f[n] != f[n-1], n++]; hz = FromDigits[f[n]]*10^-digits; ContinuedFraction[hz, terms] (* _Jean-Fran├žois Alcover_, Mar 23 2017 *)

%Y Cf. A158468 (decimal expansion), A159835 (Engel expansion).

%K cofr,nonn

%O 1,2

%A _Alois P. Heinz_, Mar 19 2009

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 27 21:49 EST 2023. Contains 359849 sequences. (Running on oeis4.)