A155007 Primes p such that (p-3)*(p+3)-+3*p are primes.

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, ...

Links

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

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

Crossrefs

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

Sequence in context: A348560 A338030 A211476 * A214634 A172156 A273947

Adjacent sequences: A155004 A155005 A155006 * A155008 A155009 A155010

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 18 2009

Status

approved