A127458 Numbers k such that there are no primes between k and k + k^(1/3).

3, 5, 7, 8, 13, 14, 19, 20, 23, 24, 25, 26, 31, 32, 33, 37, 43, 47, 48, 49, 53, 54, 55, 61, 62, 63, 73, 74, 83, 84, 89, 90, 91, 92, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 131, 139, 140, 141, 142, 143, 151, 157, 167, 173, 181, 182, 183, 184, 185, 199, 200, 201

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..2500

Mathematica

a = {}; Do[If[PrimePi[x + x^(1/3)] - PrimePi[x] == 0, AppendTo[a, x]], {x, 1, 2000}]; a

Prog

(PARI) is(n)=(nextprime(n+1)-n)^3>n \\ Charles R Greathouse IV, Dec 09 2014

Crossrefs

Cf. A127441, A127459.

Sequence in context: A309405 A354300 A032420 * A039003 A229860 A081453

Adjacent sequences: A127455 A127456 A127457 * A127459 A127460 A127461

Keyword

nonn

Author

Artur Jasinski, Jan 15 2007

Status

approved