A180916 Number of convex polyhedra with n faces that are all regular polygons.
0, 0, 0, 1, 2, 3, 2, 7, 3, 6, 4, 7, 3, 13, 2, 5, 4, 6, 1, 9, 2, 6, 1, 4, 1, 8, 4, 2, 1, 3, 1, 10, 1, 3, 1, 2, 4, 3, 1, 2, 1, 9, 1, 2, 1, 2, 2, 2, 1, 2, 1, 9, 1, 2, 1, 2, 1, 2, 1, 2, 1, 9, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2
Offset: 1
Examples
a(6) = 3 because the cube, pentagonal pyramid, and triangular bipyramid all qualify. a(7) = 2 because only the pentagonal prism and elongated triangular pyramid qualify; the hexagonal pyramid is impossible with equilateral triangles
Links
- Eric W. Weisstein, MathWorld: Cube
- Eric W. Weisstein, MathWorld: Pentagonal Pyramid
- Eric W. Weisstein, MathWorld: Dipyramid
- Eric W. Weisstein, MathWorld: Pentagonal Prism
- Eric W. Weisstein, MathWorld: Elongated Triangular Pyramid
- Eric W. Weisstein, MathWorld: Hexagonal Pyramid
- Eric W. Weisstein, MathWorld: Johnson Solid
Programs
-
Mathematica
f = Tally[Join[PolyhedronData["Platonic", "FaceCount"], PolyhedronData["Archimedean", "FaceCount"], PolyhedronData["Johnson", "FaceCount"], {PolyhedronData[{"Prism", 3}, "FaceCount"]}]]; f2 = Transpose[f]; cnt = Table[0, {n, 100}]; cnt[[f2[[1]]]] = f2[[2]]; Do[cnt[[n]]++, {n, 7, 100}] (* add prisms *); Do[ cnt[[n]]++, {n, 10, 100, 2}] (* add antiprisms *); cnt (* T. D. Noe, Mar 04 2011 *)
Formula
a(A296602(n)) = 1. - Jonathan Sondow, Jan 29 2018
Comments