OFFSET
1,3
MATHEMATICA
Farey[n_] := Union[Flatten[Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; f[n_] := Length@ Select[ Farey@ n, # <= 1/3 &]; Array[f, 54] (* Robert G. Wilson v, Nov 14 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved