login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes p such that (p-a)*(p+a)-+a*p are primes,a=4.
2

%I #4 May 27 2020 14:59:39

%S 3,5,7,11,19,29,31,59,101,139,239,271,829,1031,1201,1439,1511,1531,

%T 2251,2609,3929,4349,4969,5449,5639,5711,5801,5881,5981,6521,6569,

%U 6701,6949,6959,8221,8831,9001,9181,9209,9419,9511,9929,10139,10711,11839,11981

%N Primes p such that (p-a)*(p+a)-+a*p are primes,a=4.

%C 3*11-28=5, 3*11+28=61, ...

%t lst={};Do[p=Prime[n];If[PrimeQ[(p-4)*(p+4)-4*p]&&PrimeQ[(p-4)*(p+4)+4*p],AppendTo[lst,p]],{n,7!}];lst

%t Select[Prime[Range[1500]],AllTrue[(#-4)(#+4)+{4#,-4#},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 27 2020 *)

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

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Jan 18 2009