cp's OEIS Frontend

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.

A283270 Smallest b-a such that a < prime(n)^3 < b, where a,b are semiprimes.

This page as a plain text file.
%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