A058069 Numerators of convergents to Champernowne constant (A033307).
0, 1, 9, 10, 1490839, 1490849, 2981688, 4472537, 20871836, 25344373, 46216209, 71560582, 260897955, 1115152402, 1376050357, 2491202759, 3867253116, 60499999499
Offset: 0
Links
- Lucas A. Brown, Table of n, a(n) for n = 0..39
- Lucas A. Brown, A058068+9.py.
- E. B. Burger, Diophantine Olympics and World Champions: Polynomials and Primes Down Under, Amer. Math. Monthly, 107 (Nov. 2000), 822-829.
Programs
-
Maple
Digits := 100: E := A033307; convert(evalf(E),confrac,50,'cvgts'): cvgts;
-
Mathematica
Module[{champ=FromDigits[Flatten[IntegerDigits/@Range[20]]]}, Numerator[ Convergents[ champ/10^IntegerLength[champ]]]] (* Harvey P. Dale, Dec 17 2014 *)
Extensions
a(17) from Lucas A. Brown, Sep 02 2022
Comments