OFFSET
1,1
COMMENTS
1 < a(n) <= 10^A055642(n).
For any reduced fraction u/v in the interval [1/10..1[, a(floor(u/v*10^k))=v for k sufficiently large.
LINKS
Paul Tek, Table of n, a(n) for n = 1..11000
EXAMPLE
The fractions f satisfying floor(f*100)=42, are, in lexicographical order: 3/7, 6/14, 8/19, 9/21, 11/26, 12/28, 14/33, 15/35, 16/38, 17/40, 18/42, 19/45, 20/47, 21/49...
Hence, a(42)=denominator(3/7)=7.
PROG
(PARI) a224927(n) =\
local(a=0, b=1, c, d, e=1, f=0, x=1); \
while(x<=n, x=x*10); \
while(1, c=a+e; d=b+f; \
if(c/d < n/x, a=c; b=d, \
if(c/d >= (n+1)/x, e=c; f=d, \
return(d))))
CROSSREFS
KEYWORD
nonn,base,frac
AUTHOR
Paul Tek, Apr 20 2013
STATUS
approved