A144140 Numbers n such that between n^K and (n+1)^K there are no primes, where K = 3/2.
10, 20, 24, 27, 32, 65, 121, 139, 141, 187, 306, 321, 348, 1006, 1051
Offset: 1
Keywords
Programs
-
Maple
select(n -> numtheory:-pi(floor((n+1)^(3/2))) = numtheory:-pi(ceil(n^(3/2)-1)), [$1..10000]); # Robert Israel, Feb 02 2016
-
Mathematica
a = {}; k = 3/2; Do[If[Length[Select[Range[Ceiling[n^k], Floor[(n + 1)^k]], PrimeQ]] == 0, Print[n]; AppendTo[a, n]], {n, 10000}]; a
Comments