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
KEYWORD
base,nonn
AUTHOR
Benoit Cloitre, Oct 20 2002
STATUS
approved