|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
|