OFFSET
1,1
MAPLE
g:= x -> 5/3 * floor(x):
h:= proc(n) local i, k;
k:= g(n);
for i from 1 while not (k::integer and k > n) do k:= g(k) od:
i
end proc:
M:= 2: A:= 2: count:= 1:
for n from 3 while count < 17 do
v:= h(n);
if v > M then count:= count+1; A:= A, v; M:= v fi;
od:
A;
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert Israel, Sep 01 2023
EXTENSIONS
a(18)-a(21) from Chai Wah Wu, Sep 02 2023
a(22)-a(29) from Martin Ehrenstein, Sep 03 2023
STATUS
approved