A176915 - OEIS

%I #8 Nov 21 2013 12:50:03

%S 2,4,9,15,27,39,56,67,99,103,135,146,175,185,194,224,234,265,279,307,

%T 344,415,425,458,518,566,594,615,639,655,804,819,823,854,877,1015,

%U 1027,1045,1058,1087,1143,1226,1274,1286,1298,1314,1423,1447,1478,1482,1603

%N Average of n-th twin prime pair minus total number of prime factors of average of n-th twin prime pair.

%C Prime factors are counted with multiplicity. [from Harvey P. Dale, Aug 19 2011]

%F a(n)=A014574(n)-A078571(n).

%t f[n_]:=Module[{mn=Mean[n]},mn-PrimeOmega[mn]]; f/@Select[Partition[ Prime[ Range[300]],2,1],Last[#]-First[#]==2&] (* _Harvey P. Dale_, Aug 19 2011 *)

%K nonn

%O 1,1

%A _Juri-Stepan Gerasimov_, Apr 28 2010

%E Formula index, a(8), a(15) and a(23) corrected by _R. J. Mathar_, May 01 2010