OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 14 2009
STATUS
approved