login
A154711
Squares such that square-+5 are primes.
2
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,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
STATUS
approved