Farey sequence



-----maxima-bounces at math.utexas.edu wrote: -----

> I?have?found?:

>http://magma.maths.usyd.edu.au/magma/Examples/node6.html

A Maxima implementation of the third method is 

  ff(n) := setify(xreduce('append, makelist(makelist(i/j,i,0,j), j,1, n)));

I can think of ways that might speed this up--say n = 10. Then the inner makelist
could skip j = 2 and j = 5, for example. But then the code would no longer be a
one-liner :(

--Barton