%I #2 Mar 31 2012 12:38:35
%S 5,11,1061,2111,3371,3851,5867,9461,12251,21491,22037,22481,24917,
%T 26681,28277,32141,42641,43607,48731,56477,59417,59627,67271,67757,
%U 70487,77417,86531,87221,91127,104147,113621,115151,116687,119291,121577
%N Lesser of twin primes p1 such that p1*p2+-6 are prime numbers.
%C 5*7=35+-6 -> primes,..
%t 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
%Y Cf. A001359, A174913, A174915, A174916, A174917, A174920, A174922
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 02 2010
|