This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A078577 #11 Nov 03 2019 06:47:24 %S A078577 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 A078577 37,29,19,108,112,23,19,142,33,29,22,29,52,22,67,27,20,51,79,53,43,25, %U A078577 31,29,37,42,76,21,146,288,53,156,27,318,37,28,48,33,352,41,26,81,32 %N A078577 Sum of all prime factors of the average of n-th twin prime pair. %H A078577 Amiram Eldar, <a href="/A078577/b078577.txt">Table of n, a(n) for n = 1..10000</a> %F A078577 a(n) = A001414(A014574(n)). %e A078577 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 A078577 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 A078577 Cf. A001414, A014574, A078576, A078575, A078571. %K A078577 nonn %O A078577 1,1 %A A078577 _Reinhard Zumkeller_, Nov 29 2002