%I #11 Nov 03 2019 06:47:24
%S 4,5,7,8,10,12,12,12,22,13,28,15,15,15,19,26,16,16,52,22,36,19,17,23,
%T 37,29,19,108,112,23,19,142,33,29,22,29,52,22,67,27,20,51,79,53,43,25,
%U 31,29,37,42,76,21,146,288,53,156,27,318,37,28,48,33,352,41,26,81,32
%N Sum of all prime factors of the average of n-th twin prime pair.
%H Amiram Eldar, <a href="/A078577/b078577.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A001414(A014574(n)).
%e 12th twin prime pair = (A001359(12), A006512(12)) = (149,151), hence A014574(12) = 150 = 2*3*5*5, therefore a(12) = 2+3+5+5 = 15.
%t midQ[n_] := PrimeQ[n-1] && PrimeQ[n+1]; f[n_] := Plus @@ Times @@@ FactorInteger[n]; f /@ Select[Range[2500], midQ] (* _Amiram Eldar_, Nov 03 2019 *)
%Y Cf. A001414, A014574, A078576, A078575, A078571.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Nov 29 2002