%I M3260 N1316 #28 Jul 04 2024 20:07:29
%S 1,4,5,29,34,63,286,349,635,5429,6064,90325,96389,1054215,2204819,
%T 3259034,15240955,186150494,387541943,1348776323,3085094589,
%U 4433870912,16386707325,69980700212,86367407537,156348107749,399063623035,5743238830239,17628780113752
%N Numerators of convergents to cube root of 2.
%D D. H. Lehmer, Guide to Tables in the Theory of Numbers. Bulletin No. 105, National Research Council, Washington, DC, 1941, p. 67.
%D P. Seeling, Verwandlung der irrationalen Groesse ... in einen Kettenbruch, Archiv. Math. Phys., 46 (1866), 80-120.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Robert Israel, <a href="/A002352/b002352.txt">Table of n, a(n) for n = 0..1975</a>
%H E. Bombieri and A. J. van der Poorten, <a href="https://doi.org/10.1007/978-94-017-1108-1_10">Continued fractions of algebraic numbers</a>, In: Bosma W., van der Poorten A. (eds) Computational Algebra and Number Theory. Mathematics and Its Applications, vol 325.
%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.
%F From _Robert Israel_, Oct 08 2017: (Start)
%F c(n) = floor((-1)^n*3*a(n)^2/(q(n)*(a(n)^3-2*q(n)^3)) - q(n-1)/q(n)),
%F a(n+1) = c(n)*a(n) + a(n-1),
%F q(n+1) = c(n)*q(n) + q(n-1), with a(0) = 1, c(0) = 1, q(0) = 0, a(1) = 1, q(1) = 1. (End)
%p Digits := 60: E := 2^(1/3); convert(evalf(E),confrac,50,'cvgts'): cvgts;
%p # Alternate:
%p N:= 100: # to get a(1) to a(N)
%p c[0] := 1: a[0] := 1: q[0] := 0: a[1] := 1: q[1] := 1:
%p for n from 1 to N do
%p c[n] := floor((-1)^n*3*a[n]^2/(q[n]*(a[n]^3-2*q[n]^3)) - q[n-1]/q[n]);
%p a[n+1] := c[n]*a[n] + a[n-1];
%p q[n+1] := c[n]*q[n] + q[n-1];
%p od: seq(a[i], i=1..N); # _Robert Israel_, Oct 08 2017
%t Convergents[CubeRoot[2],30]//Numerator (* _Harvey P. Dale_, May 30 2023 *)
%Y Cf. A002351 (denominators), A002945.
%K nonn,frac
%O 0,2
%A _N. J. A. Sloane_
%E Offset changed by _Andrew Howroyd_, Jul 04 2024