A076889 Sum of aliquot divisors of palindromic numbers.

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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A076886 A076887 A076888 * A076890 A076891 A076892

Keyword

base,nonn

Author

Shyam Sunder Gupta, Nov 25 2002

Status

approved