login
Primes p for which there are exactly as many primes in the range [p^2, p*nextprime(p)] as there are in the range [p*nextprime(p), nextprime(p)^2], where nextprime(p) gives the next prime after prime p.
5

%I #15 Mar 31 2015 00:28:12

%S 2,29,43,59,71,463,601,881,1049,1103,1171,1451,2311,2591,2689,2693,

%T 2777,3083,3089,3917,8543,12889,13007,13799,13873,13877,15497,18457,

%U 19477,20369,23017,25073,26641,29179,32801,33757,35327,41647,43987,46279,47041,49211,51577,63113

%N Primes p for which there are exactly as many primes in the range [p^2, p*nextprime(p)] as there are in the range [p*nextprime(p), nextprime(p)^2], where nextprime(p) gives the next prime after prime p.

%F a(n) = A000040(A256471(n)).

%e For p=2, we have in the range [2*2, 2*3] just one prime {5}, and also in the latter range [2*3, 3*3] just one prime {7}, thus 2 is included in the sequence.

%t Select[Prime@ Range@ 500, Count[Range[#^2, # NextPrime[#]], _?PrimeQ] == Count[Range[# NextPrime[#], NextPrime[#]^2], _?PrimeQ] &] (* _Michael De Vlieger_, Mar 30 2015 *)

%o (Scheme) (define (A256472 n) (A000040 (A256471 n)))

%Y Subsequence of A256484.

%Y Cf. A000040, A256471, A256473.

%K nonn

%O 1,1

%A _Antti Karttunen_, Mar 30 2015