|
%I #5 Jan 19 2016 09:49:30
%S 3,5,7,13,17,19,23,29,43,47,53,61,83,89,97,103,113,127,139,167,173,
%T 179,227,233,263,313,389,397,419,421,443,449,487,523,557,563,587,599,
%U 617,647,653,691,787,809,811,821,857,967,991,1021,1051,1103,1117,1153,1181
%N The larger member q in a pair of successive primes (p,q) such that p*q+p+q is prime.
%H Harvey P. Dale, <a href="/A162358/b162358.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A151800(A126148(n)).
%e q=3 is the larger member in (2,3) where 2*3+2+3=11 is prime.
%e q=5 is the larger member in (3,5) where 3*5+3+5=23 is prime.
%t lst={};Do[p=Prime[n]*Prime[n+1]+Prime[n]+Prime[n+1];If[PrimeQ[p],AppendTo[lst, Prime[n+1]]],{n,6!}];lst
%t Transpose[Select[Partition[Prime[Range[200]],2,1],PrimeQ[ Times@@#+ Total[ #]]&]] [[2]] (* _Harvey P. Dale_, Jan 19 2016 *)
%Y Cf. A096342, A126148
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 01 2009
%E Definition rephrased by _R. J. Mathar_, Sep 11 2009
|
