cp's OEIS Frontend

A365343 Record values of A087704.

%I A365343 #21 Sep 03 2023 08:43:35
%S A365343 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 A365343 66,71,73,75,80
%N A365343 Record values of A087704.
%C A365343 Numbers v = A087704(k) such that A087704(m) < v for 2 <= m < k.
%F A365343 a(n) = A087704(A365342(n)).
%e A365343 a(3) = 9 because A087704(10) = 9 and A087704(k) < 9 for 2 <= k < 10.
%p A365343 g:= x -> 5/3 * floor(x):
%p A365343 h:= proc(n) local i,k;
%p A365343   k:= g(n);
%p A365343   for i from 1 while not (k::integer and k > n) do k:= g(k) od:
%p A365343   i
%p A365343 end proc:
%p A365343 M:= 2: A:= 2: count:= 1:
%p A365343 for n from 3 while count < 17  do
%p A365343   v:= h(n);
%p A365343   if v > M then count:= count+1; A:= A,v; M:= v fi;
%p A365343 od:
%p A365343 A;
%Y A365343 Cf. A087704, A365342.
%K A365343 nonn,more
%O A365343 1,1
%A A365343 _Robert Israel_, Sep 01 2023
%E A365343 a(18)-a(21) from _Chai Wah Wu_, Sep 02 2023
%E A365343 a(22)-a(29) from _Martin Ehrenstein_, Sep 03 2023