login
A155007
Primes p such that (p-3)*(p+3)-+3*p are primes.
3
7, 17, 37, 113, 157, 227, 283, 293, 313, 347, 443, 587, 787, 883, 1063, 1097, 1237, 1303, 1327, 1427, 1567, 1723, 1933, 1973, 2087, 2347, 2467, 2687, 2777, 3457, 3593, 4447, 4703, 4793, 4967, 5737, 5827, 6317, 6607, 6793, 6857, 8297, 8563, 8803, 9433
OFFSET
1,1
COMMENTS
4*10-3*7=19, 4*10+3*7=61, ...
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[(p-3)*(p+3)-3*p]&&PrimeQ[(p-3)*(p+3)+3*p], AppendTo[lst, p]], {n, 7!}]; lst
KEYWORD
nonn
AUTHOR
STATUS
approved