%I #9 Dec 21 2016 03:04:44
%S 23,37,42,46,50,56,58,61,69,75,77,78,80,85,92,105,107,110,116,119,122,
%T 129,133,137,138,140,143,145,147,149,152,153,157,159,162,165,168,172,
%U 174,175,178,180,182,184,188,190,192,195,201,203,205,210,216,219,222,225,228,229,232
%N Values of n for which the ratio A161865/A161867 is greater than 1/2.
%C The corresponding values of A161621/A161622 are less than 1/2. For given n, both sequences would not be simultaneously greater than 1/2, although both could be less than 1/2.
%H G. C. Greubel, <a href="/A163384/b163384.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[100], ((2 # + 1) - (PrimePi[(# + 1)^2] - PrimePi[#^2]))/((4 # + 4) - (PrimePi[(# + 2)^2] - PrimePi[#^2])) > 1/2 &] (* _G. C. Greubel_, Dec 20 2016 *)
%K nonn
%O 1,1
%A _Daniel Tisdale_, Jul 25 2009
%E Added missing term 58 and terms a(14) onward by _G. C. Greubel_, Dec 20 2016