OFFSET
1,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..1655 (first 200 terms from Peter Kagey)
EXAMPLE
For n=38, 2*38_10 = 2^6 + 2^3 + 2^2 = 1001100_2, and 1/2 + 1/3 + 1/6 = 1.
MATHEMATICA
Select[Range[2^20], Total[1/Flatten@ Position[Reverse@ IntegerDigits[#, 2], 1]] == 1 &] (* Michael De Vlieger, Apr 18 2016 *)
PROG
(PARI) is(n) = my(b = Vecrev(binary(n))); sum(k=1, #b, b[k]/k) == 1;
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Apr 18 2016
STATUS
approved