OFFSET
1,1
EXAMPLE
The maximal runs of nonsquarefree numbers begin:
4
8 9
12
16
18
20
24 25
27 28
32
36
40
44 45
48 49 50
MATHEMATICA
Max/@Split[Select[Range[100], !SquareFreeQ[#]&], #1+1==#2&]//Most
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 15 2024
STATUS
approved