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 A334024 #4 Apr 12 2020 21:44:15 %S A334024 24752,101972,14257705 %N A334024 Numbers k such that s(k) = s(k+1), where s(k) is the sum of unitary divisors of k that are larger than sqrt(k) (A334023). %C A334024 a(4) > 10^10. %e A334024 24752 is a term since A334023(24752) = A334023(24753) = 33896. %t A334024 s[n_] := DivisorSum[n, # &, #^2 > n && CoprimeQ[#, n/#] &]; Select[Range[1.5*10^7], s[#] == s[# + 1] &] %Y A334024 Cf. A064125, A324367, A334020, A334023. %K A334024 nonn,bref,more %O A334024 1,1 %A A334024 _Amiram Eldar_, Apr 12 2020