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

Author

Benoit Cloitre, Oct 20 2002

Keywords

• base
• nonn

Crossrefs

Cf. A002945, A032523.

Programs

Mathematica

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

PARI

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