OFFSET
0,4
LINKS
Peter Kagey, Table of n, a(n) for n = 0..10000
EXAMPLE
13 in binary is 1101. So a(13) is the numerator of 1/4 + 1/3 + 1 = 19/12, since the binary digits at positions (from right to left) 1, 3 and 4 are each 1 and the other digits are 0.
MATHEMATICA
Table[Numerator@ Total@ MapIndexed[#1/ First@ #2 &, Reverse@ IntegerDigits[n, 2]], {n, 0, 79}] (* Michael De Vlieger, Aug 19 2017 *)
PROG
(PARI) a(n) = {my(b = Vecrev(binary(n))); numerator(sum(k=1, #b, b[k]/k)); } \\ Michel Marcus, Apr 18 2016
CROSSREFS
KEYWORD
AUTHOR
Leroy Quet, Feb 13 2006
EXTENSIONS
More terms from Joshua Zucker, May 03 2006
STATUS
approved