|
|
|
|
1, 2, 6, 12, 13, 28, 33, 34, 57, 72, 76, 82, 89, 98, 99, 111, 121, 126, 131, 134, 166, 169, 202, 203, 208, 209, 211, 219, 224, 246, 252, 259, 301, 302, 317, 348, 383, 387, 394, 436, 439, 511, 512, 527, 572, 574, 642, 666, 667, 677, 726, 763, 769, 779, 792, 818
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
A154711 Squares such that square-+5 are primes.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|