A154711 Squares such that square-+5 are primes.

36, 144, 1296, 5184, 6084, 28224, 39204, 41616, 116964, 186624, 207936, 242064, 285156, 345744, 352836, 443556, 527076, 571536, 617796, 646416, 992016, 1028196, 1468944, 1483524, 1557504, 1572516, 1602756, 1726596, 1806336, 2178576

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 14 2009

Keywords

• nonn

Crossrefs

Cf. A144938, A154709, A154710

Programs

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 *)