Ptolemaic Graph

Author

Eric W. Weisstein
February 7, 2024

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/PtolemaicGraph.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/PtolemaicGraph.html.

©2024 Wolfram Research, Inc. except for portions noted otherwise

Definition

https://arxiv.org/pdf/1608.01465.pdf

Maryam Bahrani and Jérémie Lumbroso, Enumerations, Forbidden Subgraph Characterizations, and the Split-Decomposition, arXiv:1608.01465 [math.CO], 2016.

[The above statement is only true if it holds for all 3 permutations of the terms]

Figure

GraphicsGrid[Flatten[Partition[#,UpTo[5]]&/@Map[Show[GraphData[#]//StyleGraphs,PlotLabel->TextCell[Style[GraphData[#,"Name"],Directive[Opacity[1],Black,Italic,14,FontFamily->"Times"]],PageWidth->500/5,TextAlignment->Center]]&,
Table[GraphData["Ptolemaic",n],{n,5}],{2}],1],ImageSize->700,Dividers->{{Thick,{True},Thick},{Thick,Thick,Thick,Thick,Thick,True,True,Thick}}]

Classes

GraphClassesThatAreClass["Ptolemaic"]

Intersection@@(GraphData[#,"Classes"]&/@GraphData["Ptolemaic"])

Counts

Connected

https://oeis.org/A287888

1, 1, 2, 5, 14, 47, 170, 676, 2834, 12471, 56675, 264906, 1264851, 6150187, 30357300, 151798497, 767573729, 391946238

Table[Count[ConnectedGraphs[n],_?PtolemaicGraphQ],{n,9}]//Timing

Length/@Table[GraphData[{"Chordal","DistanceHereditary"},n],{n,9}]

Length/@Table[GraphData[{"Connected","Ptolemaic"},n],{n,9}]

Not necessarily connected

Table[Count[Graphs[n],_?PtolemaicGraphQ],{n,9}]//Timing

Length/@Table[GraphData["Ptolemaic",n],{n,8}]

Table

GraphDataCountTable["Ptolemaic"]

Parametrized families

<<MathWorld`Graphs`

Alkane

Table[GraphData[{"Alkane",n},"Ptolemaic"],{n,10}]

AlternatingGroupGraph

Table[GraphData[{"AlternatingGroupGraph",n},"Ptolemaic"],{n,2,6}]

Do[Print[{GraphData[{"AlternatingGroupGraph",n},"#"],PtolemaicGraphQ@GraphData[{"AlternatingGroupGraph",n}]//Timing}],{n,2,6}]

Andrasfai

Table[GraphData[{"Andrasfai",n},"Ptolemaic"],{n,20}]

Do[Print[{GraphData[{"Andrasfai",n},"#"],PtolemaicGraphQ@GraphData[{"Andrasfai",n}]//Timing}],{n,10}]

Antelope m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","Antelope"],
XXX,
GraphData[#,"Ptolemaic"]}&/@GraphData["Antelope"],{_,x_,x_}]

Antelope n×n

Table[GraphData[{"Antelope",{n,n}},"Ptolemaic"],{n,20}]

Antiprism

Entity["Graph",{"Antiprism",n}]["Ptolemaic"]

Table[GraphData[{"Antiprism",n},"Ptolemaic"],{n,3,25}]

Do[Print[{GraphData[{"Antiprism",n},"#"],PtolemaicGraphQ@GraphData[{"Antiprism",n}]//Timing}],{n,3,25}]

Apollonian

Table[GraphData[{"Apollonian",n},"Ptolemaic"],{n,5}]

Do[Print[{GraphData[{"Apollonian",n},"#"],PtolemaicGraphQ@GraphData[{"Apollonian",n}]//Timing}],{n,5}]

Barbell

Table[GraphData[{"Barbell",n},"Ptolemaic"],{n,3,20}]

Do[Print[{GraphData[{"Barbell",n},"#"],PtolemaicGraphQ@GraphData[{"Barbell",n}]//Timing}],{n,3,20}]

BlackBishop m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","BlackBishop"],
XXX,
GraphData[#,"Ptolemaic"]}&/@GraphData["BlackBishop"],{_,x_,x_}]

BlackBishop n×n

Table[GraphData[{"BlackBishop",{n,n}},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"BlackBishop",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

Bishop m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","Bishop"],
XXX,
GraphData[#,"Ptolemaic"]}&/@GraphData["Bishop"],{_,x_,x_}]

Bishop n×n

Table[GraphData[{"Bishop",{n,n}},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"Bishop",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

Book

Table[GraphData[{"Book",n},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"Book",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

Bruhat

Table[GraphData[{"Bruhat",n},"Ptolemaic"],{n,6}]

Do[Print[{gn=GraphData[{"Bruhat",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,6}]

Camel m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","Camel"],
XXX,
GraphData[#,"Ptolemaic"]}&/@GraphData["Camel"],{_,x_,x_}]

Camel n×n

Table[GraphData[{"Camel",{n,n}},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"Camel",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

Centipede

Table[GraphData[{"Centipede",n},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"Centipede",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

CocktailParty

Table[GraphData[{"CocktailParty",n},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"CocktailParty",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

Complete

Entity["Graph",{"Complete",n}]["Ptolemaic"]

Table[GraphData[{"Complete",n},"Ptolemaic"],{n,30}]

Do[Print[{gn=GraphData[{"Complete",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

CompleteBipartite m×n

Entity["Graph",{"CompleteBipartite",{m,n}}]["Ptolemaic"]

Sort@DeleteCases[{
{m,n}=GraphData[#,"NotationRules","CompleteBipartite"],
Piecewise[{{True,Min[m,n]==1}},False],
GraphData[#,"Ptolemaic"]}&/@GraphData["CompleteBipartite"],{_,x_,x_}]

CompleteBipartite n×n

Entity["Graph",{"CompleteBipartite",{n,n}}]["Ptolemaic"]

Table[GraphData[{"CompleteBipartite",{n,n}},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"CompleteBipartite",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

CompleteTripartite k×m×n

Entity["Graph",{"CompleteTripartite",{k,m,n}}]["Ptolemaic"]

Sort@DeleteCases[{
{k,m,n}=GraphData[#,"NotationRules","CompleteTripartite"],
Piecewise[{{True,Max[k,m,n]==k m n}},False],
GraphData[#,"Ptolemaic"]}&/@GraphData["CompleteTripartite"],{_,x_,x_}]

CompleteTripartite n×n×n

Entity["Graph",{"CompleteTripartite",{n,n,n}}]["Ptolemaic"]

Table[GraphData[{"CompleteTripartite",{n,n,n}},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"CompleteTripartite",{n,n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

CrossedPrism

Table[GraphData[{"CrossedPrism",2n},"Ptolemaic"],{n,2,10}]

Do[Print[{gn=GraphData[{"CrossedPrism",2n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,2,10}]

Crown

Table[GraphData[{"Crown",n},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"Crown",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

CubeConnectedCycle

Entity["Graph",{"CubeConnectedCycle",n}]["Ptolemaic"]

Table[GraphData[{"CubeConnectedCycle",n},"Ptolemaic"],{n,3,8}]

Do[Print[{gn=GraphData[{"CubeConnectedCycle",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,8}]

Cycle

Entity["Graph",{"Cycle",n}]["Ptolemaic"]

Table[GraphData[{"Cycle",n},"Ptolemaic"],{n,3,30}]

Do[Print[{gn=GraphData[{"Cycle",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,30}]

CycleComplement

Table[GraphData[{"CycleComplement",n},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"CycleComplement",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,20}]

DiagonalIntersection

Table[GraphData[{"DiagonalIntersection",n},"Ptolemaic"],{n,3,14}]

Do[Print[{gn=GraphData[{"DiagonalIntersection",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,14}]

Dipyramid

Table[GraphData[{"Dipyramid",n},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"Dipyramid",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,20}]

DorogovtsevGoltsevMendes

Table[GraphData[{"DorogovtsevGoltsevMendes",n},"Ptolemaic"],{n,7}]

Empty

Entity["Graph",{"Empty",n}]["Ptolemaic"]

Table[GraphData[{"Empty",n},"Ptolemaic"],{n,30}]

Do[Print[{gn=GraphData[{"Empty",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,30}]

FibonacciCube

Table[GraphData[{"FibonacciCube",n},"Ptolemaic"],{n,15}]

Do[Print[{gn=GraphData[{"FibonacciCube",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,15}]

Fiveleaper n×n

Table[GraphData[{"Fiveleaper",{n,n}},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"Fiveleaper",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

Flower

Table[GraphData[{"Flower",n},"Ptolemaic"],{n,5,20}]

Do[Print[{gn=GraphData[{"Flower",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,5,20}]

FoldedCube

Table[GraphData[{"FoldedCube",n},"Ptolemaic"],{n,2,10}]

Do[Print[{gn=GraphData[{"FoldedCube",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,2,10}]

Gear

Table[GraphData[{"Gear",n},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"Gear",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,20}]

Giraffe m×n

Sort@DeleteCases[{
{m,n}=GraphData[#,"NotationRules","Giraffe"],
Piecewise[{{True,Min[m,n]==1}},False],
GraphData[#,"Ptolemaic"]}&/@GraphData["Giraffe"],{_,x_,x_}]

Giraffe n×n

Table[GraphData[{"Giraffe",{n,n}},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"Giraffe",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

Goldberg

Table[GraphData[{"Goldberg",n},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"Goldberg",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,20}]

Grid m×n

Entity["Graph",{"Grid",{m,n}}]["Ptolemaic"]

Sort@DeleteCases[{
{m,n}=GraphData[#,"NotationRules","Grid"],
Piecewise[{{True,Min[m,n]==1}},False],
GraphData[#,"Ptolemaic"]}&/@Select[GraphData["Grid"],Length[GraphData[#,"NotationRules","Grid"]]==2&],{_,x_,x_}]

Grid n×n

Entity["Graph",{"Grid",{n,n}}]["Ptolemaic"]

Table[GraphData[{"Grid",{n,n}},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"Grid",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

Grid k×m×n

Entity["Graph",{"Grid",{k,m,n}}]["Ptolemaic"]

Sort@DeleteCases[{
{k,m,n}=GraphData[#,"NotationRules","Grid"],
Piecewise[{{True,Max[k,m,n]==k m n}},False],
GraphData[#,"Ptolemaic"]}&/@Select[GraphData["Grid"],Length[GraphData[#,"NotationRules","Grid"]]==3&],{_,x_,x_}]

Grid n×n×n

Entity["Graph",{"Grid",{n,n,n}}]["Ptolemaic"]

Table[GraphData[{"Grid",{n,n,n}},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"Grid",{n,n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

HalvedCube

Table[GraphData[{"HalvedCube",n},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"HalvedCube",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

Hanoi

Table[GraphData[{"Hanoi",n},"Ptolemaic"],{n,5}]

Do[Print[{gn=GraphData[{"Hanoi",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,5}]

Helm

Table[GraphData[{"Helm",n},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"Helm",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,20}]

Hypercube

Entity["Graph",{"Hypercube",n}]["Ptolemaic"]

Table[GraphData[{"Hypercube",n},"Ptolemaic"],{n,0,10}]

Do[Print[{gn=GraphData[{"Hypercube",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,0,10}]

Keller

Entity["Graph",{"Keller",n}]["Ptolemaic"]

Table[GraphData[{"Keller",n},"Ptolemaic"],{n,5}]

Do[Print[{gn=GraphData[{"Keller",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,5}]

King m×n

Sort@DeleteCases[{
{m,n}=GraphData[#,"NotationRules","King"],
Piecewise[{{True,Min[m,n]==1}},False],
GraphData[#,"Ptolemaic"]}&/@GraphData["King"],{_,x_,x_}]

King n×n

Table[GraphData[{"King",{n,n}},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"King",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

Knight m×n

Entity["Graph",{"Knight",{m,n}}]["Ptolemaic"]

Sort@DeleteCases[{
{m,n}=GraphData[#,"NotationRules","Knight"],
Piecewise[{{True,Min[m,n]<3}},False],
GraphData[#,"Ptolemaic"]}&/@GraphData["Knight"],{_,x_,x_}]

Knight n×n

Entity["Graph",{"Knight",{n,n}}]["Ptolemaic"]

Table[GraphData[{"Knight",{n,n}},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"Knight",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

Ladder

Entity["Graph",{"Ladder",n}]["Ptolemaic"]

Table[GraphData[{"Ladder",n},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"Ladder",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

LadderRung

Table[GraphData[{"LadderRung",n},"Ptolemaic"],{n,20}]

MengerSponge

Table[GraphData[{"MengerSponge",n},"Ptolemaic"],{n,3}]

Do[Print[{gn=GraphData[{"MengerSponge",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3}]

MoebiusLadder

Entity["Graph",{"MoebiusLadder",n}]["Ptolemaic"]

Table[GraphData[{"MoebiusLadder",n},"Ptolemaic"],{n,3,25}]

Do[Print[{gn=GraphData[{"MoebiusLadder",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,25}]

Mycielski

Entity["Graph",{"Mycielski",n}]["Ptolemaic"]

Table[GraphData[{"Mycielski",n},"Ptolemaic"],{n,11}]

Do[Print[{gn=GraphData[{"Mycielski",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,11}]

Odd

Entity["Graph",{"Odd",n}]["Ptolemaic"]

Table[GraphData[{"Odd",n},"Ptolemaic"],{n,7}]

Do[Print[{gn=GraphData[{"Odd",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,7}]

Pan

Table[GraphData[{"Pan",n},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"Pan",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,20}]

Path

Entity["Graph",{"Path",n}]["Ptolemaic"]

Table[GraphData[{"Path",n},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"Path",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

PathComplement

Table[GraphData[{"PathComplement",n},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"PathComplement",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

Prism

Entity["Graph",{"Prism",n}]["Ptolemaic"]

Table[GraphData[{"Prism",n},"Ptolemaic"],{n,3,25}]

Do[Print[{gn=GraphData[{"Prism",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,25}]

Queen m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","Queen"],
Piecewise[{{True,Min[m,n]==1}},False],
GraphData[#,"Ptolemaic"]}&/@GraphData["Queen"],{_,x_,x_}]

Queen n×n

Table[GraphData[{"Queen",{n,n}},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"Queen",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

Rook m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","Rook"],
Piecewise[{{True,Min[m,n]==1}},False],
GraphData[#,"Ptolemaic"]}&/@GraphData["Rook"],{_,x_,x_}]

Rook n×n

Table[GraphData[{"Rook",{n,n}},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"Rook",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

RookComplement m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","RookComplement"],
Piecewise[{{True,Min[m,n]==1||m==n==2}},False],
GraphData[#,"Ptolemaic"]}&/@GraphData["RookComplement"],{_,x_,x_}]

RookComplement n×n

Table[GraphData[{"RookComplement",{n,n}},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"RookComplement",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

SierpinskiCarpet

Table[GraphData[{"SierpinskiCarpet",n},"Ptolemaic"],{n,4}]

Do[Print[{gn=GraphData[{"SierpinskiCarpet",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,4}]

SierpinskiGasket

Table[GraphData[{"SierpinskiGasket",n},"Ptolemaic"],{n,5}]

Do[Print[{gn=GraphData[{"SierpinskiGasket",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,5}]

SierpinskiTetrahedron

Table[GraphData[{"SierpinskiTetrahedron",n},"Ptolemaic"],{n,6}]

Do[Print[{gn=GraphData[{"SierpinskiTetrahedron",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,4}]

StackedBook m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","StackedBook"],
False,
GraphData[#,"Ptolemaic"]}&/@GraphData["StackedBook"],{_,x_,x_}]

StackedBook n×n

Table[GraphData[{"StackedBook",{n,n}},"Ptolemaic"],{n,10}]

Do[Print[{gn=GraphData[{"StackedBook",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,10}]

StackedPrism m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","StackedPrism"],
False,
GraphData[#,"Ptolemaic"]}&/@GraphData["StackedPrism"],{_,x_,x_}]

StackedPrism n×n

Table[GraphData[{"StackedPrism",{n,n}},"Ptolemaic"],{n,3,5}]

Do[Print[{gn=GraphData[{"StackedPrism",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,5}]

Star

Entity["Graph",{"Star",n}]["Ptolemaic"]

Table[GraphData[{"Star",n},"Ptolemaic"],{n,25}]

Do[Print[{gn=GraphData[{"Star",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,25}]

Sun

Table[GraphData[{"Sun",n},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"Sun",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,20}]

Sunlet

Table[GraphData[{"Sunlet",n},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"Sunlet",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,20}]

TorusGrid m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","TorusGrid"],
False,
GraphData[#,"Ptolemaic"]}&/@GraphData["TorusGrid"],{_,x_,x_}]

TorusGrid n×n

Table[GraphData[{"TorusGrid",{n,n}},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"TorusGrid",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,10}]

Transposition

Entity["Graph",{"Transposition",n}]["Ptolemaic"]

Table[GraphData[{"Transposition",n},"Ptolemaic"],{n,6}]

Do[Print[{gn=GraphData[{"Transposition",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,6}]

Triangular

Table[GraphData[{"Triangular",n},"Ptolemaic"],{n,2,10}]

Do[Print[{gn=GraphData[{"Triangular",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,2,10}]

TriangularGrid

Table[GraphData[{"TriangularGrid",n},"Ptolemaic"],{n,0,10}]

Do[Print[{gn=GraphData[{"TriangularGrid",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,0,10}]

TriangularHoneycombAcuteKnight

Table[GraphData[{"TriangularHoneycombAcuteKnight",n},"Ptolemaic"],{n,20}]

TriangularHoneycombBishop

Table[GraphData[{"TriangularHoneycombBishop",n},"Ptolemaic"],{n,9}]

TriangularHoneycombObtuseKnight

Table[GraphData[{"TriangularHoneycombObtuseKnight",n},"Ptolemaic"],{n,20}]

TriangularHoneycombQueen

Table[GraphData[{"TriangularHoneycombQueen",n},"Ptolemaic"],{n,10}]

TriangularHoneycombRook

Table[GraphData[{"TriangularHoneycombRook",n},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"TriangularHoneycombRook",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]

TriangularSnake

Table[GraphData[{"TriangularSnake",n},"Ptolemaic"],{n,1,20,2}]

Do[Print[{gn=GraphData[{"TriangularSnake",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,1,20,2}]

Web

Table[GraphData[{"Web",n},"Ptolemaic"],{n,3,20}]

Do[Print[{gn=GraphData[{"Web",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,3,20}]

Wheel

Entity["Graph",{"Wheel",n}]["Ptolemaic"]

Table[GraphData[{"Wheel",n},"Ptolemaic"],{n,4,20}]

Do[Print[{gn=GraphData[{"Wheel",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,4,20}]

WheelComplement

Table[GraphData[{"WheelComplement",n},"Ptolemaic"],{n,4,20}]

Do[Print[{gn=GraphData[{"WheelComplement",n},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,4,20}]

WhiteBishop n×n

Table[GraphData[{"WhiteBishop",{n,n}},"Ptolemaic"],{n,2,20}]

Do[Print[{gn=GraphData[{"WhiteBishop",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,2,10}]

Zebra m×n

DeleteCases[{
{m,n}=GraphData[#,"NotationRules","Zebra"],
False,
GraphData[#,"Ptolemaic"]}&/@GraphData["Zebra"],{_,x_,x_}]

Zebra n×n

Table[GraphData[{"Zebra",{n,n}},"Ptolemaic"],{n,20}]

Do[Print[{gn=GraphData[{"Zebra",{n,n}},"#"],PtolemaicGraphQ@GraphData[gn]//Timing}],{n,20}]