|
%I #4 Dec 01 2016 17:18:59
%S 2,7,11,17,19,23,41,43,61,67,107,109,131,137,179,197,263,269,331,353,
%T 397,641,677,743,859,941,1163,1171,1213,1303,1319,1433,1447,1453,1543,
%U 1601,1783,2221,2351,2371,2417,2503,2657,2689,2791,2797,2909,3037,3301
%N Primes p such that (p-a)*(p+a)-+a*p are primes,a=5.
%C 1*12-35=-23, 1*12+35=47; 6*16-55=96-55=41, 6*16-55=96+55=151, ...
%H Harvey P. Dale, <a href="/A155009/b155009.txt">Table of n, a(n) for n = 1..1000</a>
%t 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
%t Select[Prime[Range[500]],AllTrue[(#-5)(#+5)+{5#,-5#},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 01 2016 *)
%Y Cf. A125272, A053184, A038872, A141158, A038615, A098058, A038936, A089270, A140559, A154939, A155006, A155007, A155008
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 18 2009
|
