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 A363997 #9 Aug 02 2023 11:49:16 %S A363997 1,2,3,4,6,7,9,5,10,8,12,15,16,19,14,21,11,22,24,18,27,20,30,31,17,34, %T A363997 36,37,40,28,42,45,49,51,13,26,52,54,55,38,57,32,64,33,44,66,23,46,69, %U A363997 35,70,25,50,75,76,79,41,82,56,84,29,58,87,60,90,91,48 %N A363997 Position in A088732 of the n-th prime. %C A363997 Every positive integer occurs exactly once. %e A363997 a(7) = 5 because the 7th prime, 19, is the 5th term in A088732. %t A363997 z= 200; t = Table[k = 1; While[p = n + k*(n + 1); ! PrimeQ[p], k++]; %t A363997 p, {n, 0, z}]; (* A088732, after _Frank M Jackson_ *) %t A363997 Flatten[Table[Position[t, Prime[n]], {n, 1, z}]] (* this sequence *) %Y A363997 Cf. A000040, A088732, A038780, A363998. %K A363997 nonn %O A363997 1,2 %A A363997 _Clark Kimberling_, Jul 11 2023