A043036 Base 10 palindromes that start with 1.
1, 11, 101, 111, 121, 131, 141, 151, 161, 171, 181, 191, 1001, 1111, 1221, 1331, 1441, 1551, 1661, 1771, 1881, 1991, 10001, 10101, 10201, 10301, 10401, 10501, 10601, 10701, 10801, 10901, 11011, 11111, 11211, 11311, 11411, 11511, 11611, 11711, 11811, 11911
Offset: 1
Links
- Harvey P. Dale and Jaroslav Krizek, Table of n, a(n) for n = 1..2222 (first 1000 terms from Harvey P. Dale)
Crossrefs
Cf. A002113 (palindromes in base 10).
Programs
-
Mathematica
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 *)
Comments