A029967 Palindromic in bases 12 and 10.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 181, 555, 616, 676, 737, 797, 1111, 8008, 35953, 43934, 88888, 646646, 3192913, 5641465, 8364638, 9963699, 133373331, 139979931, 293373392, 520020025, 713171317, 796212697, 1393223931

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Links

• Robert G. Wilson v, Table of n, a(n) for n = 1..57
• Patrick De Geest, Palindromic numbers beyond base 10

Crossrefs

Cf. A007632, A007633, A029961, A029962, A029963, A029964, A029804, A029965, A029966, A029968, A029969, A029970, A029731, A097855, A099165.

Programs

Mathematica

Select[Range[0, 10^5], PalindromeQ[#] && # == IntegerReverse[#, 12] &] (* Robert Price, Nov 09 2019 *)

Python

from gmpy2 import digits
def palQ(n,b): # check if n is a palindrome in base b
    s = digits(n,b)
    return s == s[::-1]
def palQgen10(l): # generator of palindromes in base 10 of length <= 2*l
    if l > 0:
        yield 0
        for x in range(1,l+1):
            for y in range(10**(x-1),10**x):
                s = str(y)
                yield int(s+s[-2::-1])
            for y in range(10**(x-1),10**x):
                s = str(y)
                yield int(s+s[::-1])
A029967_list = [n for n in palQgen10(5) if palQ(n,12)] # Chai Wah Wu, Dec 01 2014