A127441 Numbers n such that between n and n+sqrt(n) there are no primes.
3, 7, 8, 13, 23, 24, 31, 113, 114, 115, 116
Offset: 1
Links
- Wikipedia, Oppermann's conjecture
Programs
-
Mathematica
a = {}; Do[If[PrimePi[x + x^(1/2)] - PrimePi[x] == 0, AppendTo[a, x]], {x, 1, 249900000000000}]; a
-
PARI
isok(n) = primepi(n+sqrtint(n)) == primepi(n); \\ Michel Marcus, Nov 07 2013
Comments