cp's OEIS Frontend

A325512 Number of distinct nonzero numbers of partitions of n counted by length.

%I A325512 #9 Feb 24 2024 10:50:23
%S A325512 1,1,1,1,2,2,3,4,5,7,7,7,10,9,10,12,14,15,16,16,18,19,19,20,22,23,23,
%T A325512 25,26,27,27,28,30,31,31,33,34,35,36,37,38,39,40,40,41,42,43,45,46,47,
%U A325512 48,49,50,51,52,53,54,55,56,57,56,58,60,61,62,63,64,65,65
%N A325512 Number of distinct nonzero numbers of partitions of n counted by length.
%C A325512 Also the number of distinct nonzero entries in row n of A008284.
%e A325512 Row n = 9 of A008284 is (1, 4, 7, 6, 5, 3, 2, 1, 1), which has union {1,2,3,4,5,6,7}, so a(9) = 7.
%p A325512 b:= proc(n, i) option remember; `if`(n=0 or i=1, x^n,
%p A325512       b(n, i-1)+expand(x*b(n-i, min(n-i, i))))
%p A325512     end:
%p A325512 a:= n-> nops({coeffs(b(n$2))}):
%p A325512 seq(a(n), n=0..90);  # _Alois P. Heinz_, Feb 23 2024
%t A325512 Table[Length[Union[Table[Length[IntegerPartitions[n,{k}]],{k,n}]]],{n,30}]
%Y A325512 Cf. A001221, A006128, A007870, A008284, A056239, A116608, A181819, A302247.
%K A325512 nonn
%O A325512 0,5
%A A325512 _Gus Wiseman_, May 07 2019
%E A325512 a(0)=1 prepended by _Alois P. Heinz_, Feb 23 2024