%I #7 Feb 19 2020 14:54:18
%S 0,1,1,3,1,6,1,7,4,1,14,15,40,17,78,19,92,57,1,41,12,1,51,1,31,89,1,1,
%T 104,166,234,218,157,476,134,286,294,226,105,1,37,161,57,1,169,1,1,
%U 135,310,522,386,334,620,230,466,486,447,346,107,109,467,113,115,357,119
%N Sum of aliquot divisors of palindromic numbers.
%H Harvey P. Dale, <a href="/A076889/b076889.txt">Table of n, a(n) for n = 1..1000</a>
%e a(11)=14 because 14 is the sum of aliquot divisors of 11th palindromic number (i.e. 22).
%t Total[Most[Divisors[#]]]&/@Select[Range[1000],PalindromeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Feb 19 2020 *)
%K base,nonn
%O 1,4
%A _Shyam Sunder Gupta_, Nov 25 2002