OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Prime Factorization
EXAMPLE
n = 104 OK because 104 = 2^3 * 13^1 => (2+3)+(13+1) = 19 is prime.
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]; A107738=tr[[2]]; A107737=tr[[1]]
Select[Range[2, 300], PrimeQ[Total[Flatten[FactorInteger[#]]]]&] (* Harvey P. Dale, Feb 05 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 23 2005
STATUS
approved