A083850 Exponent of highest power of 11 dividing the n-th decimal palindrome; a(0) = 1.

1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Author

Reinhard Zumkeller, May 06 2003

Keywords

• nonn
• base

Crossrefs

Cf. A083851, A083852, A002113, A008593.

Programs

Mathematica

IntegerExponent[#,11]&/@Select[Range[0,1000],PalindromeQ]/.\[Infinity]->1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 05 2020 *)