login
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
OFFSET
1,1
COMMENTS
5*7=35+-6 -> primes,..
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
KEYWORD
nonn
AUTHOR
STATUS
approved