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 A331822 #8 Jan 28 2020 03:57:08
%S A331822 1,2,14,62,124,184,244,254,304,468,484,544,784,904,964,1022,1084,1098,
%T A331822 1144,1264,1265,1308,1448,1504,1518,1924,1938,1984,2044,2104,2105,
%U A331822 2358,2888,2944,2945,3064,3198,3248,3424,3544,3604,3618,3664,3828,3844,3904,3964
%N A331822 Starts of runs of 3 consecutive positive negabinary-Niven numbers (A331728).
%H A331822 Amiram Eldar, <a href="/A331822/b331822.txt">Table of n, a(n) for n = 1..10000</a>
%t A331822 negaBinWt[n_] := negaBinWt[n] = If[n == 0, 0, negaBinWt[Quotient[n - 1, -2]] + Mod[n, 2]]; negaBinNivenQ[n_] := Divisible[n, negaBinWt[n]]; nConsec = 3; neg = negaBinNivenQ /@ Range[nConsec]; seq = {}; c = 0; k = nConsec+1; While[c < 50, If[And @@ neg, c++; AppendTo[seq, k - nConsec]]; neg = Join[Rest[neg], {negaBinNivenQ[k]}]; k++]; seq
%Y A331822 Cf. A027615, A039724, A154701, A328210, A328214, A330932, A331087, A331090, A331728.
%K A331822 nonn,base
%O A331822 1,2
%A A331822 _Amiram Eldar_, Jan 27 2020