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

Author

Jaroslav Krizek, Dec 25 2010

Keywords

• nonn
• base

Crossrefs

Cf. A088000, A183106.

Programs

Mathematica

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

Formula

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

Extensions

More terms from Amiram Eldar, Aug 08 2024