|
%I #14 Aug 04 2021 09:50:49
%S 1,1,3,10,38,163,774,4006,22376,133951,854402,5775948,41190317,
%T 308651432,2422315371,19856073597,169596622997,1506139073454,
%U 13879704561038,132488897335228,1307829322689944,13330635710335512,140118664473276174,1516899115597189064
%N Stirling transform of partitions numbers (A000041).
%H Alois P. Heinz, <a href="/A306022/b306022.txt">Table of n, a(n) for n = 0..571</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/StirlingTransform.html">Stirling Transform</a>.
%F a(n) = Sum_{k=0..n} Stirling2(n,k)*A000041(k).
%p a:= n-> add(combinat[numbpart](j)*Stirling2(n, j), j=0..n):
%p seq(a(n), n=0..30); # _Alois P. Heinz_, Jun 17 2018
%t Table[Sum[StirlingS2[n, k]*PartitionsP[k], {k, 0, n}], {n, 0, 25}]
%o (PARI) a(n) = sum(k=0, n, stirling(n, k, 2)*numbpart(k)); \\ _Michel Marcus_, Jun 17 2018
%Y Cf. A000041, A167137, A306023.
%K nonn
%O 0,3
%A _Vaclav Kotesovec_, Jun 17 2018
|
