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.

A091893 Number of partitions of n into numbers having all the same number of 1's in binary representation.

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