OFFSET
1,2
EXAMPLE
a(12) = 21; palindromic divisors of 21: 1, 3, 7; their sum is 11 (palindromic number).
MAPLE
isA183106 := proc(n)
isA002113(A088000(n)) ;
end proc:
for n from 1 to 100 do
if isA183106(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Sep 09 2015
MATHEMATICA
q[k_] := PalindromeQ[DivisorSum[k, # &, PalindromeQ[#] &]]; Select[Range[120], q] (* Amiram Eldar, Aug 08 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Dec 25 2010
EXTENSIONS
More terms from Amiram Eldar, Aug 08 2024
STATUS
approved