OFFSET
1,2
COMMENTS
A154711 Squares such that square-+5 are primes.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 14 2009
STATUS
approved