A088765 a(n) = A087696(n)/2.
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
Keywords
Links
- 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.
Programs
-
Magma
[n/2: n in [3..2000] |IsPrime(n+5) and IsPrime(n-5)]; // Vincenzo Librandi, May 20 2017
-
Mathematica
Select[Range[3, 2000], PrimeQ[# + 5] && PrimeQ[# - 5] &] / 2 (* Vincenzo Librandi, May 20 2017 *)
Extensions
Offset changed from 0 to 1 by Vincenzo Librandi, May 21 2017
Comments