_Zak Seidov (zakseidov(AT)yahoo.com), _, May 23 2005

Eric W. Weisstein, 's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeFactorization.html">Prime Factorization</a>

nonn,new

nonn

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]; A107737=tr[[1]]; A107738=tr[[2]]

nonn,new

nonn

Eric W. Weisstein, <a href="http://mathworld.wolfram.com/PrimeFactorization.html">Prime Factorization</a>

nonn,new

nonn

Primes as a sum of prime factors and their orders in prime decomposition of some n.

3, 7, 5, 5, 11, 7, 17, 13, 7, 23, 11, 11, 13, 13, 19, 17, 41, 11, 7, 47, 17, 11, 17, 11, 19, 19, 13, 23, 71, 23, 31, 11, 13, 23, 23, 83, 13, 17, 37, 29, 29, 101, 13, 107, 29, 11, 113, 29, 37, 11, 17, 131, 31, 19, 37, 19, 29, 19, 43

1,1

Primes occurring in A008474. Corresponding n's in A107738. Cf. A008474 If n = Product (p_j^k_j) then a(n) = Sum (p_j + k_j).

Eric W. Weisstein,<a href="http://mathworld.wolfram.com/PrimeFactorization.html">Prime Factorization</a>

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]; A107737=tr[[1]]; A107738=tr[[2]]

Cf. A008474, A107737.

nonn

Zak Seidov (zakseidov(AT)yahoo.com), May 23 2005

approved