A376164 Maximum of the n-th maximal run of nonsquarefree numbers (increasing by 1 at a time).

4, 9, 12, 16, 18, 20, 25, 28, 32, 36, 40, 45, 50, 52, 54, 56, 60, 64, 68, 72, 76, 81, 84, 88, 90, 92, 96, 100, 104, 108, 112, 117, 121, 126, 128, 132, 136, 140, 144, 148, 150, 153, 156, 160, 162, 164, 169, 172, 176, 180, 184, 189, 192, 196, 198, 200, 204, 208

Offset: 1

Author

Gus Wiseman, Sep 15 2024

Keywords

• nonn

Examples

			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
		

Crossrefs

For length instead of maximum we have A053797 (firsts A373199).

For lengths of anti-runs we have A373409 (firsts A373573).

For sum instead of maximum we have A373414, anti A373412.

For minimum instead of maximum we have A053806, anti A373410.

For anti-runs instead of runs we have A068781.

For squarefree instead of nonsquarefree we have A373415, anti A007674.

For nonprime instead of nonsquarefree we have A006093 with 2 removed.

A005117 lists the squarefree numbers, first differences A076259.

A013929 lists the nonsquarefree numbers, differences A078147, sums A329472.

A061398 counts squarefree numbers between primes, nonsquarefree A061399.

A120992 gives squarefree run-lengths, anti A373127 (firsts A373128).

A373413 adds up each maximal run of squarefree numbers, min A072284.

A375707 counts squarefree numbers between consecutive nonsquarefree numbers.

Cf. A000040, A020754, A045882, A049094, A054265, A077641, A101836, A143658, A294242, A375709.

Programs

Mathematica

Max/@Split[Select[Range[100],!SquareFreeQ[#]&],#1+1==#2&]//Most