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 A379779 #65 Jan 16 2025 19:41:36
%S A379779 1,2,3,4,5,6,7,8,9,10,12,18,20,24,27,30,36,40,45,48,54,60,63,70,72,80,
%T A379779 90,100,102,108,110,111,112,114,120,126,132,133,144,150,152,153,156,
%U A379779 180,190,192,195,200,201,204,210,216,220,222,224,228,240,252,264,266,288,300,306,312,315,320
%N A379779 Numbers k >= 1 such that A007088(k) / A007088(A007953(k)) is an integer.
%e A379779 k = 18: A007088(18)/A007088(A007953(18)) = 10010/1001 = 10, thus k = 18 is a member of the sequence.
%t A379779 q[k_] := Divisible @@ (FromDigits[IntegerDigits[#, 2]] & /@ {k, DigitSum[k]}); Select[Range[320], q] (* _Amiram Eldar_, Jan 15 2025 *)
%o A379779 (PARI) bin(n) = fromdigits(binary(n), 10); \\ A007088
%o A379779 isok(k) = denominator(bin(k)/bin(sumdigits(k))) == 1; \\ _Michel Marcus_, Jan 15 2025
%Y A379779 Cf. A005349, A007088, A007953.
%K A379779 nonn,base
%O A379779 1,2
%A A379779 _Ctibor O. Zizka_, Jan 15 2025