A174955 Lesser of twin primes p1 such that p1*p2+-6 are prime numbers.

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

Author

Vladimir Joseph Stephan Orlovsky, Apr 02 2010

Keywords

• nonn

Comments

5*7=35+-6 -> primes,..

Crossrefs

Cf. A001359, A174913, A174915, A174916, A174917, A174920, A174922

Programs

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