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
Programs
-
Mathematica
f[k_] := DivisorSum[k, # &, PalindromeQ[#] &]; Select[f /@ Range[150], PalindromeQ] (* Amiram Eldar, Aug 08 2024 *)
Extensions
More terms from Amiram Eldar, Aug 08 2024