A137367 Subset of A037165 (p(n)*p(n+1)-p(n)-p(n+1)) for twin primes.

7, 23, 119, 287, 839, 1679, 3479, 5039, 10199, 11447, 18767, 22199, 32039, 36479, 38807, 51527, 57119, 72359, 78959, 96719, 120407, 175559, 185759, 212519, 271439, 323759, 358799, 380687, 410879, 434279, 654479, 674039, 683927, 734447, 776159

Offset: 1

Author

Zak Seidov, Apr 09 2008

Keywords

• nonn

Examples

			3*5-3-5=7, 5*7-5-7=23, 11*13-11-13=119.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A037165.

Programs

Mathematica

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
Times@@#-Total[#]&/@Select[Partition[Prime[Range[200]],2,1],#[[2]]-#[[1]] == 2&] (* Harvey P. Dale, Jun 14 2014 *)