cp's OEIS Frontend

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.

A359317 a(n) is the smallest tetrahedral number with binary weight n.

This page as a plain text file.
%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