A183107 Sum of palindromic divisors of numbers k such that the sum of the palindromic divisors of k is palindromic.

1, 3, 4, 7, 6, 8, 8, 1, 9, 1, 1, 11, 1, 6, 3, 1, 1, 3, 1, 3, 4, 1, 1, 3, 1, 8, 8, 4, 7, 1, 22, 4, 3, 1, 1, 3, 6, 1, 7, 4, 1, 33, 1, 3, 9, 7, 1, 3, 1, 6, 3, 4, 1, 8, 7, 4, 3, 6, 1, 1, 3, 1, 1, 22, 1, 6, 7, 3, 8, 3, 4, 7, 6, 1, 4, 8, 8, 3, 1, 1, 3, 33, 6, 3, 11, 7, 1

Offset

1,2

Links

Table of n, a(n) for n=1..87.

Formula

a(n) = A088000(A183106(n)).

Mathematica

f[k_] := DivisorSum[k, # &, PalindromeQ[#] &]; Select[f /@ Range[150], PalindromeQ] (* Amiram Eldar, Aug 08 2024 *)

Crossrefs

Cf. A088000, A183106.

Sequence in context: A325818 A120224 A210471 * A132009 A295565 A086455

Adjacent sequences: A183104 A183105 A183106 * A183108 A183109 A183110

Keyword

nonn,base,changed

Author

Jaroslav Krizek, Dec 25 2010

Extensions

More terms from Amiram Eldar, Aug 08 2024

Status

approved