%I A107737
%S A107737 2,6,8,9,14,25,26,30,32,38,40,45,56,63,66,70,74,75,81,86,88,96,99,100,
%T A107737 104,117,121,130,134,136,138,144,147,153,154,158,160,168,174,184,190,
%U A107737 194,196,206,207,216,218,238,248,250,252,254,266,275,279,280,286,289
%N A107737 Numbers n such that, in prime decomposition of n, sum of all prime factors 
               and their orders is prime.
%C A107737 Corresponding primes in A107738. Cf. A008474 If n = Product (p_j^k_j) 
               then a(n) = Sum (p_j + k_j).
%H A107737 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               PrimeFactorization.html">Prime Factorization</a>
%e A107737 n = 104 OK because 104 = 2^3 * 13^1 => (2+3)+(13+1) = 19 is prime.
%t A107737 ta=Table[Plus @@ Flatten[FactorInteger[n]], {n, 300}];bb={};Do[If[PrimeQ[t=ta[[i]]], 
               bb=Append[bb, {i, t}]], {i, 300}];tr=Transpose[bb];A107738=tr[[2]];
               A107737=tr[[1]]
%Y A107737 Cf. A008474, A107738.
%Y A107737 Sequence in context: A050675 A034591 A047278 this_sequence A045138 A067704 
               A166270
%Y A107737 Adjacent sequences: A107734 A107735 A107736 this_sequence A107738 A107739 
               A107740
%K A107737 nonn
%O A107737 1,1
%A A107737 Zak Seidov (zakseidov(AT)yahoo.com), May 23 2005