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 A331465 #5 Jan 17 2020 17:44:20
%S A331465 15,1390,1369,11763,47802,1529690,4628217,1544053,804607562,4747704789
%N A331465 a(n) begins the first run of exactly n consecutive binary Smith numbers (A278909).
%C A331465 a(11) > 5*10^10.
%e A331465 a(2) = 1390 since 1390 and 1391 are binary Smith numbers.
%e A331465 a(3) = 1369 since 1369, 1370, and 1371 are binary Smith numbers.
%t A331465 binWt[n_] := Total@IntegerDigits[n, 2]; binSmithQ[n_] := CompositeQ[n] && Plus @@ (Last@# * binWt[ First@# ] & /@ FactorInteger[n]) == binWt[n]; n = 1; count = 0; max = 6; seq = Table[0, {max}]; While[count < max, n1 = n; If[binSmithQ[n], While[binSmithQ[++n1]]; d = n1 - n; If[d <= max && seq[[d]] == 0, count++; seq[[d]] = n]]; n = n1 + 1]; seq
%Y A331465 Cf. A278909, A329942, A331464.
%K A331465 nonn,base,more
%O A331465 1,1
%A A331465 _Amiram Eldar_, Jan 17 2020