|
|
A280009
|
|
Orders of consecutive clusters of Chen primes.
|
|
2
|
|
|
13, 3, 2, 2, 1, 8, 1, 1, 3, 3, 1, 2, 4, 1, 3, 1, 2, 2, 1, 1, 3, 1, 2, 1, 8, 1, 6, 1, 1, 2, 3, 2, 1, 1, 2, 2, 5, 3, 1, 3, 1, 2, 4, 4, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 3, 1, 1, 2, 5, 1, 3, 3, 1, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Length /@ DeleteCases[Split@ Table[Boole@ And[# != 1, PrimeOmega@ # <= 2] &[# + 2] &@ Prime@ n, {n, 300}], k_ /; Total@ k == 0] (* Michael De Vlieger, Feb 27 2017 *)
|
|
PROG
|
(PARI) do(lim)=my(v=List(), u=v, r, s=1); forprime(p=2, lim\2, forprime(q=2, min(lim\p, p), listput(u, p*q))); u=Set(u); r=3; forprime(p=5, lim, if(p-r==2 || setsearch(u, r+2), s++, if(s, listput(v, s); s=0)); r=p); u=0; Vec(v) \\ Charles R Greathouse IV, Feb 27 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|