|
|
A224927
|
|
Denominator of lexicographically least fraction f satisfying floor(f*10^A055642(n)) = n.
|
|
2
|
|
|
6, 4, 3, 5, 2, 3, 4, 5, 10, 10, 9, 8, 15, 7, 13, 6, 17, 11, 21, 5, 14, 9, 13, 25, 4, 15, 11, 7, 17, 10, 16, 25, 3, 23, 14, 11, 8, 13, 23, 5, 12, 7, 16, 9, 11, 13, 17, 25, 51, 2, 27, 17, 13, 11, 9, 16, 7, 12, 22, 5, 13, 8, 11, 14, 20, 3, 28, 16, 13, 10, 7, 11, 15
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
For any reduced fraction u/v in the interval [1/10..1[, a(floor(u/v*10^k))=v for k sufficiently large.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|