A256754 a(n) = bitwise AND of n and the reverse of n.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 11, 4, 13, 8, 3, 16, 1, 16, 19, 0, 4, 22, 0, 8, 16, 26, 8, 16, 28, 2, 13, 0, 33, 34, 33, 36, 1, 2, 5, 0, 8, 8, 34, 44, 36, 0, 10, 16, 16, 0, 3, 16, 33, 36, 55, 0, 9, 16, 27, 4, 16, 26, 36, 0, 0, 66, 64, 68, 64, 6, 1, 8, 1, 10

Offset

0,3

Links

Alois P. Heinz, Table of n, a(n) for n = 0..10000

Wikipedia, Bitwise operation

Formula

a(n) = A004198(n,A004086(n)).

Maple

a:= n-> Bits[And](n, (s-> parse(cat(s[-i]$i=1..length(s))))(""||n)):
seq(a(n), n=0..80);

Mathematica

Table[BitAnd[n, FromDigits[Reverse[IntegerDigits[n]]]], {n, 0, 74}] (* Ivan N. Ianakiev, Apr 10 2015 *)

Prog

(PARI) a(n) = bitand(n, subst(Polrev(digits(n)), x, 10)); \\ Michel Marcus, Apr 10 2015

Crossrefs

Cf. A004086, A004198, A055483, A056964, A056965, A061205, A068634, A256755, A256756.

Sequence in context: A330970 A139281 A059707 * A265525 A355223 A348179

Adjacent sequences: A256751 A256752 A256753 * A256755 A256756 A256757

Keyword

nonn,base,look,easy

Author

Alois P. Heinz, Apr 09 2015

Status

approved