|
%I #18 Mar 12 2013 16:55:38
%S 1,11,101,111,121,131,141,151,161,171,181,191,1001,1111,1221,1331,
%T 1441,1551,1661,1771,1881,1991,10001,10101,10201,10301,10401,10501,
%U 10601,10701,10801,10901,11011,11111,11211,11311,11411,11511,11611,11711,11811,11911
%N Base 10 palindromes that start with 1.
%C Union of A222723 (palindromic primes starting with a digit 1) and A222724 (palindromic nonprime numbers starting with a digit 1). - Jaroslav Krizek, Mar 03 2013
%H Harvey P. Dale and Jaroslav Krizek, <a href="/A043036/b043036.txt">Table of n, a(n) for n = 1..2222</a> (first 1000 terms from Harvey P. Dale)
%t palQ[n_Integer, base_Integer] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse[idn]]; Select[Range[0, 20000], IntegerDigits[#][[1]] == 1 && palQ[#, 10] &] (* _T. D. Noe_, Mar 12 2013 *)
%Y Cf. A002113 (palindromes in base 10).
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
