A107738 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

Offset: 1

Author

Zak Seidov, May 23 2005

Keywords

• nonn

Links

• Robert Price, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Prime Factorization

Crossrefs

Primes occurring in A008474.

Cf. A107737.

Programs

Mathematica

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]]