login
A083850
Exponent of highest power of 11 dividing the n-th decimal palindrome; a(0) = 1.
2
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
MATHEMATICA
IntegerExponent[#, 11]&/@Select[Range[0, 1000], PalindromeQ]/.\[Infinity]->1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 05 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 06 2003
STATUS
approved