login
A127458
Numbers k such that there are no primes between k and k + k^(1/3).
2
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
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
Sequence in context: A309405 A354300 A032420 * A039003 A229860 A081453
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 15 2007
STATUS
approved