A118776 Differences between consecutive Chen primes.

1, 2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 6, 6, 6, 8, 4, 12, 6, 12, 6, 2, 4, 14, 4, 6, 2, 10, 8, 10, 12, 2, 10, 6, 2, 12, 16, 6, 6, 12, 6, 6, 6, 12, 12, 14, 4, 6, 20, 10, 6, 6, 20, 10, 12, 8, 10, 12, 12, 6, 12, 6, 12, 8, 4, 8, 4, 6, 12, 20, 16, 6, 6, 2, 6, 10, 12, 18, 14, 10, 6, 6, 6, 18, 6, 18, 18, 24

Offset: 1

Author

Luc Stevens (lms022(AT)yahoo.com), May 22 2006

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001223, A109611.

Programs

Mathematica

chenQ[n_] := PrimeQ[n] && PrimeOmega[n + 2] < 3; Differences@ Select[Range[750], chenQ] (* Amiram Eldar, Oct 19 2021 *)