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
Keywords
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 *)
Comments