A088769 -id:A088769 - cp's OEIS frontend

A087678 Numbers n such that n + 9 and n - 9 are both prime.

14, 20, 22, 28, 32, 38, 50, 52, 62, 70, 80, 88, 92, 98, 118, 122, 140, 148, 158, 172, 182, 188, 190, 202, 220, 232, 242, 248, 260, 272, 302, 322, 340, 358, 388, 392, 410, 430, 440, 448, 452, 458, 470, 500, 512, 532, 578, 608, 610, 622, 650, 652, 668, 682, 692

Offset: 1

Zak Seidov, Sep 27 2003

Daniel Starodubtsev, Table of n, a(n) for n = 1..10000

Cf. A014574, A087679-A087683, A087695-A087697, A088769.

f[n_]:=PrimeQ[n-9]&&PrimeQ[n+9]; lst={};Do[If[f[n],AppendTo[lst,n]],{n,6,8!,2}];lst (* Vladimir Joseph Stephan Orlovsky, Oct 09 2009 *)
Select[Range[10,700],AllTrue[#+{9,-9},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 23 2019 *)

A088763 a(n) = A087695(n)/2.

Original entry on oeis.org

4, 5, 7, 8, 10, 13, 17, 20, 22, 25, 28, 32, 35, 38, 43, 50, 52, 53, 55, 67, 77, 80, 85, 88, 97, 98, 113, 115, 118, 127, 130, 133, 137, 140, 155, 157, 167, 175, 178, 185, 188, 193, 218, 223, 230, 232, 253, 272, 280, 283, 287, 295, 298, 302, 305, 308, 322, 325, 328, 340

Offset: 1

Ray Chandler, Oct 26 2003

nonn

A260689(a(n),1) = A264526(a(n)) = 3. - Reinhard Zumkeller, Nov 17 2015

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A087695, A040040, A088765, A088767, A088769.

Cf. A260689, A264526.

a088763 = flip div 2 . a087695  -- Reinhard Zumkeller, Nov 17 2015

ZL:=[]:for p from 1 to 700 do if (isprime(p) and isprime(p+6) ) then ZL:=[op(ZL),(p+(p+6))/4]; fi; od; print(ZL); # Zerinvary Lajos, Mar 07 2007

f[n_]:=PrimeQ[n-3]&&PrimeQ[n+3]; lst={};Do[If[f[n],AppendTo[lst,n]],{n,2,8!,2}];lst/2 (* Vladimir Joseph Stephan Orlovsky, Oct 09 2009 *)

Offset corrected by Reinhard Zumkeller, Nov 17 2015

A088765 a(n) = A087696(n)/2.

Original entry on oeis.org

4, 6, 9, 12, 18, 21, 24, 33, 39, 42, 51, 54, 66, 72, 81, 84, 93, 114, 117, 123, 138, 144, 156, 171, 177, 189, 192, 207, 213, 219, 222, 231, 252, 276, 291, 306, 318, 324, 339, 348, 357, 369, 378, 396, 408, 417, 429, 441, 462, 471, 486, 507, 513, 522, 528, 546

Offset: 1

Ray Chandler, Oct 26 2003

nonn

"Example 3: Ordinary twins 2a +- 1 for a = 2, 3, 6, 9, 15, . . . have D = 1 and are in class I. For D = 3, the twins 2a +- 3 occur for a = 4, 5, 7, 8, 10"; the latter is this sequence, from p. 3 of Weber. - Jonathan Vos Post, Feb 14 2011

Vincenzo Librandi, Table of n, a(n) for n = 1..3100
H. J. Weber, Exceptional Prime Number Twins, Triplets and Multiplets, arXiv:1102.3075 [math.NT], 2011.

Cf. A087696, A040040, A088763, A088767, A088769.

[n/2: n in [3..2000] |IsPrime(n+5) and IsPrime(n-5)]; // Vincenzo Librandi, May 20 2017

Select[Range[3, 2000], PrimeQ[# + 5] && PrimeQ[# - 5] &] / 2 (* Vincenzo Librandi, May 20 2017 *)

Offset changed from 0 to 1 by Vincenzo Librandi, May 21 2017

A088767 a(n) = A087697(n)/2.

Original entry on oeis.org

5, 6, 12, 15, 18, 27, 30, 33, 45, 48, 60, 72, 78, 87, 93, 102, 117, 132, 135, 138, 150, 162, 180, 183, 195, 213, 225, 228, 258, 282, 285, 297, 300, 303, 312, 327, 333, 342, 363, 375, 390, 402, 408, 423, 435, 480, 492, 495, 513, 528, 555, 558, 597, 612, 615, 642

Offset: 1

Ray Chandler, Oct 26 2003

nonn

Numbers n such that 2*n-7 [A089192] and 2*n+7 [A105760] are both prime. [Vincenzo Librandi, Jul 10 2010]

Cf. A087697, A040040, A088763, A088765, A088769.

Cf. A089192, A105760. [Vincenzo Librandi, Jan 18 2009]

cp's OEIS Frontend

A087678 Numbers n such that n + 9 and n - 9 are both prime.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A088763 a(n) = A087695(n)/2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

Extensions

A088765 a(n) = A087696(n)/2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

Extensions

A088767 a(n) = A087697(n)/2.

Views

Author

Keywords

Comments

Crossrefs