A164861 Odd positive integers that are not palindromes when written in binary.
11, 13, 19, 23, 25, 29, 35, 37, 39, 41, 43, 47, 49, 53, 55, 57, 59, 61, 67, 69, 71, 75, 77, 79, 81, 83, 87, 89, 91, 95, 97, 101, 103, 105, 109, 111, 113, 115, 117, 121, 123, 125, 131, 133, 135, 137, 139, 141, 143, 145, 147, 149, 151, 155, 157, 159, 161, 163, 167
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A154809.
Programs
-
Haskell
a164861 n = a164861_list !! (n-1) a164861_list = filter ((== 0) . a178225) a005408_list -- Reinhard Zumkeller, Oct 21 2011
-
Mathematica
npbQ[n_]:=Module[{idn2=IntegerDigits[n,2]},idn2!=Reverse[idn2]]; Select[ Range[1,201,2],npbQ] (* Harvey P. Dale, May 17 2012 *)
Formula
Extensions
Extended by Ray Chandler, Mar 14 2010
Comments