login

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

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

%I #2 Mar 31 2012 12:38:19

%S 7,17,37,113,157,227,283,293,313,347,443,587,787,883,1063,1097,1237,

%T 1303,1327,1427,1567,1723,1933,1973,2087,2347,2467,2687,2777,3457,

%U 3593,4447,4703,4793,4967,5737,5827,6317,6607,6793,6857,8297,8563,8803,9433

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

%C 4*10-3*7=19, 4*10+3*7=61, ...

%t 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

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

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Jan 18 2009