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 A307963 #10 Dec 02 2019 04:11:36 %S A307963 2218040,4924700,6654120,15526280,14774100,28834520,37706680,42142760, %T A307963 34472900,46578840,51014920,64323160,68759240,64021100,82067480, %U A307963 86503560,90939640,95375720,104247880,83719900,113120040,117556120,93569300,126428280,103418700,130864360 %N A307963 Larger of coreful amicable numbers pair: numbers (m, n) such that csigma(m) = csigma(n) = m + n, where csigma(n) is the sum of the coreful divisors of n (A057723). %C A307963 The terms are ordered according to the their lesser counterparts (A307962). %H A307963 Amiram Eldar, <a href="/A307963/b307963.txt">Table of n, a(n) for n = 1..10000</a> %t A307963 f[p_,e_] := (p^(e+1)-1)/(p-1)-1; csigma[1]=1; csigma[n_] := Times @@ (f @@@ FactorInteger[n]); s={}; Do[m = csigma[n] - n; If[m > n && csigma[m] - m == n, AppendTo[s, m]], {n, 1, 10^8}]; s %Y A307963 Cf. A057723, A307958, A307959, A307962. %K A307963 nonn %O A307963 1,1 %A A307963 _Amiram Eldar_, May 08 2019