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 A114461 #6 May 01 2021 15:56:07
%S A114461 1,2,3,5,4,7,10,16,6,8,22,12,9,14,20,11,41,26,19,35,21,23,13,15,28,37,
%T A114461 38,39,53,17,32,18,45,33,56,49,68,40,92,24,25,52,27,43,123,44,87,98,
%U A114461 177,100,29,30,63,31,67,69,88,71,54,34,73,36,57,76,77,252,80,118,85,121,165
%N A114461 Position in A112037 where the n-th prime appears.
%H A114461 Michael De Vlieger, <a href="/A114461/b114461.txt">Table of n, a(n) for n = 1..10000</a>
%t A114461 lst = {}; r[n_] := (len = Length@lst; lst = Flatten@ Join[lst, Select[First /@ FactorInteger[Prime@n - 1], ! MemberQ[lst, # ] &]]; If[l < Length@lst, 1, 0]); Do[ r[n], {n, 260}]; Table[Position[lst, Prime[n]], {n, 71}] // Flatten
%Y A114461 Cf. A112037, A112038.
%K A114461 nonn
%O A114461 1,2
%A A114461 _Robert G. Wilson v_, Nov 29 2005