%I #6 Jun 24 2014 01:08:23
%S 1,2,3,4,5,6,7,8,9,10,20,30,33,40,60,66,80,90,99,252,272,292,313,330,
%T 585,626,660,717,990,2112,2720,2772,2920,4224,5850,6336,7447,7470,
%U 8448,8580,9009,15351,21120,22122,25752,32223,39993,40904,42240,44244
%N Palindromic in base 2 as well as in base 10 (initial zeros may be prepended).
%e 66 in base 2 is 1000010 which is palindromic if rewritten as 01000010.
%t pal[n_, b_] := (z=IntegerDigits[n, b]) == Reverse[z]; extpal[n_, b_] := If[Mod[n, b]>0, pal[n, b], extpal[n/b, b]]; Select[Range[50000], extpal[ #, 10]&&extpal[ #, 2]&]
%Y Cf. A007632.
%K nonn,base
%O 1,2
%A _Amarnath Murthy_, Apr 02 2002
%E Edited by _Dean Hickerson_, Apr 06 2002
|