cp's OEIS Frontend

A377525 Records in A376281.

%I A377525 #22 Jan 11 2025 03:47:39
%S A377525 1,2,3,4,5,6,7,9,10,11,13,14,15,17,21,23,27,29,35,39,41,45,51,53,59,
%T A377525 61,63,75,76,81,89,93,96,105,107,117,123,129,137,155,160,161,173,185,
%U A377525 197,200,205,217,245,251,289,311,315,337,341,357,365,377,381,405,408
%N A377525 Records in A376281.
%H A377525 Michael De Vlieger, <a href="/A377525/b377525.txt">Table of n, a(n) for n = 1..241</a>
%t A377525 (* Load function f at A025487 *)
%t A377525 r = 0; s = Select[Union@ Flatten@ f[12][[3 ;; -1]], Not@*SquareFreeQ];
%t A377525 nn = Length[s]; Print[nn];
%t A377525 Reap[Monitor[Do[k = s[[i]];
%t A377525   If[# > r, r = #; Sow[r]] &@
%t A377525     Count[Transpose@ {#, k/#} &@ #[[2 ;; Ceiling[Length[#]/2]]] &@ Divisors[k],
%t A377525       _?(And[1 < GCD @@ {##}, Mod[#1, #2] != 0,
%t A377525            Mod[#2, #1] != 0] & @@ # &)], {i, nn}], i] ][[-1, 1]]
%Y A377525 Cf. A379336, A376281, A376687.
%K A377525 nonn
%O A377525 1,2
%A A377525 _Michael De Vlieger_, Jan 09 2025