login
A076889
Sum of aliquot divisors of palindromic numbers.
1
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, 104, 166, 234, 218, 157, 476, 134, 286, 294, 226, 105, 1, 37, 161, 57, 1, 169, 1, 1, 135, 310, 522, 386, 334, 620, 230, 466, 486, 447, 346, 107, 109, 467, 113, 115, 357, 119
OFFSET
1,4
LINKS
EXAMPLE
a(11)=14 because 14 is the sum of aliquot divisors of 11th palindromic number (i.e. 22).
MATHEMATICA
Total[Most[Divisors[#]]]&/@Select[Range[1000], PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 19 2020 *)
CROSSREFS
Sequence in context: A069625 A111614 A193279 * A134689 A248029 A117552
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Nov 25 2002
STATUS
approved