OFFSET
1,2
COMMENTS
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
LINKS
Harvey P. Dale and Jaroslav Krizek, Table of n, a(n) for n = 1..2222 (first 1000 terms from Harvey P. Dale)
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 *)
Select[Range[20000], PalindromeQ[#]&&Mod[#, 10]==1&] (* Harvey P. Dale, May 12 2026 *)
PROG
(Python)
from itertools import count, islice, product
def agen(): # generator of terms
yield 1
for d in count(2):
for r in product("0123456789", repeat=d//2-1):
left = "1" + "".join(r)
for mid in ([[""], "0123456789"][d&1]):
yield int(left + mid + left[::-1])
print(list(islice(agen(), 42))) # Michael S. Branicky, Nov 04 2025
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
STATUS
approved
