login
A076595
First occurrence of n as a term in the continued fraction for the cube root of 2.
0
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
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
KEYWORD
base,nonn
AUTHOR
Benoit Cloitre, Oct 20 2002
STATUS
approved