A379594 - OEIS

%I #6 Jan 01 2025 01:48:02

%S 1,2,3,4,5,6,7,8,9,10,11,12,14,15,17,18,19,20,21,23,24,27,28,29,31,32,

%T 34,35,36,39,41,44,47,48,49,53,55,59,62,63,71,72,74,83,84,89,95,96,

%U 104,107,111,119,120,125,127,134,139,143,149,159,161,167,179,180

%N Records in A379592.

%C See comments in A379593.

%C Compare with A036965 and A379554.

%H Michael De Vlieger, <a href="/A379594/b379594.txt">Table of n, a(n) for n = 1..119</a>

%t (* Load function f at A025487 *)

%t r = 0; s = Union@ Flatten@ f[10]; nn = Length[s];

%t rad[x_] := Times @@ FactorInteger[x][[All, 1]];

%t   Transpose@ Reap[Monitor[

%t     Do[k = s[[i]];

%t       If[# > r, r = #; Sow[r]] &@

%t         Count[Transpose@ {#, k/#} &@ #[[2 ;; Ceiling[Length[#]/2]]] &@ Divisors[k],

%t           _?(And[rad[#1] == rad[#2],

%t             Xor[Divisible[#2, #1],

%t                 Divisible[#1, #2]]] & @@ # &)], {i, nn}], {i, nn}] ][[-1, 1]]

%Y Cf. A036965, A379554, A379592, A379593.

%K nonn,new

%O 1,2

%A _Michael De Vlieger_, Dec 30 2024