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!)
A295495 Number of dissections of an n-gon by nonintersecting diagonals into polygons with a prime number of sides counted up to rotations. 5
1, 1, 2, 5, 11, 36, 114, 410, 1458, 5488, 20786, 80770, 317378, 1265139, 5094139, 20718347, 84961256, 351086326, 1460591637, 6113826319, 25733864299, 108867782794, 462707558813, 1974991841442, 8463121111860, 36397780088126, 157066702354947, 679917566925030 (list; graph; refs; listen; history; text; internal format)
OFFSET
3,3
LINKS
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.
MATHEMATICA
DissectionsModCyclic[v_] :=
Module[{n = Length[v], q, vars, u, p}, q = Table[0, {n}]; q[[1]] = InverseSeries[x - Sum[x^i v[[i]], {i, 3, Length[v]}]/x + O[x]^(n+1)]; For[i = 2, i <= n, i++, q[[i]] = q[[i-1]] q[[1]]]; vars = Variables[q[[1]]]; u[m_, r_] := Normal[(q[[r]] + O[x]^(Quotient[n, m] + 1))] /. Thread[vars -> vars^m]; p = O[x]^n + x u[1, 1] - x^2 + (u[2, 1] - u[1, 2])/2 + Sum[v[[i]] Sum[EulerPhi[d] u[d, i/d]/i, {d, Divisors[i]}], {i, 3, Length[v]}]; Drop[CoefficientList[p, x], 3]];
DissectionsModCyclic[Boole[PrimeQ[#]]& /@ Range[1, 31]] (* Jean-François Alcover, Sep 26 2019, after Andrew Howroyd *)
PROG
(PARI) \\ number of dissections into parts defined by set.
DissectionsModCyclic(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(p=O(x*x^n) + x*u(1, 1) - x^2 + (u(2, 1)-u(1, 2))/2 + sum(i=3, #v, my(c=v[i]); if(c, c*sumdiv(i, d, eulerphi(d)*u(d, i/d))/i)));
vector(n, i, polcoeff(p, i))}
DissectionsModCyclic(apply(i->isprime(i), [1..30]))
CROSSREFS
Sequence in context: A284251 A343162 A353210 * A343463 A130622 A112600
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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 10:55 EDT 2024. Contains 371241 sequences. (Running on oeis4.)