|
| |
|
|
A207525
|
|
Number of rational numbers p/q such that 0<p<q<=n and p/q<=(the quotient of consecutive Fibonacci numbers which has the greatest denominator <=n).
|
|
2
|
|
|
|
1, 3, 4, 6, 7, 11, 14, 18, 20, 26, 29, 36, 39, 44, 49, 59, 63, 74, 79, 87, 93, 107, 112, 124, 131, 142, 150, 167, 172, 191, 201, 214, 223, 237, 244, 266, 277, 292, 302, 327, 335, 361, 374, 388, 401, 430, 440, 466, 478, 498, 513, 545, 556, 581, 596, 619
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
2,2
|
|
|
COMMENTS
|
Counts certain consecutive Farey fractions of order n; not the same as A207525, which counts p/q<=(greatest quotient of consecutive Fibonacci numbers having denominator <= n).
|
|
|
LINKS
|
Table of n, a(n) for n=2..57.
|
|
|
EXAMPLE
|
a(4)=4 counts 1/4, 1/3, 1/2, 2/3.
a(5)=6 counts 1/5, 1/4, 1/3, 2/5, 1/2, 3/5.
|
|
|
MATHEMATICA
|
r[n_] := Union[Flatten[Table[p/q, {q, 2, n - 1},
{p, 1, q - 1}]]];
f[n_] := Fibonacci[n]; gr = GoldenRatio;
g[n_] := Floor[Log[gr, 1 + n*Sqrt[5]]];
s = Table[Round[f[g[n - 1]]/gr]/f[g[n - 1]], {n, 3, 82}];
c[n_, x_] := Length[Select[r[n + 2], # <= x &]]
Table[c[n, s[[n]]], {n, 1, 80}]
|
|
|
CROSSREFS
|
Cf. A207524.
Sequence in context: A306678 A075434 A085253 * A240208 A349555 A073906
Adjacent sequences: A207522 A207523 A207524 * A207526 A207527 A207528
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Clark Kimberling, Feb 18 2012
|
|
|
STATUS
|
approved
|
| |
|
|
