OFFSET
1,2
MAPLE
f:= proc(n) local s, t;
s:= convert(map(convert, ifactors(n)[2], `*`), `+`);
for t from 1 do
s:= n mod s;
if s = 0 then return t fi
od
end proc:
Res:= 1: count:= 1: vmax:= 0:
for n from 2 while count < 23 do
v:= f(n);
if v > vmax then
vmax:= v;
Res:= Res, n;
count:= count+1;
fi
od:
Res;
CROSSREFS
KEYWORD
nonn,more
AUTHOR
J. M. Bergot and Robert Israel, Nov 18 2019
EXTENSIONS
a(29)-a(32) from Michael S. Branicky, Jun 24 2024
STATUS
approved