login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A256078 Write n in binary, exchange digits '0' <-> '1'. 9
1, 0, 1, 0, 11, 10, 1, 0, 111, 110, 101, 100, 11, 10, 1, 0, 1111, 1110, 1101, 1100, 1011, 1010, 1001, 1000, 111, 110, 101, 100, 11, 10, 1, 0, 11111, 11110, 11101, 11100, 11011, 11010, 11001, 11000, 10111, 10110, 10101, 10100, 10011, 10010, 10001, 10000 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,5

COMMENTS

Binary representation of A035327.

A base-2 analog of A048379.

LINKS

Table of n, a(n) for n=0..47.

MATHEMATICA

Table[FromDigits[IntegerDigits[n, 2] /. {0 -> 1, 1 -> 0}], {n, 0, 47}] (* or *)

Table[FromDigits@ IntegerDigits[BitXor[n, 2^IntegerPart[Log[2, n] + 1] - 1], 2], {n, 0, 47}] (* Michael De Vlieger, Mar 22 2015, the latter based on Alonso del Arte at A035327 *)

PROG

(PARI) A256078(n)=!n+eval(Strchr(apply(d->49-d, binary(n))))

CROSSREFS

Sequence in context: A220664 A038323 A121154 * A078200 A105034 A065001

Adjacent sequences:  A256075 A256076 A256077 * A256079 A256080 A256081

KEYWORD

nonn,base,easy

AUTHOR

M. F. Hasler, Mar 22 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 16 05:13 EST 2018. Contains 317257 sequences. (Running on oeis4.)