A155009 Primes p such that (p-a)*(p+a)-+a*p are primes,a=5.

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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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 *)

Crossrefs

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

Sequence in context: A362770 A166005 A243009 * A045371 A356003 A063205

Adjacent sequences: A155006 A155007 A155008 * A155010 A155011 A155012

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 18 2009

Status

approved