Flower Snark

Author

Eric W. Weisstein
June 19, 2023

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

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

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

Standard names

Renamed from "FlowerSnarkJ5" to {"Flower", 5} etc. in V13.1

$Version

GraphData["Flower*"]

GraphData["Flower"]

GraphData[{"Flower","Snark"}]

Special cases

TietzeGraph

Related to TietzeGraph?

g1=Annotate[FlowerSnark[3],ImageSize->Tiny]

g2=Graph[EdgeList[FlowerSnark[3]],ImageSize->Tiny]

g3=ContractCoincidentVertices[g1]

RecognizeGraph/@{g1,g2,g3}

GraphData["TietzeGraph","Graph","All"]

Figure

GraphicsRow[Table[GraphData[{"Flower",n}],{n,5,11,2}]//StyleGraphs,Dividers->All]

GraphicsRow[Table[FlowerGraph[n],{n,5,11,2}]//StyleGraphs,Dividers->All]