OFFSET
1,2
COMMENTS
LINKS
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
52
54
56
60
63 64
The a(n)-th rows are:
4
8 9
48 49 50
242 243 244 245
844 845 846 847 848
For example, (48, 49, 50) is the first maximal run of 3 nonsquarefree numbers, so a(3) = 13.
MATHEMATICA
seq=Length/@Split[Select[Range[10000], !SquareFreeQ[#]&], #1+1==#2&];
spna[y_]:=Max@@Select[Range[Length[y]], SubsetQ[y, Range[#]]&];
Table[Position[seq, i][[1, 1]], {i, spna[seq]}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Jun 08 2024
STATUS
approved