A317413 Continued fraction for binary expansion of Liouville's number interpreted in base 2 (A092874).
0, 1, 3, 3, 1, 2, 1, 4095, 3, 1, 3, 3, 1, 4722366482869645213695, 4, 3, 1, 3, 4095, 1, 2, 1, 3, 3, 1
Offset: 0
Examples
0.76562505... = 0+1/(1+1/(3+1/(3+1/(1+1/(2+...))))). - _R. J. Mathar_, Jun 19 2021
Links
- A.H.M. Smeets, Table of n, a(n) for n = 0..48
Programs
-
Maple
with(numtheory): cfrac(add(1/2^factorial(n),n=1..7),24,'quotients'); # Muniru A Asiru, Aug 11 2018
-
Mathematica
ContinuedFraction[ FromDigits[ RealDigits[ Sum[1/10^n!, {n, 8}], 10, 10000], 2], 60] (* Robert G. Wilson v, Aug 09 2018 *)
-
Python
n,f,i,p,q,base = 1,1,0,0,1,2 while i < 100000: i,p,q = i+1,p*base,q*base if i == f: p,n = p+1,n+1 f = f*n n,a,j = 0,0,0 while p%q > 0: a,f,p,q = a+1,p//q,q,p%q print(a-1,f)
Comments