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 A359317 #9 Feb 16 2025 08:34:04 %S A359317 0,1,10,35,120,220,455,2024,1771,4060,14190,16215,129766,32509, %T A359317 1414910,1823471,5159805,8171255,4192244,24117100,30865405,334985911, %U A359317 192937325,1610599145,1048440315,4261347265,4244012991,63828916911,213588635511,133110357279 %N A359317 a(n) is the smallest tetrahedral number with binary weight n. %H A359317 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TetrahedralNumber.html">Tetrahedral Number</a> %H A359317 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a> %e A359317 455 is the smallest tetrahedral number with binary weight 6 (455_10 = 111000111_2), so a(6) = 455. %t A359317 seq[len_,nmax_] := Module[{s = Table[0,{len}], n = 0, c = 0, bw, t}, While[c < len && n < nmax, bw = DigitCount[t = n*(n+1)*(n+2)/6, 2, 1] + 1; If[bw <= len && s[[bw]] == 0, c++; s[[bw]] = t]; n++]; s]; seq[30, 10^6] (* _Amiram Eldar_, Dec 26 2022 *) %Y A359317 Cf. A000120, A000292, A089999, A358931, A359318. %K A359317 nonn,base %O A359317 0,3 %A A359317 _Ilya Gutkovskiy_, Dec 25 2022