OFFSET
1,2
COMMENTS
LINKS
Peter Kagey, Table of n, a(n) for n = 1..354
EXAMPLE
For n=36, 38_10=100100_2, and 1/3 + 1/6 = 1/2, the inverse of an integer.
MATHEMATICA
Select[Range[2^18], IntegerQ[1/Total[1/# & /@ Flatten@ Position[Reverse@ IntegerDigits[#, 2], 1]]] &] (* Michael De Vlieger, Apr 18 2016 *)
PROG
(PARI) isok(n) = {my(b = Vecrev(binary(n))); numerator(sum(k=1, #b, b[k]/k)) == 1; }
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Apr 18 2016
STATUS
approved