login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A295419 Number of dissections of an n-gon by nonintersecting diagonals into polygons with a prime number of sides counted up to rotations and reflections. 11
1, 1, 2, 4, 8, 23, 64, 222, 752, 2805, 10475, 40614, 158994, 633456, 2548241, 10362685, 42485242, 175557329, 730314350, 3056971164, 12867007761, 54434131848, 231354091945, 987496927875, 4231561861914, 18198894300129, 78533356685275, 339958801585826 (list; graph; refs; listen; history; text; internal format)
OFFSET

3,3

COMMENTS

a(n) first differs from A290816(n) at n=9 since this sequence does not allow the trivial dissection of a nonagon into a single nonagon.

LINKS

Andrew Howroyd, Table of n, a(n) for n = 3..200

E. Krasko, A. Omelchenko, Brown's Theorem and its Application for Enumeration of Dissections and Planar Trees, The Electronic Journal of Combinatorics, 22 (2015), #P1.17.

PROG

(PARI) \\ number of dissections into parts defined by set.

DissectionsModDihedral(v)={my(n=#v);

my(q=vector(n)); q[1]=serreverse(x-sum(i=3, #v, x^i*v[i])/x + O(x*x^n));

for(i=2, n, q[i]=q[i-1]*q[1]);

my(vars=variables(q[1]));

my(u(m, r)=substvec(q[r]+O(x^(n\m+1)), vars, apply(t->t^m, vars)));

my(R=sum(i=1, (#v-1)\2, v[2*i+1]*u(2, i)), Q=sum(i=2, #v\2, v[2*i]*u(2, i-1)), T=sum(i=3, #v, my(c=v[i]); if(c, c*sumdiv(i, d, eulerphi(d)*u(d, i/d))/i)));

my(p=O(x*x^n) - x^2 + (x*u(1, 1) + u(2, 1) + (Q*u(2, 1) - u(1, 2) + (x+R)^2/(1-Q))/2 + T)/2);

vector(n, i, polcoeff(p, i))}

DissectionsModDihedral(apply(v->isprime(v), [1..25]))

CROSSREFS

Cf. A001004, A290571, A290646, A290722, A290816, A295260, A295634.

Sequence in context: A034906 A018323 A151380 * A290816 A181070 A226659

Adjacent sequences:  A295416 A295417 A295418 * A295420 A295421 A295422

KEYWORD

nonn

AUTHOR

Andrew Howroyd, Nov 22 2017

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 18 07:01 EST 2018. Contains 317279 sequences. (Running on oeis4.)