|
%I #16 Mar 11 2014 01:32:46
%S 11,13,19,23,25,29,35,37,39,41,43,47,49,53,55,57,59,61,67,69,71,75,77,
%T 79,81,83,87,89,91,95,97,101,103,105,109,111,113,115,117,121,123,125,
%U 131,133,135,137,139,141,143,145,147,149,151,155,157,159,161,163,167
%N Odd positive integers that are not palindromes when written in binary.
%C These are the odd members of A154809.
%H Reinhard Zumkeller, <a href="/A164861/b164861.txt">Table of n, a(n) for n = 1..10000</a>
%F A178225(a(n)) * (1 - A000035(a(n))) = 0. [_Reinhard Zumkeller_, Oct 21 2011]
%t npbQ[n_]:=Module[{idn2=IntegerDigits[n,2]},idn2!=Reverse[idn2]]; Select[ Range[1,201,2],npbQ] _Harvey P. Dale_, May 17 2012
%o (Haskell)
%o a164861 n = a164861_list !! (n-1)
%o a164861_list = filter ((== 0) . a178225) a005408_list
%o -- _Reinhard Zumkeller_, Oct 21 2011
%Y Cf. A154809.
%K base,nonn
%O 1,1
%A _Leroy Quet_, Aug 28 2009
%E Extended by _Ray Chandler_, Mar 14 2010
|
