OFFSET
2,1
LINKS
Robert Israel, Table of n, a(n) for n = 2..10000
EXAMPLE
a(4) = 11 because (11+13)/(2*4) = 3 is prime, and no smaller prime works.
MAPLE
V:= Vector(100): count:= 0:
q:= 3:
while count < 99 do
p:= q; q:= nextprime(q);
m:= (p+q)/2;
for r in numtheory:-factorset(m) do
v:= m/r;
if v <= 100 and V[v] = 0 then
count:= count+1; V[v]:= p;
fi
od
od:
convert(V[2..100], list);
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Sep 25 2022
STATUS
approved