%I #6 Nov 24 2019 09:58:33
%S 3,5,11,23,29,47,59,83,131,223,233,239,347,401,449,467,479,503,509,
%T 607,641,673,971,997,1013,1151,1163,1217,1249,1283,1301,1399,1409,
%U 1427,1451,1459,1481,1523,1601,1627,1709,1733,1787,1847,1889,1997,2039,2309,2441
%N Greater of two consecutive primes, p < q, such that p*q+p-q is prime.
%C 3*5-2=13, 7*11-4=73, 19*23-4=433, ...
%t lst={};Do[pp=Prime[n-1];p=Prime[n];d=p-pp;If[PrimeQ[pp*p-d],AppendTo[lst,p]],{n,2,7!}];lst
%Y Cf. A138111, A138170
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 11 2009
%E Edited by _Omar E. Pol_, Jan 12 2009
|