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 A331824 #8 Jan 28 2020 03:56:58
%S A331824 1,1264,2104,2944,4624,11888,23768,27312,27728,31688,35648,49144,
%T A331824 51488,55448,56704,58384,60072,63424,65104,66784,70144,71288,75248,
%U A331824 76452,79208,81904,87128,91088,92832,99008,102968,114848,118808,123904,125592,126728,130624,131044
%N A331824 Starts of runs of 4 consecutive positive negabinary-Niven numbers (A331728).
%H A331824 Amiram Eldar, <a href="/A331824/b331824.txt">Table of n, a(n) for n = 1..10000</a>
%t A331824 negaBinWt[n_] := negaBinWt[n] = If[n == 0, 0, negaBinWt[Quotient[n - 1, -2]] + Mod[n, 2]]; negaBinNivenQ[n_] := Divisible[n, negaBinWt[n]]; nConsec = 4; neg = negaBinNivenQ /@ Range[nConsec]; seq = {}; c = 0; k = nConsec+1; While[c < 45, If[And @@ neg, c++; AppendTo[seq, k - nConsec]]; neg = Join[Rest[neg], {negaBinNivenQ[k]}]; k++]; seq
%Y A331824 Cf. A027615, A039724, A141769, A328211, A328215, A330933, A331728.
%K A331824 nonn,base
%O A331824 1,2
%A A331824 _Amiram Eldar_, Jan 27 2020