|
|
A141280
|
|
Primes p such that p-6^3, p-6^2, p-6, p, p+6, p+6^2 and p+6^3 are primes.
|
|
4
|
|
|
233, 353, 977, 1663, 2693, 4457, 5443, 11933, 20107, 23333, 23893, 41263, 108923, 110813, 294347, 554633, 730783, 748603, 851387, 928643, 1005013, 1008193, 1020043, 1150873, 1194763, 1326313, 1427963, 1477103, 2161337, 2212003
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
p6Q[n_]:=With[{c=6^Range[3]}, AllTrue[Join[n+c, n-c], PrimeQ]]; Select[ Prime[ Range[ 50, 200000]], p6Q] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 06 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|