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 A161792 #22 Jul 19 2025 18:14:40 %S A161792 1,2,4,8,9,16,32,36,64,128,144,256,512,576,729,1024,2048,2304,4096, %T A161792 8192,9216,16384,32768,36864,46656,65536,131072,147456,262144,524288, %U A161792 589824,1048576,2097152,2359296,2985984,4194304,4782969,8388608,9437184,14348907,16777216 %N A161792 If b(m) is the number of 1's in the binary representation of m, then the positive integer m is included if m = k^b(m), for some integer k. %C A161792 Contains every power of 2. - _Sean A. Irvine_, Nov 29 2009 %H A161792 David A. Corneth, <a href="/A161792/b161792.txt">Table of n, a(n) for n = 1..275</a> (terms <= 2^150) %H A161792 David A. Corneth, <a href="/A161792/a161792.gp.txt">PARI program</a> %e A161792 36 in binary is 100100, which has two 1's. Since 36 = 6^2, with an exponent of 2, then 36 is included in this sequence. %t A161792 q[m_] := IntegerQ[Surd[m, DigitSum[m, 2]]]; Select[Range[10^5], q] (* _Amiram Eldar_, Jul 19 2025 *) %Y A161792 Cf. A000120, A161793. %K A161792 base,nonn %O A161792 1,2 %A A161792 _Leroy Quet_, Jun 19 2009 %E A161792 More terms from _Sean A. Irvine_, Nov 29 2009 %E A161792 a(40)-a(41) from _Amiram Eldar_, Jul 19 2025