login
Differences between consecutive Chen primes.
1

%I #8 Oct 19 2021 21:33:00

%S 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,

%T 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,

%U 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

%N Differences between consecutive Chen primes.

%H Amiram Eldar, <a href="/A118776/b118776.txt">Table of n, a(n) for n = 1..10000</a>

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

%Y Cf. A001223, A109611.

%K nonn

%O 1,2

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