|
%I
%S 11,12,13,14,22,23,25,29,30,32,34,35,37,38,41,42,43,44,48,49,54,56,59,
%T 60,61,62,64,66,68,70,71,72,74,77,81,83,86,89,97,101,112,113,117,118,
%U 123,124,125,126,128,131,136,138,145,146,148,153,156,157,161
%N Numbers n palindromic in only one base b, 2 <= b <= 10.
%C The base for which n is a palindrome is given in A214427.
%H T. D. Noe, <a href="/A214423/b214423.txt">Table of n, a(n) for n = 1..10000</a>
%F A050812(n) = 1.
%e 11 is palindromic only in base 10.
%t n = -1; t = {}; While[Length[t] < 100, n++; If[Count[Table[s = IntegerDigits[n, m]; s == Reverse[s], {m, 2, 10}], True] == 1, AppendTo[t, n]]]; t
%Y Cf. A050813, A214424, A214425, A214426 (palindromic in 0, 2-4 bases)
%K nonn,base
%O 1,1
%A _T. D. Noe_, Jul 18 2012
|
