A047771 Number of dissectable polyhedra with n tetrahedral cells and symmetry of type L.
0, 0, 0, 0, 0, 1, 0, 8, 0, 42, 0, 232, 0, 1277, 0, 7183, 0, 41041, 0, 238315, 0, 1402076, 0, 8343804, 0, 50136483, 0, 303790544, 0, 1854115285, 0, 11388104153, 0, 70338364135, 0, 436605050440, 0, 2722153369473, 0, 17040017600925, 0
Offset: 1
Keywords
Links
- L. W. Beineke and R. E. Pippert, Enumerating dissectable polyhedra by their automorphism groups, Canad. J. Math., 26 (1974), 50-67.
- Robert A. Russell, Mathematica Graphics3D program for A047771 example.
Crossrefs
Programs
-
Mathematica
Table[(If[OddQ[n],0,Binomial[3n/2,n/2]/(n+1)-6If[OddQ[n/2],2Binomial[(3n-2)/4,(n-2)/4],Binomial[3n/4,n/4]]/(n+2)]-3If[2==Mod[n,6],Binomial[3(n-2)/6,(n-2)/6]/(n+1)-If[2==Mod[n,12],6Binomial[3(n-2)/12,(n-2)/12],12Binomial[n/4-1,(n-8)/12]]/(n+4),0])/6,{n,30}] (* Robert A. Russell, Mar 22 2024 *)
Comments