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 A091893 #10 Apr 21 2021 01:28:46 %S A091893 1,2,3,4,5,8,7,11,13,16,17,25,23,31,35,40,42,59,53,72,79,87,91,119, %T A091893 114,140,151,171,178,219,203,257,275,296,319,382,364,435,467,511,533, %U A091893 635,609,721,764,826,865,1011,994,1141,1203,1301,1371,1571,1541,1773 %N A091893 Number of partitions of n into numbers having all the same number of 1's in binary representation. %H A091893 David A. Corneth, <a href="/A091893/b091893.txt">Table of n, a(n) for n = 1..10000</a> %e A091893 n=30 -> '11110', a(30) = (#partitions into numbers with 1 binary 1) + (#partitions into numbers with 2 binary 1's) + (#partitions into numbers with 3 binary 1's) + (#partitions into numbers with 4 binary 1's) + (#partitions into numbers with 5 binary 1's) = A018819(30) + A091889(30) + A091890(30) + #{'11110','1111'+'1111'} + #empty = 166 + 50 + 1 + 2 + 0 = 219. %t A091893 Table[Count[IntegerPartitions[n],_?(Length[Union[DigitCount[ #,2,1]&/@ #]]==1&)],{n,60}] (* _Harvey P. Dale_, Aug 23 2020 *) %Y A091893 Cf. A000120, A000041, A091889, A091890, A091891. %K A091893 nonn %O A091893 1,2 %A A091893 _Reinhard Zumkeller_, Feb 10 2004