login
A066489
Binary expansion of n followed by its reverse complement.
0
10, 1010, 1100, 100110, 101010, 110100, 111000, 10001110, 10010110, 10101010, 10110010, 11001100, 11010100, 11101000, 11110000, 1000011110, 1000101110, 1001010110, 1001100110, 1010011010, 1010101010, 1011010010, 1011100010, 1100011100, 1100101100, 1101010100
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
Binary expansion of numbers in A035928.
Sequence in context: A104486 A098753 A276758 * A063171 A075166 A071671
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