login
A083851
Decimal palindromes that are not multiples of 11.
3
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,2
COMMENTS
A083850(a(n)) = 0; all members have odd length.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
max = 600; Complement[Select[Range[max], IntegerDigits[#] == Reverse[IntegerDigits[#]] &], 11Range[Ceiling[max/11]]] (* Alonso del Arte, May 11 2014 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 06 2003
STATUS
approved