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.
lst={};Do[p=n^3;If[PrimeQ[p-2]&&PrimeQ[p+2],AppendTo[lst,p]],{n,1,8!,2}];lst
lst={};Do[p=n^3;If[PrimeQ[p-3]&&PrimeQ[p+3],AppendTo[lst,p]],{n,2,8!,2}];lst
Select[Range[1500]^3,AllTrue[#+{3,-3},PrimeQ]&] (* Harvey P. Dale, Nov 23 2022 *)
lst={};Do[p=n^2;If[PrimeQ[p-5]&&PrimeQ[p+5],AppendTo[lst,p]],{n,6,8!,6}];lst
Select[Range[1500]^2,AllTrue[#+{5,-5},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 20 2018 *)
lst={};Do[p=n^2;If[PrimeQ[p-3]&&PrimeQ[p+3],AppendTo[lst,p]],{n,7!}];lst
Select[Range[750]^2,And@@PrimeQ[#+{3,-3}]&] (* Harvey P. Dale, Dec 19 2012 *)
lst={};Do[p=n^2;If[PrimeQ[p-5]&&PrimeQ[p+5],AppendTo[lst,(p^(1/2))/6]],{n,6,8!,6}];lst
Sqrt[#]/6&/@Select[Range[5000]^2,AllTrue[#+{5,-5},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 20 2018 *)
lst={};Do[p=n^3;If[PrimeQ[p-5]&&PrimeQ[p+5],AppendTo[lst,p]],{n,2,2*7!,2}];lst
Select[Range[4300]^3,And@@PrimeQ[#+{5,-5}]&] (* Harvey P. Dale, Jun 19 2012 *)
Comments