A336269 - OEIS

%I #13 Mar 17 2022 14:53:21

%S 1,0,2,2,5,11,18,36,84,155,305,625,1269,2487,5070,10263,20964,41905,

%T 84799,170540,346192,696157,1405156,2822998,5686402,11420892,22949684,

%U 46028648,92347798,185051670,370756866,742307736,1485798060,2972924906,5947567564

%N Number of compositions of n containing no part p of multiplicity p.

%H Alois P. Heinz, <a href="/A336269/b336269.txt">Table of n, a(n) for n = 0..1000</a>

%F a(n) = A011782(n) - A336273(n).

%p b:= proc(n, i, p) option remember; `if`(n=0, p!, `if`(i<1, 0,

%p       add(`if`(i=j, 0, b(n-i*j, i-1, p+j)/j!), j=0..n/i)))

%p     end:

%p a:= n-> b(n$2, 0):

%p seq(a(n), n=0..40);

%t b[n_, i_, p_] := b[n, i, p] = If[n == 0, p!, If[i < 1, 0,

%t      Sum[If[i == j, 0, b[n - i*j, i - 1, p + j]/j!], {j, 0, n/i}]]];

%t a[n_] := b[n, n, 0];

%t Table[a[n], {n, 0, 40}] (* _Jean-François Alcover_, Mar 17 2022, after _Alois P. Heinz_ *)

%Y Cf. A011782, A242434, A276429, A336273.

%K nonn

%O 0,3

%A _Alois P. Heinz_, Jul 15 2020