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 A364292 #9 Jul 26 2023 08:30:42 %S A364292 3,6,7,12,14,15,24,28,29,30,31,48,56,58,59,60,61,62,63,96,112,116,118, %T A364292 119,120,121,122,123,124,125,126,127,192,223,224,232,236,238,239,240, %U A364292 242,244,245,246,247,248,249,250,251,252,253,254,255,383,384,446,447,448,464,472,476,478,479,480,484,488,490,492 %N A364292 Numbers k such that A163511(k) <= k. %H A364292 Michael De Vlieger, <a href="/A364292/a364292.png">Fan-style binary tree</a>, for n = 0..2^12-1 and sequence b = A364258, showing b(n) > n in dark blue, b(n) < n in red, and b(n) = n in light blue. Numbers n shown in red appear in A364287, while n shown either in red or light blue appear in this sequence. %t A364292 f[n_] := Reverse@ Map[Ceiling[(Length@ # - 1)/2] &, DeleteCases[Split@ Join[Riffle[IntegerDigits[n, 2], 0], {0}], {k__} /; k == 1]]; Select[Range[2, 500], Function[t, Prime[t] Product[Prime[m]^(f[#][[m]]), {m, t}]][DigitCount[#, 2, 1]] <= # &] (* _Michael De Vlieger_, Jul 25 2023 *) %Y A364292 Positions of nonpositive terms in A364258. %Y A364292 Cf. A163511. %Y A364292 Subsequences: A007283, A364287, A364293 (odd terms). %Y A364292 Cf. also A364289. %K A364292 nonn %O A364292 1,1 %A A364292 _Antti Karttunen_, Jul 25 2023