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 A348628 #4 Oct 26 2021 07:46:36
%S A348628 1,2,3,4,15,44,674,478899
%N A348628 Numbers k such that k and k+1 have the same sum of nonexponential divisors (A160135).
%C A348628 Numbers k such that A160135(k) = A160135(k+1).
%C A348628 a(9) > 1.6 * 10^11, if it exists.
%e A348628 2 is a term since A160135(2) = A160135(3) = 1.
%e A348628 15 is a term since A160135(15) = A160135(16) = 9.
%t A348628 esigma[n_] := Times @@ (Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; s[1] = 1; s[n_] := DivisorSigma[1, n] - esigma[n]; Select[Range[500000], s[#] == s[# + 1] &]
%Y A348628 Cf. A160135.
%Y A348628 Similar sequences: A002961, A064115, A064125, A293183, A306985, A348346.
%K A348628 nonn,more
%O A348628 1,2
%A A348628 _Amiram Eldar_, Oct 26 2021