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,1

Links

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

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

Adjacent sequences: A137364 A137365 A137366 * A137368 A137369 A137370

Keyword

nonn

Author

Zak Seidov, Apr 09 2008

Status

approved