Question: Is there a generating function for rationals in maple?

Hi! I'm trying to find out if i can construct a sequence fn that generates all the (positive) rational numbers as n goes to infinity.

This is, the sequence shows to be an injective homomorphism fn: N -> Q+ . This sequence was constructed by cantor in his proof of rationals being countably infinite, and can really be helpful in evaluating expressions using rational numbers, but i do not knoww if it is implemented in maple, or how to construct it myself. 

Any help would be very appreciated. 

Please Wait...