|
%I #10 Sep 09 2015 12:31:25
%S 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 49,50,51,52,53,56,57,58,59,61,62,65,67,68,69,71,72,73,74,75,76,79,82,
%U 83,85,86
%N Numbers n such that sum of palindromic divisors of n (A088000(n)) is palindromic.
%F A000005(a(n)) = A183107(n)
%e a(12) = 21; palindromic divisors of 21: 1, 3, 7; their sum is 11 (palindromic number).
%p isA183106 := proc(n)
%p isA002113(A088000(n)) ;
%p end proc:
%p for n from 1 to 100 do
%p if isA183106(n) then
%p printf("%d,",n) ;
%p end if;
%p end do: # _R. J. Mathar_, Sep 09 2015
%K nonn,base
%O 1,2
%A _Jaroslav Krizek_, Dec 25 2010
|
