This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A366929 #31 Nov 15 2023 08:05:36
%S A366929 1,2,3,7,23,47,139,283,659,1319,8637,20147,83491,169861,999013,
%T A366929 3797401,8153567,55443959,187814447,646611887
%N A366929 Indices of records in A366927.
%C A366929 The primes may not be in order. a(3) = 7, but the three primes are 2, 3, and 7.
%t A366929 r = 0;
%t A366929 s = Array[-1 + CountDistinct@ Rest@ NestWhileList[{#1 - #1/#2, #2} & @@ {First[#], FactorInteger[First[#]][[1, 1]]} &, {#, #}, Last[#] > 1 &][[All, -1]] &, 2^16, 2];
%t A366929 {1}~Join~Reap[Do[If[# > r, r = #; Sow[i + 1]] &[s[[i]]], {i, Length[s]}] ][[-1, 1]] (* _Michael De Vlieger_, Nov 08 2023 *)
%Y A366929 Cf. A366927.
%K A366929 nonn,more
%O A366929 1,2
%A A366929 _Robert G. Wilson v_, Oct 31 2023