This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A377140 #10 Oct 18 2024 20:27:04
%S A377140 1,2,4,6,12,24,36,60,120,180,360,840,1260,2520,6300,7560,12600,27720,
%T A377140 69300,83160,138600,360360,900900,1081080,1801800,5405400,12612600,
%U A377140 18378360,30630600,91891800,214414200,349188840,581981400,1745944200,4073869800,8031343320,12221609400
%N A377140 Numbers that have more biquadratefree divisors than any smaller number.
%C A377140 First differ from A365681 at n = 22.
%C A377140 Indices of records in A252505.
%C A377140 The corresponding record values are 1, 2, 3, 4, 6, 8, 9, 12, 16, 18, 24, 32, 36, 48, 54, 64, 72, 96, 108, ... (see the link for more values).
%H A377140 Amiram Eldar, <a href="/A377140/b377140.txt">Table of n, a(n) for n = 1..159</a>
%H A377140 Amiram Eldar, <a href="/A377140/a377140.txt">Table of n, a(n), A252505(a(n)) for n = 1..159</a>
%t A377140 f[p_, e_] := Min[e, 3] + 1; d[1] = 1; d[n_] := Times @@ f @@@ FactorInteger[n]; With[{v = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]]}, seq = {}; dm = 0; Do[If[(dk = d[v[[k]]]) > dm, dm = dk; AppendTo[seq, v[[k]]]], {k, 1, Length[v]}]; seq]
%Y A377140 Subsequence of A046100 and A025487.
%Y A377140 Cf. A046100, A252505, A365681, A377139.
%K A377140 nonn
%O A377140 1,2
%A A377140 _Amiram Eldar_, Oct 17 2024