login
A155008
Primes p such that (p-a)*(p+a)-+a*p are primes,a=4.
2
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, ...
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 *)
KEYWORD
nonn
AUTHOR
STATUS
approved