login
A155009
Primes p such that (p-a)*(p+a)-+a*p are primes,a=5.
2
2, 7, 11, 17, 19, 23, 41, 43, 61, 67, 107, 109, 131, 137, 179, 197, 263, 269, 331, 353, 397, 641, 677, 743, 859, 941, 1163, 1171, 1213, 1303, 1319, 1433, 1447, 1453, 1543, 1601, 1783, 2221, 2351, 2371, 2417, 2503, 2657, 2689, 2791, 2797, 2909, 3037, 3301
OFFSET
1,1
COMMENTS
1*12-35=-23, 1*12+35=47; 6*16-55=96-55=41, 6*16-55=96+55=151, ...
LINKS
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[(p-5)*(p+5)-5*p]&&PrimeQ[(p-5)*(p+5)+5*p], AppendTo[lst, p]], {n, 7!}]; lst
Select[Prime[Range[500]], AllTrue[(#-5)(#+5)+{5#, -5#}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 01 2016 *)
KEYWORD
nonn
AUTHOR
STATUS
approved