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 A101985 #17 Sep 30 2019 10:13:23
%S A101985 11,42,93,110,113,156,186,196,197,220,252,292,298,362,403,429,493,503,
%T A101985 609,644,659,727,735,778,790,886,888,920,932,952,953,1008,1023,1024,
%U A101985 1079,1093,1094,1100,1109,1136,1165,1208,1212,1213,1226,1238,1250,1311
%N A101985 Numbers that occur exactly once in A289493 (= number of primes between 2n and 3n).
%t A101985 f[n_] := PrimePi[3n] - PrimePi[2n]; t = Split[ Sort[ Table[ f[n], {n, 14000}] ]]; Flatten[ Select[t, Length[ # ] == 1 &]] (* _Robert G. Wilson v_, Feb 10 2005 *)
%o A101985 (PARI) bet2n3n(n)={ my(b=vecsort( vector(n,x, my(c=0); forprime(y=2*x+1,3*x-1, c++); c))); for(x=1,n-2, if(b[x+1]>b[x] && b[x+1]<b[x+2], print1(b[x+1]",")))} \\ Probably using A289493 and/or primepi(3n)-primepi(2n) would be faster. Edited and corrected by _M. F. Hasler_, Sep 29 2019
%o A101985 (PARI) \\ Size of vector dependent on how pessimistic one is on smoothness of primepi
%o A101985 primecount(a, b)=primepi(b)-primepi(a);
%o A101985 v=vector(14000);
%o A101985 for(k=1, oo, j=primecount(2*k, 3*k); if(j>#v, break, v[j]++));
%o A101985 for(k=1, 1311, if(v[k]==1, print1(k, ", "))) \\ _Hugo Pfoertner_, Sep 29 2019
%Y A101985 Cf. A289493, A101984.
%K A101985 easy,nonn
%O A101985 1,1
%A A101985 _Cino Hilliard_, Jan 29 2005
%E A101985 More terms from _Robert G. Wilson v_, Feb 10 2005
%E A101985 Name edited by _M. F. Hasler_, Sep 29 2019