A178226 Characteristic function of A154809 (numbers that are not binary palindromes)

0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1

Offset

0,1

Comments

a(n)=1 if n is in A154809, a(n)=0 otherwise.

Identical to parity of A086757 (Smallest prime p such that n is a palindrome in base p representation)

Links

Antti Karttunen, Table of n, a(n) for n = 0..65537

Index entries for sequences related to binary expansion of n

Index entries for characteristic functions

Formula

a(n) = 1 - A178225(n). - Antti Karttunen, Dec 15 2017

Mathematica

Table[If[IntegerDigits[n, 2]==Reverse[IntegerDigits[n, 2]], 0, 1], {n, 0, 120}] (* Harvey P. Dale, Aug 07 2023 *)

Prog

(PARI) A178226(n) = (n!=subst(Polrev(binary(n)), x, 2)); \\ Antti Karttunen, Dec 15 2017

Crossrefs

Cf. A030101, A057891, A086757, A154809, A178225, A280505, A280506.

Sequence in context: A144599 A144608 A327208 * A288622 A095907 A056051

Adjacent sequences: A178223 A178224 A178225 * A178227 A178228 A178229

Keyword

base,easy,nonn

Author

Jeremy Gardiner, May 23 2010

Status

approved