A283053 Numbers k such that A068902(k+1) <= A068902(k).

69, 181, 1052, 6457, 6460, 6466, 40083, 100362, 251707, 251722, 251736, 251741, 637236, 637322, 637326, 637333, 4124458, 4124467, 4124587, 10553439, 10553444, 10553454, 10553478, 10553502, 10553505, 10553547, 10553568, 10553573, 10553575, 10553818, 10553827

Offset: 1

Author

Robert Israel, Feb 27 2017

Keywords

• nonn

Comments

Numbers k for which k*floor(ceiling(prime(k+1)/(k+1))*(1+1/k)) < prime(k).

Examples

			For n=1, A068902(69) = 414 <= A068902(70) = 350.
		

Crossrefs

Cf. A068902.

Programs

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)

Mathematica

Flatten@ Position[Differences@ Table[n Ceiling[Prime@ n/n], {n, 10^7}], k_ /; k <= 0] (* Michael De Vlieger, Feb 27 2017 *)

Extensions

More terms from Michael De Vlieger, Feb 27 2017