A076592 First occurrence of n as a term in the continued fraction for log(2).

2, 3, 4, 31, 41, 6, 30, 90, 89, 16, 188, 126, 29, 42, 365, 395, 71, 48, 106, 379, 484, 2097, 521, 1240, 391, 1208, 300, 118, 688, 296, 180, 75, 1843, 1532, 1547, 1303, 1721, 1545, 120, 917, 881, 2082, 111, 615, 866, 311, 952, 2095, 1293, 1065, 6140

Offset

1,1

Links

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

Mathematica

Module[{nn=6200, cfl2}, cfl2=ContinuedFraction[Log[2], nn]; Table[Position[cfl2, n, 1, 1], {n, 60}]]//Flatten (* Harvey P. Dale, Mar 09 2023 *)

Prog

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

Crossrefs

Cf. A032523.

Sequence in context: A057917 A250189 A255253 * A004844 A037324 A067242

Adjacent sequences: A076589 A076590 A076591 * A076593 A076594 A076595

Keyword

base,nonn

Author

Benoit Cloitre, Oct 20 2002

Status

approved