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 A328063 #23 Oct 16 2019 20:55:33
%S A328063 220,284,6232,6368,12285,14595,17296,18416,63020,76084,69615,87633,
%T A328063 79750,88730,100485,124155,122265,139815,141664,153176,142310,168730,
%U A328063 185368,203432,280540,365084,308620,389924,319550,430402,356408,399592,600392,669688,609928,686072,624184,691256
%N A328063 Amicable pairs with the property that the number of divisors of the smaller member is greater than the number of divisors of the larger member.
%C A328063 Amicable pairs(x,y) such that d(x) > d(y), where d(n) is the number of divisors of n.
%H A328063 Amiram Eldar, <a href="/A328063/b328063.txt">Table of n, a(n) for n = 1..20000</a>
%e A328063 Consider the amicable pair [220, 284]. The smaller member has 12 divisors, they are 1, 2, 4, 5, 10, 11, 20, 22, 44, 55, 110, 220. The larger member has 6 divisors, they are 1, 2, 4, 71, 142, 284. The number of divisors of 220 is greater than the number of divisors of 284, so the amicable pair [220, 284] is in the sequence.
%t A328063 seq = {}; s[n_] := DivisorSigma[1, n] - n; Do[m = s[n]; If[m > n && s[m] == n && DivisorSigma[0, n] > DivisorSigma[0, m], seq = Join[seq, {n, m}]], {n, 1, 7*10^5}]; seq (* _Amiram Eldar_, Oct 11 2019 *)
%Y A328063 Subsequence of A259180.
%Y A328063 Cf. A000005, A002025, A002046, A328009, A328043, A328064, A328065, A328255.
%K A328063 nonn
%O A328063 1,1
%A A328063 _Omar E. Pol_, Oct 03 2019