A375707 -id:A375707 - cp's OEIS frontend

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

Gus Wiseman, Sep 15 2024

nonn

			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

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.

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

A376657 Number of integer factorizations of n into nonsquarefree factors > 1.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 2, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 2, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 4, 0, 0, 0, 1, 0, 0, 0, 3, 0, 0, 1, 1, 0, 0, 0, 2, 2, 0, 0, 1, 0, 0, 0

Offset: 1

Gus Wiseman, Oct 07 2024

nonn

			The a(n) factorizations for n = 16, 64, 72, 144, 192, 256, 288:
  (16)   (64)     (72)    (144)    (192)     (256)      (288)
  (4*4)  (8*8)    (8*9)   (4*36)   (4*48)    (4*64)     (4*72)
         (4*16)   (4*18)  (8*18)   (8*24)    (8*32)     (8*36)
         (4*4*4)          (9*16)   (12*16)   (16*16)    (9*32)
                          (12*12)  (4*4*12)  (4*8*8)    (12*24)
                          (4*4*9)            (4*4*16)   (16*18)
                                             (4*4*4*4)  (4*8*9)
                                                        (4*4*18)

For prime-powers we have A000688.
Positions of zeros are A005117 (squarefree numbers), complement A013929.
For squarefree instead of nonsquarefree we have A050320, strict A050326.
For nonprime numbers we have A050370.
The version for partitions is A114374.
For perfect-powers we have A294068.
For non-perfect-powers we have A303707.
For non-prime-powers we have A322452.
The strict case is A376679.
Nonsquarefree numbers:
- A078147 (first differences)
- A376593 (second differences)
- A376594 (inflections and undulations)
- A376595 (nonzero curvature)
A000040 lists the prime numbers, differences A001223.
A001055 counts integer factorizations, strict A045778.
A005117 lists squarefree numbers, differences A076259.
A317829 counts factorizations of superprimorials, strict A337069.
Cf. A008480, A053797, A053806, A061398, A089259, A120992, A124010, A182853, A373198, A375707, A376312.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],NoneTrue[SquareFreeQ]]],{n,100}]

cp's OEIS Frontend

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

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica