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,2

Links

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

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]] ]

Crossrefs

Cf. A378767, A379772, A379773.

Sequence in context: A230044 A329269 A069861 * A047449 A162923 A107040

Adjacent sequences: A379771 A379772 A379773 * A379775 A379776 A379777

Keyword

nonn

Author

Michael De Vlieger, Jan 04 2025

Status

approved