A076595 First occurrence of n as a term in the continued fraction for the cube root of 2.

1, 15, 2, 7, 4, 64, 56, 10, 59, 14, 148, 18, 117, 12, 32, 638, 578, 112, 229, 371, 218, 91, 878, 2209, 139, 108, 182, 975, 484, 314, 859, 1977, 454, 597, 1016, 205, 1425, 136, 315, 4201, 51, 3661, 1009, 143, 2188, 3532, 381, 550, 151, 786, 2815, 1444, 654

Offset

1,2

Links

Table of n, a(n) for n=1..53.

Mathematica

With[{cf=ContinuedFraction[Surd[2, 3], 4500]}, Flatten[Table[Position[cf, n, {1}, 1], {n, 60}]]] (* Harvey P. Dale, Jul 01 2015 *)

Prog

(PARI) (1500 precision digits) v=contfrac(2^(1/3)); a(n)=if(n<0, 0, s=1; while(abs(n-component(v, s))>0, s++); s)

Crossrefs

Cf. A032523.

Sequence in context: A040222 A040223 A272724 * A220376 A040224 A237649

Adjacent sequences: A076592 A076593 A076594 * A076596 A076597 A076598

Keyword

base,nonn

Author

Benoit Cloitre, Oct 20 2002

Status

approved