URL: https://mathworld.wolfram.com/notebooks/GraphTheory/PermutationStarGraph.nb
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Wolfram 15.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 154, 7]
NotebookDataLength[ 39592015, 644936]
NotebookOptionsPosition[ 39392009, 641638]
NotebookOutlinePosition[ 39398331, 641744]
CellTagsIndexPosition[ 39398242, 641739]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Permutation Star Graph", "Title",ExpressionUUID->"8557eaf4-ca69-43ed-b96c-f9f87cc1aab9"],
Cell[CellGroupData[{
Cell["Author", "Subsection",ExpressionUUID->"436be3ca-7386-4cee-9244-88e90cbaf92b"],
Cell["\<\
Eric W. Weisstein
January 1, 2026\
\>", "Text",ExpressionUUID->"8c167ccf-1bd3-46e2-979e-784ce311521b"],
Cell["\<\
This notebook downloaded from \
https://mathworld.wolfram.com/notebooks/GraphTheory/PermutationStarGraph.nb.\
\>", "Text",ExpressionUUID->"a6cbc743-eca4-4435-aaa2-1d50d9f7ad75"],
Cell["\<\
For more information, see Eric's MathWorld entry \
https://mathworld.wolfram.com/PermutationStarGraph.html.\
\>", "Text",ExpressionUUID->"30f9a717-2b66-4a96-a60a-25cdd2bff4fa"],
Cell["\<\
\[Copyright]2026 Wolfram Research, Inc. except for portions noted otherwise\
\>", "Text",ExpressionUUID->"89d6f690-9892-4ee3-a693-49bf0b698165"]
}, Open ]],
Cell[CellGroupData[{
Cell["Embeddings", "Section",ExpressionUUID->"2c81f8af-0655-49f8-a5d6-840a8ef405c4"],
Cell[BoxData[
RowBox[{"<<", "MathWorld`Graphs`"}]], "Input",
InitializationCell->True,
CellLabel->"In[1]:=",ExpressionUUID->"ecac429c-4b3a-48b6-9070-dcb71674f40f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"GraphData", "[", "\"\
