cp's OEIS Frontend

A183106 Numbers k such that sum of palindromic divisors of k (A088000(k)) is palindromic.

%I A183106 #16 Aug 08 2024 06:42:29
%S A183106 1,2,3,4,5,7,10,13,15,17,19,21,23,25,26,29,31,34,37,38,39,41,43,46,47,
%T A183106 49,50,51,52,53,56,57,58,59,61,62,65,67,68,69,71,72,73,74,75,76,79,82,
%U A183106 83,85,86,87,89,91,92,93,94,95,97,103,106,107,109,112,113,115,116,118,119
%N A183106 Numbers k such that sum of palindromic divisors of k (A088000(k)) is palindromic.
%F A183106 A088000(a(n)) = A183107(n).
%e A183106 a(12) = 21; palindromic divisors of 21: 1, 3, 7; their sum is 11 (palindromic number).
%p A183106 isA183106 := proc(n)
%p A183106     isA002113(A088000(n)) ;
%p A183106 end proc:
%p A183106 for n from 1 to 100 do
%p A183106     if isA183106(n) then
%p A183106         printf("%d,",n) ;
%p A183106     end if;
%p A183106 end do: # _R. J. Mathar_, Sep 09 2015
%t A183106 q[k_] := PalindromeQ[DivisorSum[k, # &, PalindromeQ[#] &]]; Select[Range[120], q] (* _Amiram Eldar_, Aug 08 2024 *)
%Y A183106 Cf. A088000, A183107.
%Y A183106 Subsequences: A334321, A334391.
%K A183106 nonn,base
%O A183106 1,2
%A A183106 _Jaroslav Krizek_, Dec 25 2010
%E A183106 More terms from _Amiram Eldar_, Aug 08 2024