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.
%I A208661 #9 Mar 30 2012 18:58:14 %S A208661 1,4,16,144,3072,160000,20736000,6776582400,5639493386240, %T A208661 12041750911647744,66367674777600000000,948747002032456704000000, %U A208661 35319813420678024297185280000,3435829941215659552226769213849600 %N A208661 Number of paths through the subset array of {1,2,...,n} that have range a subset of {1,2}; see Comments at A208650. %e A208661 For n=4, write %e A208661 row 1: 1; 2; 3; 4 %e A208661 row 2: 1,2; 1,3; 1,4; 2,3; 2,4; 3,4 %e A208661 row 3: 1,2,3; 1,2,4; 1,3,4; 2,3,4 %e A208661 row 4: 1,2,3,4 %e A208661 There are 2 ways to choose 1 or 2 from row 1, then 6 ways to choose 1 or 2 from row 2, then 6 ways to choose 1 or 2 from row 3, then 2 ways to choose 1 or 2 from row 4, so that a(4)=2*6*6*2=144. %t A208661 a[1] = 1; z = 15; %t A208661 a[n_] := (2^n)*Product[Binomial[n - 1, i], {i, 1, n - 1}] %t A208661 Table[a[n], {n, 1, z}] (* A208661 *) %Y A208661 Cf. A208650. %K A208661 nonn %O A208661 1,2 %A A208661 _Clark Kimberling_, Mar 02 2012