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

19, 37, 67, 151, 367, 859, 1471, 2791, 2971, 3061, 4357, 4447, 4507, 6367, 7159, 7237, 7591, 8311, 8647, 11617, 12211, 12601, 13249, 14947, 15271, 15661, 16699, 18097, 19777, 20149, 20347, 20947, 21019, 22741, 23311, 23857, 24019, 25867, 26701

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 17 2009

Keywords

• nonn

Crossrefs

Cf. A053184, A038872, A141158, A038615, A098058, A038936, A089270, A140559, A154939, A154942

Programs

Mathematica

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