OFFSET
1,1
COMMENTS
These quartets seem to correspond to larger Prime gaps: the larger the primes gaps the more runs of odd nonprimes.
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
Roger L. Bagula, May 20 2007
STATUS
approved
