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 A176915 #17 Sep 01 2025 04:31:47
%S A176915 2,4,9,15,27,39,56,67,99,103,135,146,175,185,194,224,234,265,279,307,
%T A176915 344,415,425,458,518,566,594,615,639,655,804,819,823,854,877,1015,
%U A176915 1027,1045,1058,1087,1143,1226,1274,1286,1298,1314,1423,1447,1478,1482,1603
%N A176915 Average of n-th twin prime pair minus total number of prime factors of average of n-th twin prime pair.
%C A176915 Prime factors are counted with multiplicity. - _Harvey P. Dale_, Aug 19 2011
%H A176915 Robert Israel, <a href="/A176915/b176915.txt">Table of n, a(n) for n = 1..10000</a>
%F A176915 a(n) = A014574(n)-A078571(n).
%F A176915 a(n) = A069345(A014574(n)). - _Jason Yuen_, Sep 01 2025
%p A176915 TP:= select(t -> isprime(t) and isprime(t+2), [3, seq(i,i=5..2000,6)]):
%p A176915 map(t -> t+1 - numtheory:-bigomega(t+1), P1); # _Robert Israel_, Dec 31 2024
%t A176915 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 *)
%Y A176915 Cf, A014574, A069345, A078571.
%K A176915 nonn,easy,changed
%O A176915 1,1
%A A176915 _Juri-Stepan Gerasimov_, Apr 28 2010
%E A176915 Formula index, a(8), a(15) and a(23) corrected by _R. J. Mathar_, May 01 2010