login
Numerators of convergents to Champernowne constant (A033307).
2

%I #31 Oct 23 2022 01:10:12

%S 0,1,9,10,1490839,1490849,2981688,4472537,20871836,25344373,46216209,

%T 71560582,260897955,1115152402,1376050357,2491202759,3867253116,

%U 60499999499

%N Numerators of convergents to Champernowne constant (A033307).

%C a(18) has 177 digits and is too large to include here. - _Lucas A. Brown_, Sep 02 2022

%H Lucas A. Brown, <a href="/A058069/b058069.txt">Table of n, a(n) for n = 0..39</a>

%H Lucas A. Brown, <a href="https://github.com/lucasaugustus/oeis/blob/main/A058068%2B9.py">A058068+9.py</a>.

%H E. B. Burger, <a href="https://www.maa.org/sites/default/files/pdf/upload_library/22/Chauvenet/Burger.pdf">Diophantine Olympics and World Champions: Polynomials and Primes Down Under</a>, Amer. Math. Monthly, 107 (Nov. 2000), 822-829.

%p Digits := 100: E := A033307; convert(evalf(E),confrac,50,'cvgts'): cvgts;

%t Module[{champ=FromDigits[Flatten[IntegerDigits/@Range[20]]]}, Numerator[ Convergents[ champ/10^IntegerLength[champ]]]] (* _Harvey P. Dale_, Dec 17 2014 *)

%Y Cf. A033307, A058068.

%K nonn,frac

%O 0,3

%A _N. J. A. Sloane_, Nov 24 2000

%E a(17) from _Lucas A. Brown_, Sep 02 2022