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 A331827 #24 Jan 29 2020 01:41:57
%S A331827 2,3,4,6,8,9,12,15,16,18,20,24,28,30,32,33,36,40,42,48,54,56,60,63,64,
%T A331827 66,68,72,78,80,84,90,96,100,102,108,112,114,120,124,126,128,129,132,
%U A331827 136,138,140,144,150,156,160,162,168,174,175,180,186,192,198,200
%N A331827 Positive negabinary-Niven numbers k (A331728) such that -k is a negative negabinary-Niven number (A331819).
%C A331827 Positive numbers k that are divisible by the sums of digits in the negabinary representations of both k and -k.
%C A331827 All the powers of 2 above 1 are terms.
%H A331827 Amiram Eldar, <a href="/A331827/b331827.txt">Table of n, a(n) for n = 1..10000</a>
%t A331827 negaBinWt[n_] := negaBinWt[n] = If[n==0, 0, negaBinWt[Quotient[n-1, -2]] + Mod[n, 2]]; seqQ[n_] := And @@ (Divisible[n, negaBinWt[#]] & /@ {-n, n}); Select[Range[200], seqQ]
%Y A331827 Intersection of A331728 and A331819.
%Y A331827 Cf. A330711, A331091.
%K A331827 nonn,base
%O A331827 1,1
%A A331827 _Amiram Eldar_, Jan 28 2020