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,22

Links

Table of n, a(n) for n=0..104.

Mathematica

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

Crossrefs

Cf. A083851, A083852, A002113, A008593.

Sequence in context: A116860 A179391 A332016 * A028718 A028661 A028714

Adjacent sequences: A083847 A083848 A083849 * A083851 A083852 A083853

Keyword

nonn,base

Author

Reinhard Zumkeller, May 06 2003

Status

approved