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 A375195 #10 Aug 06 2024 11:15:17
%S A375195 4,8,15,22,69,116,122,134,135,168,208,278,400,453,538,584,718,1019,
%T A375195 1409,1671,1799,2035,2417,2541,2595,2783,3424,3809,3860,4415,5628,
%U A375195 6267,6672,6745,6872,6873,7277,9436,9845,10182,10191,10936,11272,11472,12105,16139,16277
%N A375195 Numbers k such that A025487(k) and A025487(k+1) have an equal number of divisors.
%C A375195 Numbers k such that A146288(k) = A146288(k+1).
%C A375195 The corresponding values of A146288(k) are 4, 8, 12, 16, 48, 48, 96, 80, 80, ... .
%C A375195 The corresponding values of A025487(k) are 6, 24, 72, 210, 5400, ... (A375196).
%C A375195 Numbers k such that A146288(k) = A146288(k+1) = A146288(k+2) are 134, 6872, 6699401, 12421946, ... .
%H A375195 Amiram Eldar, <a href="/A375195/b375195.txt">Table of n, a(n) for n = 1..4390</a>
%F A375195 A025487(a(n)) = A375196(n).
%e A375195 4 is a term since A146288(4) = A146288(5) = 4.
%t A375195 With[{lps = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]]}, Position[Differences[DivisorSigma[0, lps]], 0] // Flatten]
%Y A375195 Cf. A000005, A025487, A146288, A375196.
%K A375195 nonn
%O A375195 1,1
%A A375195 _Amiram Eldar_, Aug 04 2024