%I A118592
%S A118592 11,101,167,211,257,347,431,523,541,617,743,761,853,1423,1427,1607,
%T A118592 1753,1973,2011,2213,2237,2341,2417,2543,2617,2671,2819,2837,3137,
%U A118592 3407,3461,3517,3571,3719,3847,4013,4127,4211,4217,4637,4673,4691
%N A118592 Compound prime numbers. A prime is compound if its digits can be divided 
               into two contigous subsets such a way that the total of the digits 
               are the same.
%C A118592 It relates to the pallidromic primes
%e A118592 40127 because 4+0+1+2=7
%t A118592 First[Last[Reap[i = 1; mx = 10^4; While[i <= mx, pr = Prime[i]; prdig 
               = IntegerDigits[pr]; prlen = Length[prdig]; j = 1; While[j < prlen, 
               prLeft = Take[prdig, {1, j}]; prRight = Take[prdig, {j + 1, prlen}]; 
               If[Total[prLeft] != Total[prRight], j++; Continue[], Sow[pr]; Break[]]; 
               ]; i++; ]; ]]]
%Y A118592 Cf. A082435 and A083967.
%Y A118592 Sequence in context: A058411 A134462 A156753 this_sequence A156617 A089716 
               A084987
%Y A118592 Adjacent sequences: A118589 A118590 A118591 this_sequence A118593 A118594 
               A118595
%K A118592 easy,nonn
%O A118592 0,1
%A A118592 Janos Lobb (janos(AT)lobb.com), May 17 2006