|
%I #9 Nov 17 2018 21:51:08
%S 3,6,8,12,14,18,20,20,20,24,30,32,38,38,38,42,44,48,54,54,54,60,62,62,
%T 62,62,62,68,72,74,80,80,80,80,80,84,90,90,90,98,102,104,108,108,108,
%U 110,114,114,114,114,114,128,132,132,132,132,132,138,140,150,152,152
%N Least integer k > n such that the number of primes between 1 and n (exclusive) is the same as the number of primes between n and k (exclusive).
%t Do[k = n + 1; While[Length[Select[Range[n - 1], PrimeQ]] != Length[Select[Range[n + 1, k - 1], PrimeQ]], k++ ]; Print[k], {n, 2, 100}] (* _Ryan Propper_, Sep 23 2006 *)
%t Table[Nest[NextPrime,n,PrimePi[n-1]]+1,{n,2,70}] (* _Harvey P. Dale_, May 19 2016 *)
%Y Cf. A092996, A092997, A077154.
%K easy,nonn
%O 2,1
%A _Amarnath Murthy_, Mar 29 2004
%E More terms from _Ryan Propper_, Sep 23 2006
|
