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 A361931 #14 Apr 09 2023 05:27:01
%S A361931 1,2,7,10,26,177,508,13812,73873,4638434,4638435,1874400183,
%T A361931 114936835817
%N A361931 a(n) is the smallest number k such that A361929(k) = prime(n), or -1 if no such prime exists.
%C A361931 It is conjectured that all primes appear in A361929.
%t A361931 K = {2}; R = {1}; r = 2; z = 1; While[Length@R < 9, z++; p = 2; While[MemberQ[K[[Length@K - GCD[z - 1, Last@K] + 1 ;; Length@K]], p], p = NextPrime[p]]; AppendTo[K, p]; If[p > r, AppendTo[R, z]; r = p]; If[Length@K > NextPrime[r], K = K[[Length@K - NextPrime[r] ;; Length@K]]]]; Print[R]
%Y A361931 Cf. A361929.
%K A361931 nonn,more
%O A361931 1,2
%A A361931 _Samuel Harkness_, Mar 30 2023
%E A361931 a(12)-a(13) from _Kevin Ryde_, Apr 01 2023