OFFSET
0,3
LINKS
FORMULA
a(n) = min(n, A193231(n)).
PROG
(PARI) A331167(n) = { my(x='x); min(n, subst(lift(Mod(1, 2)*subst(Pol(binary(n), x), x, 1+x)), x, 2)); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 12 2020
STATUS
approved