%I #22 Aug 11 2024 14:41:32

%S 19,39,47,53,58,69,75,76,79,84,87,90,94,95,96,102,103,106,108,110,115,

%T 116,120,122,132,133,134,137,139,140,143,144,147,149,152,155,158,159,

%U 163,167,168,169,174,175,176,177,179,180,183,184,187,188,193,196,198

%N Numbers n not palindromic in any base b, 2 <= b <= 10.

%H T. D. Noe, <a href="/A050813/b050813.txt">Table of n, a(n) for n = 1..10000</a>

%H P. De Geest, <a href="https://www.worldofnumbers.com/nobase10.htm">Palindromic numbers beyond base 10</a>

%F A050812(n) = 0.

%t n = -1; t = {}; While[Length[t] < 100, n++; If[Count[Table[s = IntegerDigits[n, m]; s == Reverse[s], {m, 2, 10}], True] == 0, AppendTo[t, n]]]; t (* _T. D. Noe_, Jul 18 2012 *)

%Y Cf. A050812, A047811, A016038.

%Y Cf. A214423, A214424, A214425, A214426 (palindromic in 1-4 bases).

%K nonn,base

%O 1,1

%A _Patrick De Geest_, Oct 15 1999