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,1

Comments

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).

Links

Table of n, a(n) for n=1..59.

Eric Weisstein's World of Mathematics, Prime Factorization

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

Crossrefs

Cf. A008474, A107737.

Sequence in context: A205528 A021731 A084726 * A341628 A238048 A010624

Adjacent sequences: A107735 A107736 A107737 * A107739 A107740 A107741

Keyword

nonn

Author

Zak Seidov, May 23 2005

Status

approved