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 A323330 #18 Aug 07 2025 12:35:26 %S A323330 1550,3100,4790,6200,7750,9580,12400,12922,15500,15290,19160,20330, %T A323330 23950,24800,25844,31000,30580,38320,38750,40660,47900,49600,51688, %U A323330 62000,61160,76640,77500,82150,81320,76450,95800,90454,99200,103376,101650,119750,124000,122320 %N A323330 Larger of amicable pair m < n defined by t(n) = m and t(m) = n where t(n) = psi(n) - n and psi(n) = A001615(n) is the Dedekind psi function. %C A323330 The terms are ordered according to the order of their lesser counterparts (A323329). %H A323330 Amiram Eldar, <a href="/A323330/b323330.txt">Table of n, a(n) for n = 1..1000</a> %H A323330 S. I. Dimitrov, <a href="https://arxiv.org/abs/2508.02318">On psi-amicable numbers and their generalizations</a>, arXiv:2508.02318 [math.NT], 2025. See p. 2. %t A323330 psi[n_] := n*Times@@(1+1/Transpose[FactorInteger[n]][[1]]); t[n_]:= psi[n] - n; s={}; Do[n=t[m]; If[n>m && t[n]==m, AppendTo[s,n]], {m, 1, 120000}]; s %Y A323330 Cf. A001615, A002046, A033845 (Dedekind psi perfect numbers), A323327, A323328, A323329. %K A323330 nonn %O A323330 1,1 %A A323330 _Amiram Eldar_, Jan 11 2019