|
%I M1491
%S 1,1,2,5,16,60,261,1243,6257,32721,175760,963900,5374400,30385256,
%T 173837631,1004867079,5861610475,34469014515,204161960310,
%U 1217145238485,7299007647552,44005602441840
%N Number of ways of dissecting a polygon into n quadrilaterals.
%C The subsequence of primes begins: 2, 5, 6257, no more through a(100). [Jonathan Vos Post, April 8, 2011]
%D F. Harary, E. M. Palmer and R. C. Read, On the cell-growth problem for arbitrary polygons, Discr. Math. 11 (1975), 371-389.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H T. D. Noe, <a href="/A005036/b005036.txt">Table of n, a(n) for n = 1..100</a>
%H E. V. Konstantinova, <a href="http://com2mac.postech.ac.kr/papers/2001/01-06.pdf">A survey of the cell-growth problem and some its variations</a>, Com 2 MaC-KOSEF, 2001.
%H <a href="/index/Cor#core">Index entries for "core" sequences</a>
%t p=4; Table[(Binomial[(p-1)n, n]/(((p-2)n+1)((p-2)n+2)) + If[OddQ[n], If[OddQ[p], Binomial[(p-1)n/2, (n-1)/2]/n, (p+1)Binomial[((p-1)n-1)/2, (n-1)/2]/((p-2)n+2)], 3Binomial[(p-1)n/2, n/2]/((p-2)n+2)]+Plus @@ Map[EulerPhi[ # ]Binomial[((p-1)n+1)/#, (n-1)/# ]/((p-1)n+1)&, Complement[Divisors[GCD[p, n-1]], {1, 2}]])/2, {n, 1, 20}] - _Robert A. Russell_, Dec 11 2004
%Y Cf. A005419, A004127, A005038, A005040, A000207.
%K core,nonn,nice
%O 1,3
%A _N. J. A. Sloane_.
%E More terms from _Sascha Kurz_, Oct 13 2001
|
