|
%I #6 Jun 14 2014 14:19:58
%S 7,23,119,287,839,1679,3479,5039,10199,11447,18767,22199,32039,36479,
%T 38807,51527,57119,72359,78959,96719,120407,175559,185759,212519,
%U 271439,323759,358799,380687,410879,434279,654479,674039,683927,734447,776159
%N Subset of A037165 (p(n)*p(n+1)-p(n)-p(n+1)) for twin primes.
%H Harvey P. Dale, <a href="/A137367/b137367.txt">Table of n, a(n) for n = 1..1000</a>
%e 3*5-3-5=7, 5*7-5-7=23, 11*13-11-13=119.
%t ss={7};Do[If[PrimeQ[p1=6m-1]&&PrimeQ[p2=6m+1],p=-1-12 m+36 m^2;AppendTo[ss,p]],{m,300}];ss
%t Times@@#-Total[#]&/@Select[Partition[Prime[Range[200]],2,1],#[[2]]-#[[1]] == 2&] (* _Harvey P. Dale_, Jun 14 2014 *)
%Y Cf. A037165.
%K nonn
%O 1,1
%A _Zak Seidov_, Apr 09 2008
|
