The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A208655 Number of palindromic paths starting with 1 through the subset array of {1,2,...,n}; see Comments. 3

%I #5 Mar 30 2012 18:58:13

%S 1,1,6,36,2400,90000,55566000,13553164800,72267023646720,

%T 117595223746560000,5219033393851200000000,57636380373471744768000000,

%U 20810790197418148654769602560000,1578992018570629416640340512656998400

%N Number of palindromic paths starting with 1 through the subset array of {1,2,...,n}; see Comments.

%C A palindromic path through the subset array of {1,2,...,n} is essentially a palindrome using numbers i from {1,2,...n}, where the number of times i can be used in position k equals the multiplicity of i in the multiset of numbers in the k-element subsets of {1,2,...,n}. See A208650 for a discussion and guide to related sequences.

%e For n=4, write

%e row 1: 1,2,3,4

%e row 2: 1,2; 1,3; 1,4; 2,3; 2,4; 3;4

%e row 3: 1,2,3; 1,2,4; 1,3,4; 2,3,4

%e row 4: 1,2,3,4

%e To form a palindromic path of length 4 and starting with 1, there is 1 way to choose 1st term from row 1, then 12 ways to choose 2nd term from row 2, then 3 ways to choose 3rd term, then 1 way to finish. Thus, a(4)=1*12*3*1=36.

%t m[n_] := Floor[(n + 1)/2]; z = 21;

%t g[n_] := Product[i*Binomial[n, i], {i, 1, m[n]}]

%t h[n_] := Product[Binomial[n - 1, i], {i, m[n], n - 1}]

%t Table[g[n], {n, 1, z}] (* A208652 *)

%t Table[h[n], {n, 1, z}] (* A208653 *)

%t Table[g[n] h[n], {n, 1, 2 z/3}] (* A208654 *)

%t Table[g[n] h[n]/n, {n, 1, 2 z/3}] (* A208655 *)

%Y Cf. A208650, A208654.

%K nonn

%O 1,3

%A _Clark Kimberling_, Mar 02 2012

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 26 11:31 EDT 2024. Contains 372824 sequences. (Running on oeis4.)