OFFSET
1,4
COMMENTS
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
Jerzy Czyz and William Self, The Rationals Are Countable: Euclid's Proof, The College Mathematics Journal, volume 34, number 5, November 2003, pages 367-369.
PROG
(PARI) a(n) = my (w=[]); while (n, my (v=valuation(n, 2)); w=concat(w, 1+v); n \= 2^(v+1)); w[#w]--; my (r=w[1] + (#w>1)); for (k=2, #w, r=w[k]+1/r); numerator(r) \\ Rémy Sigrist, Aug 25 2018
CROSSREFS
KEYWORD
AUTHOR
N. J. A. Sloane, Mar 14 2014, following a suggestion from Kevin Ryde
EXTENSIONS
More terms from Rémy Sigrist, Aug 25 2018
STATUS
approved