|
%I #11 May 29 2018 19:20:54
%S 1,1,3,16,175,4356,263424,40144896,15714084159,15953234222500,
%T 42223789335548788,292262228709213966336,5302397936652484482131200,
%U 252622720869371754406993137664,31660291085217875120800516475520000,10454334647424614439930776175842716286976
%N Let (P,<) be the strict partial order on the subsets of {1,2,...,n} ordered by their cardinality. Then a(n) is the number of paths of any length from {} to {1,2,...,n}.
%C A001142 counts such paths of length n.
%C A000670 counts such paths under the inclusion relation.
%H Alois P. Heinz, <a href="/A304902/b304902.txt">Table of n, a(n) for n = 0..69</a>
%p b:= proc(n, k) option remember; `if`(k=0, 1,
%p add(b(n, j), j=0..k-1)*binomial(n, k))
%p end:
%p a:= n-> b(n$2):
%p seq(a(n), n=0..17); # _Alois P. Heinz_, May 20 2018
%t Table[f[list_] := Apply[Times, Map[Binomial[n, #] &, list]];
%t Total[Map[f, Map[Accumulate,Level[Map[Permutations, Partitions[n]], {2}]]]], {n, 0, 15}]
%Y Cf. A000670, A001142.
%K nonn
%O 0,3
%A _Geoffrey Critzer_, May 20 2018
|
