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 A338454 #10 Oct 31 2020 02:53:29
%S A338454 242,947767,1041607,2545015,3275463,8170983,15720871,21532430,
%T A338454 23752181,25135885,25595913,27981703,28226983,30505142,30962767,
%U A338454 33364805,37264493,49002661,49766629,52910454,53408456,57917191,57952016,58331576,59230454,60014053,60723111,63378005
%N A338454 Starts of runs of 4 consecutive numbers with the same total binary weight of their divisors (A093653).
%C A338454 Numbers k such that A093653(k) = A093653(k+1) = A093653(k+2) = A093653(k+3).
%H A338454 Amiram Eldar, <a href="/A338454/b338454.txt">Table of n, a(n) for n = 1..10000</a>
%e A338454 242 is a term since A093653(242) = A093653(243) = A093653(244) = A093653(245) = 18.
%t A338454 f[n_] := DivisorSum[n, DigitCount[#, 2, 1] &]; s = {}; m = 4; fs = f /@ Range[m]; Do[If[Equal @@ fs, AppendTo[s, n - m]]; fs = Rest @ AppendTo[fs, f[n]], {n, m + 1, 10^7}]; s
%Y A338454 Cf. A093653.
%Y A338454 Subsequence of A338452 and A338453.
%Y A338454 Similar sequences: A006601, A045932, A045940.
%K A338454 nonn,base
%O A338454 1,1
%A A338454 _Amiram Eldar_, Oct 28 2020