A379774 Records in A379772.

1, 2, 3, 5, 6, 9, 10, 11, 13, 14, 16, 17, 18, 19, 23, 25, 26, 30, 33, 38, 42, 47, 48, 52, 57, 60, 61, 66, 73, 81, 86, 90, 93, 94, 98, 105, 112, 120, 124, 129, 132, 138, 143, 148, 154, 155, 177, 196, 203, 204, 225, 228, 244, 267, 269, 273, 282, 300, 318, 342, 345

Offset: 1

Author

Michael De Vlieger, Jan 04 2025

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..171

Crossrefs

Cf. A378767, A379772, A379773.

Programs

Mathematica

(* Load function f at A025487 *)
r = 0; s = Select[Union@ Flatten@ f[8][[3 ;; -1]], Not @* SquareFreeQ];
rad[x_] := Times @@ FactorInteger[x][[All, 1]]; nn = Length[s];
Reap[Do[k = s[[i]];
  If[# > r, r = #; Sow[r] ] &@
    Count[Transpose@ {#, k/#} &@ #[[2 ;; Ceiling[Length[#]/2]]] &@ Divisors[k],
      _?((m = GCD @@ {##};
      And[! MemberQ[{1, #1, #2}, m],
        And[PrimeNu[#1] < PrimeNu[#2], Divisible[#2, rad[#1]]] & @@
        SortBy[{##}, PrimeNu]]) & @@ # &)], {i, nn}] ][[-1, 1]]