A083851 Decimal palindromes that are not multiples of 11.

1, 2, 3, 4, 5, 6, 7, 8, 9, 101, 111, 131, 141, 151, 161, 171, 181, 191, 202, 212, 222, 232, 252, 262, 272, 282, 292, 303, 313, 323, 333, 343, 353, 373, 383, 393, 404, 414, 424, 434, 444, 454, 464, 474, 494, 505, 515, 525, 535, 545, 555, 565, 575, 585, 595, 606

Offset: 1

Author

Reinhard Zumkeller, May 06 2003

Keywords

• nonn
• base

Comments

A083850(a(n)) = 0; all members have odd length.

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A083852, A002113, A008593.

Programs

Mathematica

max = 600; Complement[Select[Range[max], IntegerDigits[#] == Reverse[IntegerDigits[#]] &], 11Range[Ceiling[max/11]]] (* Alonso del Arte, May 11 2014 *)

PARI

is(n)=n%11 && subst(Polrev(digits(n)), 'x, 10)==n \\ Charles R Greathouse IV, May 14 2014

Python

from itertools import chain, count, islice
def A083851_gen(): # generator of terms
    return filter(lambda n: n % 11,chain.from_iterable((int((s:=str(d))+s[-2::-1]) for d in range(10**l,10**(l+1))) for l in count(0)))
A083851_list = list(islice(A083851_gen(),20)) # Chai Wah Wu, Jun 23 2022