%I #21 Sep 03 2023 08:43:35

%S 2,4,9,10,12,17,23,29,30,32,34,38,39,40,42,43,44,47,49,52,56,57,61,62,

%T 66,71,73,75,80

%N Record values of A087704.

%C Numbers v = A087704(k) such that A087704(m) < v for 2 <= m < k.

%F a(n) = A087704(A365342(n)).

%e a(3) = 9 because A087704(10) = 9 and A087704(k) < 9 for 2 <= k < 10.

%p g:= x -> 5/3 * floor(x):

%p h:= proc(n) local i,k;

%p k:= g(n);

%p for i from 1 while not (k::integer and k > n) do k:= g(k) od:

%p i

%p end proc:

%p M:= 2: A:= 2: count:= 1:

%p for n from 3 while count < 17 do

%p v:= h(n);

%p if v > M then count:= count+1; A:= A,v; M:= v fi;

%p od:

%p A;

%Y Cf. A087704, A365342.

%K nonn,more

%O 1,1

%A _Robert Israel_, Sep 01 2023

%E a(18)-a(21) from _Chai Wah Wu_, Sep 02 2023

%E a(22)-a(29) from _Martin Ehrenstein_, Sep 03 2023