login
Primes p such that (p-1)*p*(p+1)-p+2 and (p-1)*p*(p+1)+p-2 are primes.
0

%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