OFFSET
1,2
MATHEMATICA
Flatten[Table[Position[ContinuedFraction[Log[5], 6000], n, {1}, 1], {n, 60}]] (* Harvey P. Dale, Jun 26 2013 *)
PROG
(PARI) (1500 precision digits) v=contfrac(log(5)); 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