3 lines
188 B
Text
3 lines
188 B
Text
farey[n_]:=StringJoin@@Riffle[ToString@Numerator[#]<>"/"<>ToString@Denominator[#]&/@FareySequence[n],", "]
|
|
TableForm[farey/@Range[11]]
|
|
Table[Length[FareySequence[n]], {n, 100, 1000, 100}]
|