OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
68 is there because it is divisible by (71-67), but 70 has more divisors.
MAPLE
q:= 2: count:= 0: R:= NULL:
while count < 100 do
p:= q; q:= nextprime(p);
v:= q-p;
m:= max({seq(numtheory:-tau(i), i=p+1 .. q-1)});
S:= select(t -> numtheory:-tau(t) < m, [seq(i*v, i=ceil((p+1)/v) .. floor((q-1)/v))]);
count:= count + nops(S);
R:= R, op(S)
od:
R; # Robert Israel, Jun 03 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 07 2005
EXTENSIONS
Edited by Don Reble, Nov 07 2005
STATUS
approved