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 A112928 #12 Sep 11 2017 19:48:02
%S A112928 3,5,13,19,61,73,101,109,151,181,193,199,229,241,271,313,349,353,421,
%T A112928 433,523,601,661,811,829,883,1021,1033,1051,1063,1093,1153,1279,1321,
%U A112928 1429,1451,1453,1489,1609,1621,1667,1669,1789,1873,1933,1951,1999,2029
%N A112928 Primes in sequence A112926.
%H A112928 Michael De Vlieger, <a href="/A112928/b112928.txt">Table of n, a(n) for n = 1..10000</a>
%p A112928 with(numtheory): a:=proc(n) local p,B,j: p:=ithprime(n): B:={}: for j from p+1 to p+20 do if abs(mobius(j))>0 then B:=B union {j} else B:=B fi od: B[1] end: A:=[seq(a(m),m=1..400)]: b:=proc(k) if isprime(A[k])=true then A[k] else fi end: seq(b(i),i=1..400); # _Emeric Deutsch_, Oct 14 2005
%t A112928 With[{k = 120}, Select[Table[SelectFirst[Range[Prime@ n + 1, Prime@ n + k], SquareFreeQ], {n, 300}], PrimeQ]] (* _Michael De Vlieger_, Sep 11 2017 *)
%Y A112928 Cf. A061400, A112925, A112926, A112929, A112930.
%K A112928 nonn
%O A112928 1,1
%A A112928 _Leroy Quet_, Oct 06 2005
%E A112928 More terms from _Emeric Deutsch_, Oct 14 2005