|
|
A129823
|
|
Four consecutive nonprime odd numbers {n-1,n+1,n+3,n+5}.
|
|
0
|
|
|
115, 117, 119, 121, 117, 119, 121, 123, 119, 121, 123, 125, 141, 143, 145, 147, 183, 185, 187, 189, 201, 203, 205, 207, 203, 205, 207, 209, 213, 215, 217, 219, 215, 217, 219, 221, 243, 245, 247, 249, 285, 287, 289, 291, 295, 297, 299, 301, 297, 299, 301
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
These quartets seem to correspond to larger Prime gaps: the larger the primes gaps the more runs of odd nonprimes.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = {n-1,n+1,n+3,n+5} for both odd and both nonprime.
|
|
MATHEMATICA
|
Flatten[Table[If[OddQ[n - 1] && PrimeQ[n - 1] == False && PrimeQ[n + 1] == False && PrimeQ[n + 3] == False && PrimeQ[n + 5] == False, {{n - 1}, {n + 1}, {n + 3}, (n + 5)}, {}], {n, 2, 300}]]
Select[Partition[Range[1, 311, 2], 4, 1], NoneTrue[#, PrimeQ]&]//Flatten (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 21 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|