%I #9 Aug 03 2015 04:21:22
%S 3,2,41,211,23,83,43,23,7,3,601,109,23,251,31,251,7,41,149,157,293,3,
%T 103,41,2083,233,7,647,1877,7,1117,599,7,937,487,7,251,149,7,439,83,3,
%U 7,43,643,7,157,157,1291,7
%N Least prime p such that 2 + 3*pi(p*n) = 4*pi(q*n) for some prime q, where pi(x) denotes the number of primes not exceeding x.
%C Conjecture: Let a and b be relatively prime positive integers, and let c be any integer. For any positive integer n, there are primes p and q such that a*pi(p*n) - b*pi(q*n) = c.
%C In the case c = 0, this reduces to the conjecture in A260232.
%C For example, for a = 20, b = 19, c = 18 and n = 28, we have 20*pi(4549*28)-19*pi(4813*28) = 20*11931-19*12558 = 18 with 4549 and 4813 both prime.
%H Zhi-Wei Sun, <a href="/A260888/b260888.txt">Table of n, a(n) for n = 1..600</a>
%H Zhi-Wei Sun, <a href="/A260888/a260888.txt">Checking the conjecture for a,b,c = 1..20 and n = 1..30</a>
%H Zhi-Wei Sun, <a href="http://arxiv.org/abs/1211.1585">Conjectures involving primes and quadratic forms</a>, arXiv:1211.1588 [math.NT], 2012-2015.
%e a(5) = 23 since 2+3*pi(23*5) = 2+3*30 = 92 = 4*23 = 4*pi(17*5) with 23 and 17 both prime.
%t f[k_,n_]:=PrimePi[Prime[k]*n]
%t Do[k=0;Label[bb];k=k+1;If[Mod[3*f[k,n]+2,4]>0,Goto[bb]];Do[If[(3*f[k,n]+2)/4==f[j,n],Goto[aa]];If[(3*f[k,n]+2)/4<f[j,n],Goto[bb]];Continue,{j,1,k}];Label[aa];Print[n," ", Prime[k]];Continue,{n,1,50}]
%Y Cf. A000040, A000720, A260140, A260232, A260886.
%K nonn
%O 1,1
%A _Zhi-Wei Sun_, Aug 02 2015