A155006 Primes p such that (p-2)*(p+2)-+2*p are primes.

5, 7, 13, 23, 37, 43, 73, 167, 233, 263, 433, 557, 587, 593, 607, 727, 857, 1153, 1597, 1627, 1753, 2143, 2663, 2713, 3433, 3607, 3863, 3947, 4027, 4363, 4423, 4673, 5147, 5477, 5623, 5807, 5903, 6277, 7237, 7333, 7577, 8287, 8647, 8837, 8887, 9043, 10067

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 18 2009

Keywords

• nonn

Comments

3*7-10=11, 3*7+10=31,...

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

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

Programs

Mathematica

lst={};Do[p=Prime[n];If[PrimeQ[(p-2)*(p+2)-2*p]&&PrimeQ[(p-2)*(p+2)+2*p],AppendTo[lst,p]],{n,7!}];lst
Select[Prime[Range[1500]],AllTrue[(#-2)(#+2)+{2#,-2#},PrimeQ]&] (* Harvey P. Dale, Jan 01 2025 *)