login
A283053
Numbers n such that A068902(n+1) <= A068902(n).
1
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).
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
KEYWORD
nonn
AUTHOR
Robert Israel, Feb 27 2017
EXTENSIONS
More terms from Michael De Vlieger, Feb 27 2017
STATUS
approved