|
%I #3 Mar 30 2012 18:49:08
%S 10,12,13,14,16,18,19,20,23,24,25,26,28,29,30,32,34,35,36,37,38,39,40,
%T 41,42,43,46,47,48,49,50,52,53,54,56,57,58,59,60,61,62,64,67,68,69,70,
%U 71,72,74,75,76,78,79,80,81,82,83,84,86,87,89,90,91,92,94,95,96,97,98
%N Nonpalindromes in base 10 that are non-palindromes in base 2.
%t Select[Range[100], Reverse[IntegerDigits[ # ]] != IntegerDigits[ # ] && Reverse[IntegerDigits[ #, 2]] != IntegerDigits[ #, 2] &]
%Y Cf. A007632 = numbers that are palindromic in bases 2 and 10.
%K base,nonn
%O 1,1
%A _Tanya Khovanova_, Dec 26 2006
|
