|
|
A141279
|
|
Primes p such that p - 6^2, p - 6, p + 6 and p + 6^2 are also primes.
|
|
6
|
|
|
47, 53, 67, 73, 103, 233, 277, 353, 373, 607, 947, 977, 1187, 1223, 1487, 1663, 2683, 2693, 2713, 2963, 3307, 3733, 4457, 5443, 6323, 6863, 7523, 9007, 11903, 11933, 12107, 12547, 12583, 15313, 15767, 18217, 19427, 20107, 20753, 21523, 22073
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
pQ[n_]:=And@@PrimeQ[{n-36, n-6, n+6, n+36}]; Select[Prime[Range[10, 3000]], pQ] (* Harvey P. Dale, Feb 02 2011 *)
Select[Prime[Range[10, 3000]], AllTrue[#+{-36, -6, 6, 36}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 05 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|