%I #6 Jun 18 2016 00:42:45

%S 2,5,19,53,71,79,89,113,157,167,199,311,359,439,521,541,587,593,613,

%T 769,947,977,1009,1097,1171,1223,1249,1289,1427,1447

%N Primes in A112265.

%t f[1] = 0; f[n_] := Plus @@ (#[[2]] First@ IntegerDigits[#[[1]]] & /@ FactorInteger[n]); Select[ Accumulate@ Array[f, 200], PrimeQ] (* _Giovanni Resta_, Jun 17 2016 *)

%K base,easy,nonn

%O 1,1

%A _Jonathan Vos Post_, Aug 30 2005

%E Corrected and extended by _Giovanni Resta_, Jun 17 2016