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 A338515 #8 Nov 01 2020 08:04:44
%S A338515 1,348515,8612344,29638764,30625110,32039808,32130600,32481682,
%T A338515 43664313,55318282,55503719,59671714,69254000,73152296,93470904,
%U A338515 100366594,103640097,105026790,109038462,109212287,122519464,126667271,147208982,162007166,169237545,173392238
%N A338515 Starts of runs of 3 consecutive numbers that are divisible by the total binary weight of their divisors (A093653).
%H A338515 Amiram Eldar, <a href="/A338515/b338515.txt">Table of n, a(n) for n = 1..5000</a>
%e A338515 1 is a term since 1, 2 and 3 are terms of A093705.
%t A338515 divQ[n_] := Divisible[n, DivisorSum[n, DigitCount[#, 2, 1] &]]; div = divQ /@ Range[3]; Reap[Do[If[And @@ div, Sow[k - 3]]; div = Join[Rest[div], {divQ[k]}], {k, 4, 10^7}]][[2, 1]]
%Y A338515 Subsequence of A338514.
%Y A338515 Cf. A000120, A093653, A093705.
%Y A338515 Similar sequences: A154701, A330932, A334346, A338453.
%K A338515 nonn,base
%O A338515 1,2
%A A338515 _Amiram Eldar_, Oct 31 2020