|
%I #5 Sep 05 2020 15:53:17
%S 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,
%T 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,
%U 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
%N Exponent of highest power of 11 dividing the n-th decimal palindrome; a(0) = 1.
%t IntegerExponent[#,11]&/@Select[Range[0,1000],PalindromeQ]/.\[Infinity]->1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 05 2020 *)
%Y Cf. A083851, A083852, A002113, A008593.
%K nonn,base
%O 0,22
%A _Reinhard Zumkeller_, May 06 2003
|
