%I #2 Mar 31 2012 12:38:19
%S 19,37,67,151,367,859,1471,2791,2971,3061,4357,4447,4507,6367,7159,
%T 7237,7591,8311,8647,11617,12211,12601,13249,14947,15271,15661,16699,
%U 18097,19777,20149,20347,20947,21019,22741,23311,23857,24019,25867,26701
%N Primes p such that (p-1)*p*(p+1)-p+2 and (p-1)*p*(p+1)+p-2 are primes.
%t lst={};Do[p=Prime[n];If[PrimeQ[(p-1)*p*(p+1)-p+2]&&PrimeQ[(p-1)*p*(p+1)+p-2],AppendTo[lst,p]],{n,8!}];lst
%Y Cf. A053184, A038872, A141158, A038615, A098058, A038936, A089270, A140559, A154939, A154942
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 17 2009