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 A090121 #21 Feb 28 2021 13:07:50
%S A090121 2,129,189,369,435,549,555,561,819,1245,1491,1719,1779,1839,1875,1935,
%T A090121 2175,2289,2415,2451,2595,2709,2769,3141,3441,4401,4611,4851,5655,
%U A090121 5775,6075,6099,6795,6969,7125,7239,7365,8109,8139,8325,8361,8385,8535,8685,9591
%N A090121 Numbers n such that nextprime(n^3)-prevprime(n^3) = 4.
%H A090121 Chai Wah Wu, <a href="/A090121/b090121.txt">Table of n, a(n) for n = 1..10000</a>
%F A090121 Solutions to A077038(x) = 4.
%e A090121 n=129:{p=2146687,n^3=2146689,q=2146691}, q-p=4.
%t A090121 pre[x_] := Prime[PrimePi[x]] nex[x_] := Prime[PrimePi[x]+1] de[x_] := Prime[PrimePi[x]+1]-Prime[PrimePi[x]] k=3;Do[If[Equal[Prime[PrimePi[n^k]+1]-Prime[PrimePi[n^k]], 4], Print[n]], {n, 2, 100000}]
%t A090121 lst={};Do[m=n^3;If[PrimeQ[m-2]&&PrimeQ[m+2],AppendTo[lst,n]],{n,0,10^5}];lst (* _Vladimir Joseph Stephan Orlovsky_, Sep 04 2008 *)
%t A090121 Select[Range[2,6100],NextPrime[#^3]-NextPrime[#^3,-1]==4&] (* _Harvey P. Dale_, Sep 17 2017 *)
%o A090121 (PARI) is(n)=if(n%2, isprime(n^3-2) && isprime(n^3+2), n==2) \\ _Charles R Greathouse IV_, Feb 22 2018
%Y A090121 Cf. A077038, A058043, A090122-A090125, A178228.
%K A090121 nonn
%O A090121 1,1
%A A090121 _Labos Elemer_, Jan 12 2004
%E A090121 More terms from _Harvey P. Dale_, Sep 17 2017