OFFSET
0,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..16383
David Newman, et al., New sequences from old, Discussion on SeqFan-mailing list, January 2018.
MATHEMATICA
f[n_] := FromDigits[Reverse[IntegerDigits[n, 2]], 2]*2^IntegerExponent[n, 2]; Fold[Append[#1, f[1 + f[#2 - 1]]] &, {0, 1}, Range[2, 85]] (* Michael De Vlieger, Apr 27 2018, after Ivan Neretin at A057889 *)
PROG
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Apr 26 2018
STATUS
approved