OFFSET
1,1
EXAMPLE
a(2) = 1010 because 2 in binary is 10, the complement of which is 01, the reverse of which is 10, hence (10)(10). - Sean A. Irvine, Oct 22 2023
MAPLE
a:= n-> (l-> parse(cat(seq(l[-i], i=1..nops(l)), 1-~l[])))(Bits[Split](n)):
seq(a(n), n=1..30); # Alois P. Heinz, Oct 22 2023
PROG
(PARI) a(n)={my(v=binary(n)); fromdigits(concat(v, vector(#v, i, 1-v[#v+1-i])))} \\ Andrew Howroyd, Oct 22 2023
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
John McNamara, Jan 09 2002
EXTENSIONS
Title clarified and more terms from Sean A. Irvine, Oct 22 2023
STATUS
approved