login
A137367
Subset of A037165 (p(n)*p(n+1)-p(n)-p(n+1)) for twin primes.
2
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,1
LINKS
EXAMPLE
3*5-3-5=7, 5*7-5-7=23, 11*13-11-13=119.
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 *)
CROSSREFS
Cf. A037165.
Sequence in context: A154113 A340889 A053706 * A267926 A228698 A064640
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 09 2008
STATUS
approved