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

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,1

Comments

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

Links

Table of n, a(n) for n=1..31.

Example

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

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

Cf. A068902.

Sequence in context: A259637 A211688 A153672 * A249899 A009434 A228671

Adjacent sequences: A283050 A283051 A283052 * A283054 A283055 A283056

Keyword

nonn

Author

Robert Israel, Feb 27 2017

Extensions

More terms from Michael De Vlieger, Feb 27 2017

Status

approved