OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
The maximal runs of composite numbers begin:
4
6
8 9 10
12
14 15 16
18
20 21 22
24 25 26 27 28
30
32 33 34 35 36
38 39 40
42
44 45 46
48 49 50 51 52
54 55 56 57 58
60
62 63 64 65 66
68 69 70
72
74 75 76 77 78
80 81 82
84 85 86 87 88
90 91 92 93 94 95 96
98 99 100
The a(n)-th rows are:
4
8 9 10
24 25 26 27 28
90 91 92 93 94 95 96
114 115 116 117 118 119 120 121 122 123 124 125 126
140 141 142 143 144 145 146 147 148
200 201 202 203 204 205 206 207 208 209 210
MATHEMATICA
t=Length/@Split[Select[Range[10000], CompositeQ], #1+1==#2&]//Most;
Select[Range[Length[t]], FreeQ[Take[t, #-1], t[[#]]]&]
CROSSREFS
For squarefree runs we have the triple (1,3,5), firsts of A120992.
For prime runs we have the triple (1,2,3), firsts of A175632.
For composite runs we have the triple (1,2,7), firsts of A373403.
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 10 2024
STATUS
approved