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 A283270 #13 Mar 06 2017 03:20:35 %S A283270 3,7,6,5,4,4,4,14,11,9,6,8,4,6,5,8,8,15,8,10,19,9,20,4,8,4,11,10,16,8, %T A283270 11,11,6,16,5,17,11,8,12,8,12,12,7,8,8,5,6,11,11,8,5,4,14,6,19,16,14, %U A283270 4,20,8,16,6,6,14,16,6,4,20,22,6,16,12,24,7,21,14 %N A283270 Smallest b-a such that a < prime(n)^3 < b, where a,b are semiprimes. %C A283270 This is the third sequence of the series defined in A283267. %H A283270 Charles R Greathouse IV, <a href="/A283270/b283270.txt">Table of n, a(n) for n = 1..10000</a> %t A283270 Table[Module[{m = Prime[n]^3, a, b}, a = m - 1; b = m + 1; While[PrimeOmega@ a != 2, a--]; While[PrimeOmega@ b != 2, b++]; b - a], {n, 120}] (* _Michael De Vlieger_, Mar 04 2017 *) %o A283270 (PARI) issemi(n)=bigomega(n)==2 %o A283270 a(n, p=prime(n))=my(a=p^3, b=p^3); while(!issemi(a--), ); while(!issemi(b++), ); b-a \\ _Charles R Greathouse IV_, Mar 06 2017 %Y A283270 Cf. A283267, A283268. %K A283270 nonn %O A283270 1,1 %A A283270 _Vladimir Shevelev_, Mar 04 2017 %E A283270 More terms from _Peter J. C. Moses_, Mar 04 2017