This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A178226 #14 Jun 02 2025 02:58:05
%S A178226 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,
%T A178226 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,
%U A178226 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
%N A178226 Characteristic function of A154809 (numbers that are not binary palindromes).
%C A178226 a(n)=1 if n is in A154809, a(n)=0 otherwise.
%C A178226 Identical to parity of A086757 (Smallest prime p such that n is a palindrome in base p representation)
%H A178226 Antti Karttunen, <a href="/A178226/b178226.txt">Table of n, a(n) for n = 0..65537</a>
%H A178226 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%H A178226 <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%F A178226 a(n) = 1 - A178225(n). - _Antti Karttunen_, Dec 15 2017
%t A178226 Table[If[IntegerDigits[n,2]==Reverse[IntegerDigits[n,2]],0,1],{n,0,120}] (* _Harvey P. Dale_, Aug 07 2023 *)
%o A178226 (PARI) A178226(n) = (n!=subst(Polrev(binary(n)),x,2)); \\ _Antti Karttunen_, Dec 15 2017
%Y A178226 Cf. A030101, A057891, A086757, A154809, A178225, A280505, A280506.
%K A178226 base,easy,nonn
%O A178226 0,1
%A A178226 _Jeremy Gardiner_, May 23 2010