A379754 Records in A379752.

1, 2, 3, 4, 6, 7, 9, 11, 12, 15, 16, 19, 21, 23, 27, 28, 37, 40, 47, 53, 57, 59, 66, 67, 69, 73, 79, 81, 85, 88, 92, 103, 117, 125, 133, 146, 147, 153, 165, 175, 185, 189, 197, 204, 227, 229, 237, 245, 269, 281, 289, 306, 311, 321, 349, 367, 393, 397, 417, 428

Offset: 1

Author

Michael De Vlieger, Jan 01 2025

Keywords

• nonn

Comments

See comments in A379752.

Links

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

Crossrefs

Cf. A379554, A379752, A379753.

Programs

Mathematica

(* Load function f at A025487 *)
r = 0;
s = Select[Union@ Flatten@ f[14][[4 ;; -1]], Not@*SquareFreeQ];
nn = Length[s]; Print[nn];
Reap[Do[k = s[[i]]; If[# > r, r = #; Sow[r]] &@
  Count[Transpose@ {#, k/#} &@ #[[2 ;; Ceiling[Length[#]/2] ]] &@ Divisors[k],
    _?(And[1 < GCD @@ {##},
       Nor[Divisible[#2, rad[#1]],
           Divisible[#1, rad[#2]] ] ] & @@ # &)], {i, nn}] ][[-1, 1]]