A155008 Primes p such that (p-a)*(p+a)-+a*p are primes,a=4.

3, 5, 7, 11, 19, 29, 31, 59, 101, 139, 239, 271, 829, 1031, 1201, 1439, 1511, 1531, 2251, 2609, 3929, 4349, 4969, 5449, 5639, 5711, 5801, 5881, 5981, 6521, 6569, 6701, 6949, 6959, 8221, 8831, 9001, 9181, 9209, 9419, 9511, 9929, 10139, 10711, 11839, 11981

Offset

1,1

Comments

3*11-28=5, 3*11+28=61, ...

Links

Table of n, a(n) for n=1..46.

Mathematica

lst={}; Do[p=Prime[n]; If[PrimeQ[(p-4)*(p+4)-4*p]&&PrimeQ[(p-4)*(p+4)+4*p], AppendTo[lst, p]], {n, 7!}]; lst
Select[Prime[Range[1500]], AllTrue[(#-4)(#+4)+{4#, -4#}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 27 2020 *)

Crossrefs

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

Sequence in context: A071997 A093442 A364920 * A367195 A175196 A077858

Adjacent sequences: A155005 A155006 A155007 * A155009 A155010 A155011

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 18 2009

Status

approved