OFFSET
1,1
COMMENTS
a(2*n) = 1 + a(2*n-1) for all n > 0.
LINKS
Peter Kagey, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
Select[Range@ 1000, (LCM @@ # != Denominator[ Total[1/#]]) &@ Flatten@ Position[ Reverse@ IntegerDigits[#, 2], 1] &] (* Giovanni Resta, Apr 18 2016 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Peter Kagey, Apr 17 2016
STATUS
approved