OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
The maximal antiruns of nonsquarefree numbers begin:
4 8
9 12 16 18 20 24
25 27
28 32 36 40 44
45 48
49
50 52 54 56 60 63
64 68 72 75
76 80
81 84 88 90 92 96 98
99
The a(n)-th rows are:
49
4 8
148 150 152
64 68 72 75
28 32 36 40 44
9 12 16 18 20 24
81 84 88 90 92 96 98
477 480 484 486 488 490 492 495
6345 6348 6350 6352 6354 6356 6358 6360 6363
MATHEMATICA
t=Length/@Split[Select[Range[10000], !SquareFreeQ[#]&], #1+1!=#2&]//Most;
spna[y_]:=Max@@Select[Range[Length[y]], SubsetQ[t, Range[#1]]&];
Table[Position[t, k][[1, 1]], {k, spna[t]}]
CROSSREFS
For squarefree runs we have the triple (5,3,1), firsts of A120992.
For prime runs we have the triple (1,3,2), firsts of A175632.
For composite antiruns we have the triple (2,7,1), firsts of A373403.
Positions of first appearances in A373409.
The sorted version is A373574.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 10 2024
STATUS
approved