|
|
A174955
|
|
Lesser of twin primes p1 such that p1*p2+-6 are prime numbers.
|
|
2
|
|
|
5, 11, 1061, 2111, 3371, 3851, 5867, 9461, 12251, 21491, 22037, 22481, 24917, 26681, 28277, 32141, 42641, 43607, 48731, 56477, 59417, 59627, 67271, 67757, 70487, 77417, 86531, 87221, 91127, 104147, 113621, 115151, 116687, 119291, 121577
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
5*7=35+-6 -> primes,..
|
|
LINKS
|
|
|
MATHEMATICA
|
lst={}; Do[p1=Prime[n]; p2=p1+2; If[PrimeQ[p2]&&PrimeQ[p1*p2+6]&&PrimeQ[p1*p2-6], (*Print[p1]; *)AppendTo[lst, p1]], {n, 8!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|