|
%I M3023 #27 Nov 20 2017 22:06:32
%S 1,1,3,16,112,1020,10222,109947,1230840,14218671,168256840,2031152928,
%T 24931793768,310420597116,3912823963482,49853370677834,
%U 641218583442360,8316918403772790,108686334145327785,1429927553582849256,18927697628428129728,251931892228273729375
%N Number of nonequivalent dissections of a polygon into n heptagons by nonintersecting diagonals up to rotation and reflection.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H G. C. Greubel, <a href="/A005419/b005419.txt">Table of n, a(n) for n = 1..850</a>
%H F. Harary, E. M. Palmer and R. C. Read, <a href="http://dx.doi.org/10.1016/0012-365X(75)90041-2">On the cell-growth problem for arbitrary polygons</a>, Discr. Math. 11 (1975), 371-389.
%F See Mathematica code.
%F a(n) ~ 2^(6*n - 1) * 3^(6*n + 1/2) / (sqrt(Pi) * n^(5/2) * 5^(5*n + 5/2)). - _Vaclav Kotesovec_, Mar 13 2016
%t p=7; 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 Column k=7 of A295260.
%K nonn
%O 1,3
%A _N. J. A. Sloane_
%E More terms from _Robert A. Russell_, Dec 11 2004
%E Name edited by _Andrew Howroyd_, Nov 20 2017
|
