OFFSET
1,2
COMMENTS
Numbers of the form (2^k - 1)*2^l + 2^m, where k >= 0, l > m >= 0. - Ivan Neretin, Jul 26 2015
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..5489
MATHEMATICA
Nest[If[EvenQ[l = #[[-1]]], Join[#, l + 2^(Range[IntegerExponent[l, 2]] - 1)], Append[#, l + 1]] &, {1}, 21] (* Ivan Neretin, Jul 26 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Stefan Maubach (s.maubach(AT)science.ru.nl), Jan 21 2010
STATUS
approved