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 A344313 #7 May 16 2021 02:41:31 %S A344313 2,3,4,14,15,20,21,26,27,33,34,35,38,44,45,50,51,57,62,68,74,75,76,81, %T A344313 85,86,91,92,93,94,98,99,104,115,116,117,118,122,123,124,133,135,141, %U A344313 142,145,146,147,158,171,177,187,189,201,202,205,206,212,213,214 %N A344313 Number k such that k and k+1 have the same number of bi-unitary divisors (A286324). %H A344313 Amiram Eldar, <a href="/A344313/b344313.txt">Table of n, a(n) for n = 1..10000</a> %e A344313 2 is a term since A286324(2) = A286324(3) = 2. %e A344313 14 is a term since A286324(14) = A286324(15) = 4. %t A344313 f[p_, e_] := If[OddQ[e], e + 1, e]; bd[1] = 1; bd[n_] := Times @@ f @@@ FactorInteger[n]; Select[Range[200], bd[#] == bd[# + 1] &] %Y A344313 Cf. A286324, A293183, A304463. %Y A344313 Similar sequences: A005237, A006049, A343819, A344312, A344314. %K A344313 nonn %O A344313 1,1 %A A344313 _Amiram Eldar_, May 14 2021