OFFSET
1,1
COMMENTS
Numbers n for which n*floor(ceiling(prime(n+1)/(n+1))*(1+1/n)) < prime(n).
MATHEMATICA
Flatten@ Position[Differences@ Table[n Ceiling[Prime@ n/n], {n, 10^7}], k_ /; k <= 0] (* Michael De Vlieger, Feb 27 2017 *)
PROG
(MATLAB)
P = primes(10^8);
N = numel(P);
R = [1:N] .* ceil(P ./ [1:N]);
Rd = R(2:end) - R(1:end-1);
find(Rd <= 0)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Feb 27 2017
EXTENSIONS
More terms from Michael De Vlieger, Feb 27 2017
STATUS
approved