(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 14.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    256414,       5689]
NotebookOptionsPosition[     80378,       2067]
NotebookOutlinePosition[    243871,       5461]
CellTagsIndexPosition[    243828,       5458]
WindowTitle->5. Multiples and Divisors | Introduction to Number Theory
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 
 CounterBox["Section"],
 StyleBox[" | ", "SectionBar"],
 "Multiples and Divisors"
}], "Section",
 CounterAssignments->{{"Section", 4}},
 CellID->2142152068,ExpressionUUID->"c06df75d-b015-481b-9997-21ea9ccefd7c"],

Cell["\<\
The divisibility property is one of the most important notions of number \
theory.\
\>", "Text",
 CellChangeTimes->{{3.7053365595904417`*^9, 3.705336561045041*^9}, {
  3.7053371649880867`*^9, 3.705337180038319*^9}, {3.70533721521646*^9, 
  3.705337239199349*^9}, {3.705337275479281*^9, 3.7053374211564903`*^9}, {
  3.70533757364089*^9, 3.705337626682184*^9}, {3.7060087029273643`*^9, 
  3.706008706700182*^9}, {3.7060087427165527`*^9, 3.706008786649349*^9}, {
  3.707214371292144*^9, 3.707214403979507*^9}, {3.7072157137621117`*^9, 
  3.7072157291499147`*^9}, {3.720961663936048*^9, 3.720961668799725*^9}, {
  3.794031388086607*^9, 3.794031468587023*^9}, {3.8893383681516933`*^9, 
  3.889338372292204*^9}, {3.8893412311309876`*^9, 3.8893412314134088`*^9}, {
  3.9307595312584343`*^9, 3.93075953151435*^9}},
 CellID->40678697,ExpressionUUID->"fa886f88-a54d-44f7-8f63-32cfdbca0ede"],

Cell["\<\
So far, we talked about primes and prime factorization of numbers. These deal \
with divisors and multiples of numbers. By only adding and subtracting \
numbers, we won\[CloseCurlyQuote]t get anywhere in both daily life and \
science.\
\>", "Text",
 CellChangeTimes->{{3.7053365595904417`*^9, 3.705336561045041*^9}, {
  3.7053371649880867`*^9, 3.705337180038319*^9}, {3.70533721521646*^9, 
  3.705337239199349*^9}, {3.705337275479281*^9, 3.7053374211564903`*^9}, {
  3.70533757364089*^9, 3.705337626682184*^9}, {3.7060087029273643`*^9, 
  3.706008706700182*^9}, {3.7060087427165527`*^9, 3.706008786649349*^9}, {
  3.707214371292144*^9, 3.707214403979507*^9}, {3.7072157137621117`*^9, 
  3.7072157291499147`*^9}, {3.720961663936048*^9, 3.720961668799725*^9}, {
  3.794031388086607*^9, 3.794031468587023*^9}, {3.8893383681516933`*^9, 
  3.889338372292204*^9}, {3.8893412311309876`*^9, 3.8893412314134088`*^9}, {
  3.899864127493745*^9, 3.899864199718625*^9}, {3.930759534484696*^9, 
  3.9307595349421263`*^9}},
 CellID->1148597400,ExpressionUUID->"0db77fcf-a184-46dd-a60b-2c5c76d750a2"],

Cell["\<\
The book has already partially covered the divisibility of integers and the \
classification of numbers based on their number of divisors.\
\>", "Text",
 CellChangeTimes->{{3.706008795971448*^9, 3.706008832773458*^9}, {
   3.707214407274991*^9, 3.707214511288368*^9}, {3.720961674759697*^9, 
   3.7209616774631443`*^9}, {3.7940314556542315`*^9, 3.794031501910615*^9}, {
   3.883727406028042*^9, 3.8837274335837393`*^9}, {3.883727477244547*^9, 
   3.8837274791132164`*^9}, {3.8893383799170785`*^9, 3.8893383801386113`*^9}, 
   3.8893412626944084`*^9, {3.897623366785397*^9, 3.897623367286602*^9}, {
   3.930759538327673*^9, 3.930759538555357*^9}},
 CellID->12387892,ExpressionUUID->"c97a9209-7107-4506-8ed1-d24554b3651b"],

Cell[TextData[{
 "This lesson will introduce the ",
 StyleBox["multiples",
  FontSlant->"Italic"],
 " and ",
 StyleBox["divisors",
  FontSlant->"Italic"],
 " of a number, as well as other notions derived from them."
}], "Text",
 CellChangeTimes->{{3.706266340112178*^9, 3.706266369910357*^9}, {
  3.707214330799555*^9, 3.7072143459599123`*^9}, {3.79403154061285*^9, 
  3.794031547171196*^9}, {3.7940315836905136`*^9, 3.7940316387646117`*^9}, {
  3.8037172579571276`*^9, 3.803717260975415*^9}, {3.8789621355037756`*^9, 
  3.8789621389198256`*^9}, {3.879004525594204*^9, 3.879004533078125*^9}, {
  3.8840037701308875`*^9, 3.884003820983074*^9}, {3.889338400685397*^9, 
  3.889338403156701*^9}},
 CellID->451226098,ExpressionUUID->"9a657cf7-990a-4595-9c80-6eec15dceeaf"],

Cell[CellGroupData[{

Cell["Multiples", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705325094381097*^9, 
   3.7053251124968987`*^9}, 3.7054113837447033`*^9, {3.7924640347600393`*^9, 
   3.7924640373195744`*^9}},
 CellID->800359348,ExpressionUUID->"33a6ebcd-c7c9-48ad-bfc2-79a0c3c98b3c"],

Cell[TextData[{
 "Take a certain integer, for example, ",
 Cell[BoxData[
  FormBox["7", TraditionalForm]], "InlineMath",ExpressionUUID->
  "672bef6c-8960-4c03-8d28-80b0ff3b57e4"],
 ", and multiply it by all natural numbers:"
}], "Text",
 CellID->197621127,ExpressionUUID->"25967bd9-6bcf-4799-b6fa-51ea1b2d5d60"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"7", "*", "2"}], "=", "14"}], TraditionalForm]], "DisplayFormula",
 CellID->435071999,ExpressionUUID->"5792dcf4-b8b9-423b-8906-b16de54820b3"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"7", "*", "3"}], "=", "21"}], TraditionalForm]], "DisplayFormula",
 CellID->2110160488,ExpressionUUID->"cb0fe7e1-9d1b-497f-8473-3aef1d18568f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"7", "*", "4"}], "=", "28"}], TraditionalForm]], "DisplayFormula",
 CellID->1922375258,ExpressionUUID->"5d4f3557-5dc4-4c28-adb8-82b5eef40736"],

Cell[BoxData[
 FormBox["\[Ellipsis]", TraditionalForm]], "DisplayFormula",
 CellID->469492091,ExpressionUUID->"d0a689e9-04e6-49e2-9ec0-532a8f636227"],

Cell[TextData[{
 "All those numbers have the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{"7", "*", "k"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "9d1a5a3f-bb9b-436b-8e53-c86cc1746fd0"],
 ", where ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]], "InlineMath",ExpressionUUID->
  "43177911-ed66-41c8-901b-18e78ca4a3a1"],
 " is an arbitrary integer."
}], "Text",
 CellID->597242648,ExpressionUUID->"6f1e9455-59f0-45c7-acf6-a637aa4fa4f5"],

Cell[TextData[{
 "Those numbers are the multiples of ",
 Cell[BoxData[
  FormBox["7", TraditionalForm]], "InlineMath",ExpressionUUID->
  "53d3e226-8c08-47e5-85c9-436b7ed657f8"],
 "."
}], "Text",
 CellID->43927123,ExpressionUUID->"aee3608a-f475-4d78-bdca-0d57953ca970"],

Cell[TextData[{
 "It is said that ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "f3e6139e-7d6d-4cdf-b07e-7b18b9e8436b"],
 " is a ",
 StyleBox["multiple",
  FontSlant->"Italic"],
 " of ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a5c02015-6de4-4fe2-bb16-c0394c2826fe"],
 " if ",
 Cell[BoxData[
  FormBox[
   RowBox[{"b", "=", 
    RowBox[{"k", "*", "a"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "6260be54-fa85-4ac7-9c72-bef98284c7aa"],
 " for some integer ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]], "InlineMath",ExpressionUUID->
  "1d7ca27e-00d1-4f52-999d-a5ce67b8d22c"],
 "."
}], "Text",
 CellID->463792733,ExpressionUUID->"0da2a915-58fe-46bb-afe6-15f3841c5bb4"],

Cell[TextData[{
 "The integer ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]], "InlineMath",ExpressionUUID->
  "7779d673-0ccb-4b68-939c-9677d2216040"],
 " is called the ",
 StyleBox["multiplier",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellID->94824104,ExpressionUUID->"dcfc3c51-18dc-4694-9788-c32dcb494e95"],

Cell["\<\
Therefore, the number of multiples of an integer is infinite. \
\>", "Text",
 CellChangeTimes->{
  3.793768117754794*^9, {3.8789621671180587`*^9, 3.878962184763634*^9}, {
   3.879004917869765*^9, 3.8790049213245435`*^9}, {3.8790049738359365`*^9, 
   3.879004989778823*^9}, {3.8793450696509857`*^9, 3.879345070674844*^9}, {
   3.883642474448868*^9, 3.8836424787050047`*^9}},
 CellID->303984893,ExpressionUUID->"098feea2-5321-4d54-9de9-3219c7aff277"],

Cell[TextData[{
 "You can represent the set of multiples of ",
 Cell[BoxData[
  FormBox["6", TraditionalForm]], "InlineMath",ExpressionUUID->
  "9d517f53-03d9-474d-adf2-e984b37d5807"],
 " as:"
}], "Text",
 CellID->335952528,ExpressionUUID->"259e9cc1-4629-4786-a1c8-d0e2ee2d0c53"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
   "6", ",", "12", ",", "18", ",", "24", ",", "30", ",", "36", ",", "42", ",",
     "48", ",", "54", ",", "60", ",", "66", ",", "72", ",", "78", ",", "84", ",",
     "90", ",", "96", ",", "\[Ellipsis]", ",", 
    RowBox[{"6", "*", "k"}], ",", "\[Ellipsis]"}], "}"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1049468855,ExpressionUUID->"4bd11a1a-a112-459b-92a1-fd1af2b62f3e"],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]], "InlineMath",ExpressionUUID->
  "d29372b7-222a-4efc-8b5d-722292ec3be9"],
 " is an arbitrary integer. "
}], "Text",
 CellID->128266830,ExpressionUUID->"9a6e04e9-c491-46b1-a14a-423031b01806"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Divisors", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, {3.705331285026352*^9, 3.7053312920651693`*^9}, 
   3.70541139216285*^9, {3.792464148515051*^9, 3.792464150322009*^9}},
 CellID->1949480675,ExpressionUUID->"08216369-287c-4257-b8d2-e286fe21ca43"],

Cell[TextData[{
 "Consider the number 6. What are its divisors? Check by dividing ",
 Cell[BoxData[
  FormBox["6", TraditionalForm]], "InlineMath",ExpressionUUID->
  "8dad1399-012c-4026-8158-bfdab0202e9d"],
 " by all the numbers below ",
 Cell[BoxData[
  FormBox["6", TraditionalForm]], "InlineMath",ExpressionUUID->
  "7405c625-539d-4991-9b3e-50b8b4acdaf5"],
 ":"
}], "Text",
 CellID->45712726,ExpressionUUID->"1261ff9e-9487-4d2d-8937-25094f9e9674"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"6", "\[Divide]", "1"}], "=", "6"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->518719415,ExpressionUUID->"87714476-c4a0-40f6-87e4-b85123c07a51"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"6", "\[Divide]", "2"}], "=", "3"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1108138347,ExpressionUUID->"5c49bf60-aa3a-4221-8e34-5ed4fd88a427"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"6", "\[Divide]", "3"}], "=", "2"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1503011245,ExpressionUUID->"524577de-0b94-4210-9868-10a78a1445af"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"6", "\[Divide]", "4"}], "=", 
   RowBox[{
    RowBox[{"4", "*", "1"}], "+", "2"}]}], TraditionalForm]], "DisplayFormula",\

 CellID->259855054,ExpressionUUID->"bb771b77-3f28-4b9d-b864-fec8203bbd17"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"6", "\[Divide]", "5"}], "=", 
   RowBox[{
    RowBox[{"5", "*", "1"}], "+", "1"}]}], TraditionalForm]], "DisplayFormula",\

 CellID->1549638227,ExpressionUUID->"0818d71f-9f5e-44ad-9fba-9a50f06d7fc7"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"6", "\[Divide]", "6"}], "=", "1"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->88010373,ExpressionUUID->"af2c5358-6c69-491a-b998-5963280357c0"],

Cell[TextData[{
 "The divisors of ",
 Cell[BoxData[
  FormBox["6", TraditionalForm]], "InlineMath",ExpressionUUID->
  "b18b0d18-43eb-4c5d-b367-83e497911b13"],
 " are numbers that leave a remainder of ",
 Cell[BoxData[
  FormBox["0", TraditionalForm]], "InlineMath",ExpressionUUID->
  "33b7d4d2-514f-45a6-8c33-fb7c9ac58a0c"],
 " when divided by ",
 Cell[BoxData[
  FormBox["6", TraditionalForm]], "InlineMath",ExpressionUUID->
  "e7845f64-f8b9-44c8-a3fa-63a6e171a0c4"],
 ", so they are"
}], "Text",
 CellID->193745085,ExpressionUUID->"5e126fe0-64db-4443-8fe1-b3d1a2677520"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "6"}], "}"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->615951069,ExpressionUUID->"0c1ae4e3-89ec-4e82-8dfe-003d42e06c66"],

Cell[TextData[{
 "It is said that ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a28f9ac2-42da-40aa-a1af-94b05d7204ad"],
 " is a ",
 StyleBox["divisor",
  FontSlant->"Italic"],
 " of ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "082436d9-ce58-4c4b-9b3d-b84e86fa973b"],
 " if there is an integer ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]], "InlineMath",ExpressionUUID->
  "bab5eddc-31e6-415e-ab18-077474ac6469"],
 " such that ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", 
    RowBox[{"k", "*", "b"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "165d3e2e-9de1-4b66-a745-8d8c9eefddf3"],
 "."
}], "Text",
 CellID->642247349,ExpressionUUID->"d2e741c3-1c0f-4111-a995-a2064a3f827f"],

Cell[TextData[{
 "For example, the divisors of ",
 Cell[BoxData[
  FormBox["180", TraditionalForm]], "InlineMath",ExpressionUUID->
  "0cc1c936-17d7-4631-b6d1-61697aaa7aae"],
 " are"
}], "Text",
 CellID->667615574,ExpressionUUID->"4c80e0b5-83f5-44da-9218-325d68b4ba76"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "9", ",", "10",
     ",", "12", ",", "15", ",", "18", ",", "20", ",", "30", ",", "36", ",", 
    "45", ",", "60", ",", "90", ",", "180"}], "}"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1676086281,ExpressionUUID->"c9e3c6e6-2ee8-4255-9674-ce78087d3f15"],

Cell["\<\
Since no divisor can be greater than the number, the number of divisors of an \
integer is finite.\
\>", "Text",
 CellChangeTimes->{{3.793777744760075*^9, 3.7937777474695244`*^9}, {
  3.8789622021979356`*^9, 3.8789622399860506`*^9}, {3.8790051530263085`*^9, 
  3.8790052113288865`*^9}, {3.883642641669777*^9, 3.8836426635113945`*^9}},
 CellID->1856760,ExpressionUUID->"5b7004cf-a156-431f-ac8a-8d4641afb0fd"],

Cell[TextData[{
 "It is very easy to see that all numbers have ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "9693134b-d7a0-46af-97d1-7aa63bca261a"],
 " and themselves as divisors:"
}], "Text",
 CellID->685828349,ExpressionUUID->"735ceb22-f168-4dcd-8919-ee66c0747b39"],

Cell[BoxData[
 FormBox[
  RowBox[{"a", "=", 
   RowBox[{"a", "*", "1"}]}], TraditionalForm]], "DisplayFormula",
 CellID->832924891,ExpressionUUID->"0d190374-11ee-42d2-88c1-5db671749c3a"],

Cell[BoxData[
 FormBox[
  RowBox[{"a", "=", 
   RowBox[{"1", "*", "a"}]}], TraditionalForm]], "DisplayFormula",
 CellID->1670231891,ExpressionUUID->"3c02e051-82db-4fee-8153-9631a6d2590a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Number of Divisors", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, {3.705331285026352*^9, 3.7053312920651693`*^9}, 
   3.70541139216285*^9, {3.792464148515051*^9, 3.792464150322009*^9}, {
   3.803710115952883*^9, 3.8037101191200705`*^9}},
 CellID->629334821,ExpressionUUID->"0446231f-78cc-45e9-bd15-9b21982edc94"],

Cell[CellGroupData[{

Cell[TextData[{
 "The only number with just one divisor is ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a67480c3-a81d-4047-8ad0-83feeba8810a"],
 ". "
}], "Item",
 CellID->76513514,ExpressionUUID->"6d345426-6e24-4a89-a339-66446bf07d32"],

Cell["Numbers with two divisors are prime numbers.", "Item",
 CellChangeTimes->{{3.8037103754763155`*^9, 3.8037104178020763`*^9}, {
   3.879345304715252*^9, 3.879345305804853*^9}, {3.884002342004444*^9, 
   3.8840023859393806`*^9}, {3.8840024940959067`*^9, 
   3.8840025061176076`*^9}, {3.884002562196366*^9, 3.884002591538266*^9}, {
   3.888902565445307*^9, 3.888902583063896*^9}, 3.8889026898437386`*^9},
 CellID->238749029,ExpressionUUID->"90a66f15-14f6-4b09-9e8e-ebd6c9b3e309"]
}, Open  ]],

Cell[TextData[{
 " Therefore, the smallest number with just two divisors is ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "70857be3-e47b-4bcb-a0f6-b77be248cc7d"],
 "."
}], "Text",
 CellID->303076523,ExpressionUUID->"17a54bd3-bb7c-490c-86c5-45f2ddc26519"],

Cell["Which numbers have exactly three divisors?", "Text",
 CellChangeTimes->{{3.8037107724760475`*^9, 3.803710797878507*^9}, {
  3.8790053088544884`*^9, 3.879005317819784*^9}, {3.8840024424556847`*^9, 
  3.884002450482887*^9}, {3.8840026070839744`*^9, 3.884002615079022*^9}, {
  3.888902589125404*^9, 3.8889026000435658`*^9}, {3.8889027122214937`*^9, 
  3.8889027177382994`*^9}, {3.8893386381297846`*^9, 3.8893386383701615`*^9}},
 CellID->140310891,ExpressionUUID->"9c30d728-52e2-4ce5-899d-21f989daf233"],

Cell["Look at the numbers", "Text",
 CellChangeTimes->{3.8893386395157957`*^9, 3.943026951562456*^9, 
  3.9489061385770283`*^9},
 CellID->97974074,ExpressionUUID->"31df535b-f048-43c5-a17f-38363a10932e"],

Cell[BoxData[
 FormBox[
  RowBox[{"4", ",", "9", ",", "25", ",", "49"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1652054000,ExpressionUUID->"5a6553f8-1d15-459a-918a-987a535f6773"],

Cell["They have three divisors each.", "Text",
 CellChangeTimes->{3.888902611334468*^9},
 CellID->68122139,ExpressionUUID->"ea8360b8-7177-4b90-8235-57bb00b943b9"],

Cell[TextData[{
 "For example, the divisors of ",
 Cell[BoxData[
  FormBox["4", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a31d4bbe-af4d-4777-97f0-c6fc6e3455f5"],
 " are ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "dcc7e4a8-3c7d-4cb2-93b2-1293fbacc7f4"],
 ", ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "26648287-4c3a-49b3-9ab0-64a8d009c42f"],
 " and ",
 Cell[BoxData[
  FormBox["4", TraditionalForm]], "InlineMath",ExpressionUUID->
  "d057b24e-0958-4e72-b519-7f4ac1b9835a"],
 "."
}], "Text",
 CellID->246273025,ExpressionUUID->"e6c19e9e-0b15-4eb6-8b6d-07e0bd3e6bf1"],

Cell["\<\
They have one more thing in common. They are all squares of a prime number:\
\>", "Text",
 CellChangeTimes->{{3.8889027461613226`*^9, 3.888902800730269*^9}, {
  3.9430269882366047`*^9, 3.943026988551647*^9}},
 CellID->697877667,ExpressionUUID->"73e682fe-9af0-49e0-bc67-d46117054d67"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"4", "=", 
    SuperscriptBox["2", "2"]}], ",", " ", 
   RowBox[{"9", "=", 
    SuperscriptBox["3", "2"]}], ",", " ", 
   RowBox[{"25", "=", 
    SuperscriptBox["5", "2"]}], ",", " ", 
   RowBox[{"49", "=", 
    SuperscriptBox["7", "2"]}]}], TraditionalForm]], "DisplayFormula",
 CellID->1172540918,ExpressionUUID->"568683a1-71ff-424d-b9d1-e108135f1cfd"],

Cell["\<\
Actually, a number has exactly three divisors if and only if it is a square \
of a prime.\
\>", "Text",
 CellChangeTimes->{{3.8037105774297047`*^9, 3.803710619550592*^9}, {
  3.8037106684775667`*^9, 3.8037106700137033`*^9}, {3.8037114235693054`*^9, 
  3.8037114462223377`*^9}, {3.884002655710787*^9, 3.884002665087304*^9}, {
  3.8840027962996736`*^9, 3.884002833322219*^9}, {3.8840029625397654`*^9, 
  3.884003000257092*^9}, {3.8840030808788033`*^9, 3.8840030810190077`*^9}, {
  3.8889029335200253`*^9, 3.8889029406354513`*^9}, {3.8889029719183626`*^9, 
  3.8889030039451323`*^9}, {3.8889035412662034`*^9, 3.8889035671579714`*^9}},
 CellID->85886160,ExpressionUUID->"c4fbefb7-c351-4fd8-b34b-90817a6c9722"],

Cell["You will find out why shortly.", "Text",
 CellChangeTimes->{3.888903568945871*^9, 3.8893386228273144`*^9},
 CellID->215296008,ExpressionUUID->"761a0ef1-d151-4354-947d-fefa3a6512eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Formula for the Number of Divisors", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.7053324849499483`*^9, 
   3.705332490998067*^9}, 3.705411404535008*^9, {3.7928188136792393`*^9, 
   3.792818838235037*^9}, {3.8037114525837116`*^9, 3.8037114625130267`*^9}, {
   3.8840022196198397`*^9, 3.8840022206306877`*^9}, {3.8840030931634912`*^9, 
   3.8840030952089925`*^9}, {3.8840034802038317`*^9, 3.884003490996999*^9}, {
   3.8840044716827726`*^9, 3.88400447207246*^9}, {3.943027724539892*^9, 
   3.943027724823044*^9}},
 CellID->194496752,ExpressionUUID->"fce1b17d-1dfd-4f76-83b6-bfd737d90eb5"],

Cell["\<\
Prime factorization gives a simple way of finding some numerical \
characteristics of a number.\
\>", "Text",
 CellChangeTimes->{{3.796443852650878*^9, 3.796443881731593*^9}, {
  3.8037124457221413`*^9, 3.8037124464417443`*^9}, {3.930759647437437*^9, 
  3.93075964794631*^9}},
 CellID->223390620,ExpressionUUID->"3e9b7df0-c7c8-48be-83fa-5c59a3d176d0"],

Cell["\<\
Once you know the prime factorization of the number, you can answer certain \
questions about the number right away.\
\>", "Text",
 CellChangeTimes->{{3.8037128356412325`*^9, 3.803712878864488*^9}, {
   3.879007392701335*^9, 3.879007417153844*^9}, {3.884000114436593*^9, 
   3.8840001401181946`*^9}, {3.884003102630765*^9, 3.884003102983678*^9}, 
   3.8893447986444426`*^9, {3.930759650807891*^9, 3.930759651017198*^9}},
 CellID->65317823,ExpressionUUID->"1c75a098-a9c3-49fd-8725-2ae9f920676b"],

Cell[TextData[{
 "Consider the number ",
 Cell[BoxData[
  FormBox["1480", TraditionalForm]], "InlineMath",ExpressionUUID->
  "401021c7-db53-40d6-8bfb-85b8dc070a8f"],
 ". Its prime factorization is"
}], "Text",
 CellID->118461554,ExpressionUUID->"4755dbc3-ffea-4c85-9587-8e22df7c73ed"],

Cell[BoxData[
 FormBox[
  RowBox[{"1480", "=", 
   RowBox[{
    SuperscriptBox["2", "3"], "*", "5", "*", "37"}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->733735261,ExpressionUUID->"cdef8066-af1c-4333-acdb-99283081efde"],

Cell[TextData[{
 "Suppose ",
 Cell[BoxData[
  FormBox["d", TraditionalForm]], "InlineMath",ExpressionUUID->
  "dc05b83a-1e58-427c-8abb-d8bbf7ceddf5"],
 " is one of its divisors. "
}], "Text",
 CellID->42576146,ExpressionUUID->"29b6cead-b066-404d-a373-edaa33a66805"],

Cell[TextData[{
 "The prime factorization shows that the only primes that can occur as \
factors of ",
 Cell[BoxData[
  FormBox["d", TraditionalForm]], "InlineMath",ExpressionUUID->
  "184629c1-6699-41c6-942e-a6fe0e7d82ed"],
 " are ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "049a9655-1b33-4112-adeb-871ffff45fcb"],
 ", ",
 Cell[BoxData[
  FormBox["5", TraditionalForm]], "InlineMath",ExpressionUUID->
  "ec81f13f-4a53-4078-8265-85959cba9bac"],
 " and ",
 Cell[BoxData[
  FormBox["37", TraditionalForm]], "InlineMath",ExpressionUUID->
  "f23ba6c4-446b-4dc0-946c-441c16c7a986"],
 "."
}], "Text",
 CellID->676180313,ExpressionUUID->"9537d1a3-f772-4378-8a5b-34027df5af75"],

Cell[TextData[{
 "Furthermore, ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "305c01c5-9774-4793-a74c-0186beded99a"],
 " can occur as a factor at most three times, while ",
 Cell[BoxData[
  FormBox["5", TraditionalForm]], "InlineMath",ExpressionUUID->
  "aa5dd1a0-157e-45bc-8ce2-244cee92fbe7"],
 " and ",
 Cell[BoxData[
  FormBox["37", TraditionalForm]], "InlineMath",ExpressionUUID->
  "84401d11-a49f-4477-95a8-6aca18d2f2bc"],
 " can each occur at most once. So, the possible divisors of ",
 Cell[BoxData[
  FormBox["1480", TraditionalForm]], "InlineMath",ExpressionUUID->
  "18020bba-8955-4af2-a264-a9649b22fc04"],
 " are"
}], "Text",
 CellID->260933445,ExpressionUUID->"9e3e10fb-f424-47f5-918a-87c3f80e054a"],

Cell[BoxData[
 FormBox[
  RowBox[{"d", "=", 
   RowBox[{
    SuperscriptBox["2", "a"], "*", 
    SuperscriptBox["5", "b"], "*", 
    SuperscriptBox["37", "c"]}]}], TraditionalForm]], "DisplayFormula",
 CellID->1270248350,ExpressionUUID->"d79d0c66-4e63-4a60-9403-a4c4ee788627"],

Cell["where the choices are", "Text",
 CellChangeTimes->{{3.803713095411524*^9, 3.8037131024954677`*^9}, {
   3.879007707724272*^9, 3.8790077335787272`*^9}, {3.883732358464676*^9, 
   3.883732363021386*^9}, 3.948907092620495*^9},
 CellID->316067839,ExpressionUUID->"3ec4be32-4696-48ed-9728-21b390c065d4"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"a", "=", "0"}], ",", "1", ",", "2", ",", "3"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->323409585,ExpressionUUID->"33489dd8-d25d-4b72-8f58-4b3af247c162"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"b", "=", "0"}], ",", "1"}], TraditionalForm]], "DisplayFormula",
 CellID->263784538,ExpressionUUID->"ec0e1253-777c-4e46-99fc-eaadd782b078"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"c", "=", "0"}], ",", "1"}], TraditionalForm]], "DisplayFormula",
 CellID->1020482758,ExpressionUUID->"a41572a2-21bb-4a76-9b99-a3b9df7d54a3"],

Cell[TextData[{
 "That means that the number of divisors of ",
 Cell[BoxData[
  FormBox["1480", TraditionalForm]], "InlineMath",ExpressionUUID->
  "e25efe7b-402f-490a-975e-ab8cac94118b"],
 " is"
}], "Text",
 CellID->510889270,ExpressionUUID->"5c108c07-533e-44f4-a43b-ecc149ba2c72"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"3", "+", "1"}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{"1", "+", "1"}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{"1", "+", "1"}], ")"}]}], "=", 
   RowBox[{
    RowBox[{"4", "*", "2", "*", "2"}], "=", "16"}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1971949273,ExpressionUUID->"59377c4a-67e0-40d0-9fff-19eb16c08fc9"],

Cell["because these choices can be combined in all possible ways.", "Text",
 CellChangeTimes->{{3.803715059996008*^9, 3.803715071586392*^9}, {
  3.87934551126038*^9, 3.879345511318061*^9}, {3.888903131886502*^9, 
  3.88890313369812*^9}},
 CellID->360199197,ExpressionUUID->"7b4f6dc4-6f7b-421f-8af0-e07884ef1719"],

Cell[TextData[{
 "So, the number of divisors of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "=", 
    RowBox[{
     SubsuperscriptBox["p", "1", 
      SubscriptBox["k", "1"]], 
     SubsuperscriptBox["p", "2", 
      SubscriptBox["k", "2"]], "\[Ellipsis]", " ", 
     SubsuperscriptBox["p", "m", 
      SubscriptBox["k", "m"]]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"877cc325-c8b7-1a45-8349-1962131f65be"],
 " is"
}], "Text",
 CellID->771897547,ExpressionUUID->"f2cf3e5a-2d6d-47e9-acf5-414acded93a3"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["k", "1"], "+", "1"}], ")"}], 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["k", "2"], "+", "1"}], ")"}], "\[Ellipsis]", " ", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["k", "m"], "+", "1"}], ")"}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1508587513,ExpressionUUID->"089a5973-1322-4f25-bbf8-e32bfcea78f3"],

Cell[TextData[{
 "Knowing this, let\[CloseCurlyQuote]s now prove that ",
 "a number has exactly three divisors if and only if it is a square of a \
prime",
 StyleBox[".",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.888903700548519*^9, 3.888903717976015*^9}, 
   3.888904680224908*^9, {3.888904733255881*^9, 3.8889047344832516`*^9}},
 CellID->713258099,ExpressionUUID->"a6641155-6d58-495e-965e-fe64a85076aa"],

Cell["Squares of primes have three divisors.", "Item",
 CellChangeTimes->{
  3.888903688178498*^9, {3.888903729088376*^9, 3.8889037324679127`*^9}},
 CellID->158255180,ExpressionUUID->"8e7de82b-3659-4fc4-9343-e5d7dcdf2989"],

Cell[TextData[{
 "Consider a square of a prime number ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["p", "2"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "72a5d297-ff39-4e61-b131-a9763b55a9b4"],
 ". Its prime factorization is"
}], "Text",
 CellID->223805130,ExpressionUUID->"e00ecb30-8140-4246-8e62-639d5f278764"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["p", "2"], "=", 
   SuperscriptBox["p", "2"]}], TraditionalForm]], "DisplayFormula",
 CellID->1760440258,ExpressionUUID->"7b070be7-9275-4a49-9569-109da2a3d801"],

Cell[TextData[{
 "The formula says it has ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"2", "+", "1"}], "=", "3"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"869a58cb-b65c-4286-9274-57719cc575c4"],
 " divisors."
}], "Text",
 CellID->472393042,ExpressionUUID->"34f78925-218e-4ae1-a575-a98a52146852"],

Cell["So squares of primes have three divisors.", "Text",
 CellChangeTimes->{3.8889037645826597`*^9, 3.888904811835289*^9, 
  3.9430280783865967`*^9},
 CellID->839307520,ExpressionUUID->"b42374ec-dd16-4832-a137-41ddf9bb317d"],

Cell["Only squares of primes have three divisors.", "Item",
 CellChangeTimes->{
  3.888903688178498*^9, {3.888903729088376*^9, 3.8889037324679127`*^9}, {
   3.888903782508459*^9, 3.8889037882404165`*^9}},
 CellID->14009893,ExpressionUUID->"77605d05-cc6e-410c-9df9-f450059584f7"],

Cell[TextData[{
 "Suppose number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "=", 
    RowBox[{
     SubsuperscriptBox["p", "1", 
      SubscriptBox["k", "1"]], 
     SubsuperscriptBox["p", "2", 
      SubscriptBox["k", "2"]], "\[Ellipsis]", " ", 
     SubsuperscriptBox["p", "m", 
      SubscriptBox["k", "m"]]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3652951b-8c0b-6044-b513-54c8e922ffad"],
 " has three divisors. That means"
}], "Text",
 CellID->224792333,ExpressionUUID->"8245ed59-0687-493d-831f-422a3dde6bdf"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["k", "1"], "+", "1"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["k", "2"], "+", "1"}], ")"}], "\[Ellipsis]", " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["k", "m"], "+", "1"}], ")"}]}], "=", "3"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1898002816,ExpressionUUID->"2a4f1883-f6ce-4b16-a70e-d48ca4c7c90d"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["3", TraditionalForm]], "InlineMath",ExpressionUUID->
  "fb467303-4656-4195-9ff5-cd0f5e558feb"],
 " can be represented as a product of integers in only one way: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"3", "=", 
    RowBox[{"3", "*", "1", "*", "1", "*", "\[Ellipsis]", "*", "1"}]}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "c5db3c66-b1e8-453f-929b-91ae05d8023c"],
 "."
}], "Text",
 CellID->642338280,ExpressionUUID->"e0abe340-f486-4d00-b452-6b8a05e069bb"],

Cell[TextData[{
 "So in the previous formula, only one factor is ",
 Cell[BoxData[
  FormBox["3", TraditionalForm]], "InlineMath",ExpressionUUID->
  "be534c1a-dd74-4d69-a2b7-0a94e68edf6e"],
 ", say"
}], "Text",
 CellID->17963039,ExpressionUUID->"63e0a77d-8955-46f8-aafd-062cc1939829"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["k", "1"], "+", "1"}], "=", "3"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->71989125,ExpressionUUID->"45e15341-2117-4112-9319-98408e894f2b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["k", "2"], "=", "2"}], TraditionalForm]], "DisplayFormula",
 CellID->887930614,ExpressionUUID->"839b6e92-91e9-48ff-a1c8-c50e8dba3926"],

Cell[TextData[{
 "The other factors are ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "8179560c-a985-485e-bf21-304a391a702c"],
 ", so all the other ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["k", "i"], "=", "0"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"9ebea18c-e8fb-4cd4-a1aa-47527106ecf8"],
 ". "
}], "Text",
 CellID->662640990,ExpressionUUID->"20760610-e2c0-4ebc-b9c8-fc996c706c95"],

Cell[TextData[{
 "So ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "44e8014d-8e35-4197-abe9-57226ace2b22"],
 " has the representation ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "=", 
    TemplateBox[{"p", "1", "2"},
     "Subsuperscript"]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "6b7ecf55-0611-409a-9127-6f11ee226dc8"],
 ", and therefore is a square of a prime."
}], "Text",
 CellID->374337994,ExpressionUUID->"db09c49e-6d83-4c96-a13d-0409305c795e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Divisor Function", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705331724889083*^9, 
   3.705331730568783*^9}, 3.705411398813312*^9, {3.792818792791374*^9, 
   3.7928187963502607`*^9}, {3.794028380861141*^9, 3.7940283842442265`*^9}, 
   3.88934455628948*^9, 3.9494160664557247`*^9},
 CellID->1941370,ExpressionUUID->"4fb891db-618c-44c0-9832-64ad3bd6d57c"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"d", "(", "n", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"8795e92e-e3b7-445f-be29-9fa789f18dc6"],
 " or ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Tau]", "(", "n", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6bc2e349-1778-43dd-8f1f-e7bddf81c048"],
 " usually denotes the number of divisors of ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "07809feb-923c-44e4-b9d6-a64cd76f5695"],
 "."
}], "Text",
 CellID->1309441536,ExpressionUUID->"c85c0eb4-a51e-49be-b8f2-3be68d84318e"],

Cell[TextData[{
 "Another natural thing to do with a finite set of numbers, like the divisors \
of a number, is to consider their sum. For example, the sum of the divisors \
of ",
 Cell[BoxData[
  FormBox["36", TraditionalForm]], "InlineMath",ExpressionUUID->
  "cbfaa5ba-b07a-440e-a04a-23af2a45424f"],
 " is ",
 Cell[BoxData[
  FormBox["91", TraditionalForm]], "InlineMath",ExpressionUUID->
  "cc94cc00-151f-433c-b545-1db78b9509e9"],
 ":"
}], "Text",
 CellID->332513718,ExpressionUUID->"108c7386-d604-42c5-8924-71418981562f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
   "1", "+", "2", "+", "3", "+", "4", "+", "6", "+", "9", "+", "12", "+", 
    "18", "+", "36"}], "=", "91"}], TraditionalForm]], "DisplayFormula",
 CellID->1426165821,ExpressionUUID->"92aa4a0d-cb8e-4fba-9939-4452cd8addd1"],

Cell[TextData[{
 "The sum of the divisors of a number is, again, very important in \
mathematics and is usually denoted by ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Sigma]", "(", "n", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3d884d29-9b66-4fab-9fb0-1e4889d17ec3"],
 "."
}], "Text",
 CellID->367215141,ExpressionUUID->"7d2d09fb-c04e-4e5b-9a9a-fae21b207cab"],

Cell[TextData[StyleBox["These two functions are actually special cases of a \
more general function, the divisor function.",
 FontWeight->"Plain"]], "Text",
 CellChangeTimes->{{3.7939436946309185`*^9, 3.7939437416899266`*^9}, {
   3.7939438147850204`*^9, 3.7939438159453573`*^9}, {3.879007955253231*^9, 
   3.879007958555211*^9}, {3.930759735641079*^9, 3.930759735892627*^9}, {
   3.9430281993549995`*^9, 3.943028199628994*^9}, 3.949416032794527*^9},
 CellID->103602718,ExpressionUUID->"61a64dfd-b739-485c-a9cf-3edb87faf593"],

Cell[TextData[{
 StyleBox["The",
  FontWeight->"Plain"],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["divisor function",
  FontSlant->"Italic"],
 " is denoted by ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Sigma]", "k"], "(", "n", ")"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"068b887d-6db6-4855-945f-5fec1b31e3fa"],
 " and are defined as sums of the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["k", "th"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "35fca5c1-2221-cd4d-bfc8-80c85bc6ccba"],
 " powers of the integer ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "225eed09-55e6-46c3-846a-9301c1cae0ff"],
 ". "
}], "Text",
 CellID->351599096,ExpressionUUID->"3ab0aaa8-6737-48d9-9375-1355a0628412"],

Cell[TextData[{
 "For example, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Sigma]", "2"], "(", "36", ")"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"a76c6fb9-6196-4b7c-8f14-66085b70f5eb"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Sigma]", "3"], "(", "36", ")"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"f945d75f-6e44-4a18-a822-fcbe71915f9a"],
 " are ",
 Cell[BoxData[
  FormBox["1911", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a857de0a-6c4b-4111-8be4-cd53a53ab3ce"],
 " and ",
 Cell[BoxData[
  FormBox["55261", TraditionalForm]], "InlineMath",ExpressionUUID->
  "446191c4-fd63-49b2-bc0c-b01b0fb66530"],
 ", respectively:"
}], "Text",
 CellID->1288102891,ExpressionUUID->"bb1fca43-6d15-4ada-8e04-010461270110"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["1", "2"], "+", 
    SuperscriptBox["2", "2"], "+", 
    SuperscriptBox["3", "2"], "+", 
    SuperscriptBox["4", "2"], "+", 
    SuperscriptBox["6", "2"], "+", 
    SuperscriptBox["9", "2"], "+", 
    SuperscriptBox["12", "2"], "+", 
    SuperscriptBox["18", "2"], "+", 
    SuperscriptBox["36", "2"]}], "=", "1911"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->2125295091,ExpressionUUID->"07c97e38-9135-43a7-9483-a6f251c90376"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
   "1", "+", "2", "+", "3", "+", "4", "+", "6", "+", "9", "+", "12", "+", 
    "18", "+", "36"}], "=", "55261"}], TraditionalForm]], "DisplayFormula",
 CellID->720727238,ExpressionUUID->"5e476217-2bb1-4907-882f-acb40d5b5ce6"],

Cell[TextData[{
 "Now, take ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"n", "=", "1"}], ",", "2", ",", "\[Ellipsis]", ",", "10"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "2b5a811a-a90d-b54d-8a32-5cff6d7a217d"],
 " and change the value of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"k", "=", "0"}], ",", "1", ",", "2", ",", "3", ",", "4"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "1aab0cec-9432-884d-bf9b-045c9d898ff2"],
 ":"
}], "Text",
 CellChangeTimes->{{3.7938651753393145`*^9, 3.793865188688185*^9}, 
   3.793865219704508*^9, {3.7939439999238987`*^9, 3.793944041980788*^9}, {
   3.7939445037090626`*^9, 3.7939445280761113`*^9}, {3.8790083257567587`*^9, 
   3.8790083262349606`*^9}, 3.883732497907042*^9, 3.88934417596836*^9, {
   3.8893446407801533`*^9, 3.889344644475642*^9}, {3.948965558355427*^9, 
   3.9489655637260036`*^9}},
 CellID->58840619,ExpressionUUID->"7f6a9a9b-af91-47d3-80e3-fe4f562b087c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"DivisorSigma", "[", 
          RowBox[{"0", ",", "n"}], "]"}], ",", 
         RowBox[{"DivisorSigma", "[", 
          RowBox[{"1", ",", "n"}], "]"}], ",", 
         RowBox[{"DivisorSigma", "[", 
          RowBox[{"2", ",", "n"}], "]"}], ",", 
         RowBox[{"DivisorSigma", "[", 
          RowBox[{"3", ",", "n"}], "]"}], ",", 
         RowBox[{"DivisorSigma", "[", 
          RowBox[{"4", ",", "n"}], "]"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<\!\(TraditionalForm\`n\)\>\"", 
       ",", "\"\<\!\(TraditionalForm\`\(TraditionalForm\`\*SubscriptBox[\(\
\[Sigma]\), \(0\)](n)\)\)\>\"", 
       ",", "\"\<\!\(TraditionalForm\`\(TraditionalForm\`\*SubscriptBox[\(\
\[Sigma]\), \(1\)](n)\)\)\>\"", 
       ",", "\"\<\!\(TraditionalForm\`\(TraditionalForm\`\*SubscriptBox[\(\
\[Sigma]\), \(2\)](n)\)\)\>\"", 
       ",", "\"\<\!\(TraditionalForm\`\(TraditionalForm\`\*SubscriptBox[\(\
\[Sigma]\), \(3\)](n)\)\)\>\"", 
       ",", "\"\<\!\(TraditionalForm\`\(TraditionalForm\`\*SubscriptBox[\(\
\[Sigma]\), \(4\)](n)\)\)\>\""}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
   
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["4", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            
            TagBox["1024", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[Background -> {None, {{White, 
         Lighter[
          Blend[{Blue, Green}], 0.8]}}}, 
     Dividers -> {{Gray, {LightGray}, Gray}}, Frame -> True, 
     Spacings -> {2, {2, {0.7}, 2}}],
    SelectWithContents->True,
    Selectable->False]}], "]"}]], "Input",
 CellChangeTimes->{{3.936242361336219*^9, 3.9362423802432547`*^9}},
 CellID->387904062,ExpressionUUID->"12d88276-d3ba-47eb-ac4a-06e5e3d8cb24"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(TraditionalForm\\`n\\)\"\>", \
"\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\*SubscriptBox[\\(\[Sigma]\
\\), \\(0\\)](n)\\)\\)\"\>", \
"\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\*SubscriptBox[\\(\[Sigma]\
\\), \\(1\\)](n)\\)\\)\"\>", \
"\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\*SubscriptBox[\\(\[Sigma]\
\\), \\(2\\)](n)\\)\\)\"\>", \
"\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\*SubscriptBox[\\(\[Sigma]\
\\), \\(3\\)](n)\\)\\)\"\>", \
"\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\*SubscriptBox[\\(\[Sigma]\
\\), \\(4\\)](n)\\)\\)\"\>"},
    {"1", "1", "1", "1", "1", "1"},
    {"2", "2", "3", "5", "9", "17"},
    {"3", "2", "4", "10", "28", "82"},
    {"4", "3", "7", "21", "73", "273"},
    {"5", "2", "6", "26", "126", "626"},
    {"6", "4", "12", "50", "252", "1394"},
    {"7", "2", "8", "50", "344", "2402"},
    {"8", "4", "15", "85", "585", "4369"},
    {"9", "3", "13", "91", "757", "6643"},
    {"10", "4", "18", "130", "1134", "10642"}
   },
   AutoDelete->False,
   GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{
        GrayLevel[1], 
        RGBColor[0.8, 0.9, 0.9]}}},
   GridBoxDividers->{"Columns" -> {
       GrayLevel[0.5], {
        GrayLevel[0.85]}, 
       GrayLevel[0.5]}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {2, {0.7}, 2}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.9362423524294977`*^9, 3.936242382399667*^9}},
 CellID->2057685989,ExpressionUUID->"6bf245ec-7c4a-4e15-bff1-c8ab0d5b0611"]
}, {2}]],

Cell["Compare the following plots:", "Text",
 CellChangeTimes->{{3.7851314286560497`*^9, 3.785131465780794*^9}, {
   3.793944568157116*^9, 3.793944598033988*^9}, 3.883732504778879*^9, {
   3.8893418365487776`*^9, 3.889341838226349*^9}},
 CellID->700883267,ExpressionUUID->"d9c63cc4-2a5c-4a3d-9bdf-47ca8ee8890a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"DivisorSigma", "[", 
        RowBox[{"0", ",", "n"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "50"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"DivisorSigma", "[", 
        RowBox[{"1", ",", "n"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "50"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"DivisorSigma", "[", 
        RowBox[{"2", ",", "n"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "50"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ScalingFunctions", "->", "\"\<Log\>\""}], ",", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["2", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            
            TagBox["544", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[
    PlotLegends -> {
      "\!\(\*SubscriptBox[\(\[Sigma]\), \(0\)]\)(n)  Number of divisors", 
       "\!\(\*SubscriptBox[\(\[Sigma]\), \(1\)]\)(n)  Sum of divisors ", 
       "\!\(\*SubscriptBox[\(\[Sigma]\), \(2\)]\)(n)  Sum of squares of \
divisors "}, ImageSize -> 330],
    SelectWithContents->True,
    Selectable->False]}], "]"}]], "Input",
 CellChangeTimes->{3.9362427966136312`*^9},
 CellID->1010968390,ExpressionUUID->"d8ccfd07-ebc5-4786-bb40-89fffb1df57b"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, 
     InterpretationBox[{
       TagBox[{{}, {}, 
         TagBox[{
           RGBColor[0.368417, 0.506779, 0.709798], 
           PointSize[
            NCache[
             Rational[1, 72], 0.013888888888888888`]], 
           AbsoluteThickness[2], 
           LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgcN7y1//nPSeQcU50PgCDtzMa6teTf4I
5YugyUtA+d+gfBk0eQU0eSU081TQ5NXQ9Gs4MClo/eJe/QfK10KT10HTr4fG
N3Aw7n373fHATyjfEE2/EZr5xmjyJmjypmjmm6HxzdH0WzgUr7a237SIwQHC
t0TzvxWafms0vg2a/bZo5tuhmW+PJu+Aqr/BAc18R1R+AxqfwQnqXkaI+Q1O
aOY7o+lH4zO4oLqvwQVNvyuavCuavBua+9H4DO5o9ruj6fdwEAvduntjNhPU
fA+08PeEmwcAzuztDw==
            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], 
         TagBox[{
           RGBColor[0.880722, 0.611041, 0.142051], 
           PointSize[
            NCache[
             Rational[1, 72], 0.013888888888888888`]], 
           AbsoluteThickness[2], 
           LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgQM389qqV5M/QsU5HN5b/vrnpPcNyhdw
CI8yWlek9B/KF3FgUtD6xb36D5Qv4VA77/IesYfMDhC+jEPxamv7TYsYoHwF
B3kPX0uxVaxQvpJDYI+hNksrC5Sv4tA2MduqWp4dyldDM0/DQdlr2rWoFVxQ
vpbD8t3XxU7JwMzTcfipM6lmeQ4nlK+HxjdwiNKe6HGughvKN0Szz8jhGm9H
xk8/Xijf2GHi4+Jqp+8weRMHXVu9kP3PYPKmDtknduy7vBNmnhk0PHigfHM0
+y0cuo1S78xOEIDyLdHcY4VmvrUDb5GR9eUmGN/GISBH6/RXSZh+W4fZ17h/
LjOF6bdzsA//EuMnLQjl26O5z8FBWuLxi4mToPobHBxKdwfYWPzgg8o7OvAI
HyoveMkPlXdEk3dy2BejelCOWwgq7+SwwvHw0WOSMPc5o/qvwRnNvS4OAjqG
0uf+Q93X4ILmX1eHH0vY6544wsx3dXAO+WPG6gaz383hSuo3To2dMP1uDpp+
yiKuuTD/uqP6v8Edzf0eDpoq7E++uwtD5T0cImetXSiqA3Ofp0PBtc+HEhWF
HADksrkh
            "]]}, Annotation[#, "Charting`Private`Tag#2"]& ], 
         TagBox[{
           RGBColor[0.560181, 0.691569, 0.194885], 
           PointSize[
            NCache[
             Rational[1, 72], 0.013888888888888888`]], 
           AbsoluteThickness[2], 
           LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgYNx79vvjgd+QsU5HMRCt+7emM3kAOEL
OGxclz9FL5oDyhdxOCv14dUUAS4oX8JhvfSa7Ze8+aF8GTS+ggPX4h9xbkcF
oXwlh30xqgfluIWgfBWHzQXFn6MqhKF8NQfvzR+9As1hfA2Hx41CGgXJolC+
loPHq+v7+LpFoHwdB5XCizd/iopB+XoOH7cHBSvbwfgGDsGGHAw3g8WhfEOH
WSsPOn9dC5M3cuA+oGCvXy0B5Rs7ZF5T1eOeCFNv4rD/yfr9D00loXxTh6Qd
GywP3YapN3OYIfb2ROJymLy5w4MTrwVzxWF8C4epvpdt5H9LQfmWDqy5DXn/
XsLkrdDkrR3euzc+CL4G49s4GDzlXdZwWRrKt3VoefQioOAjTN7OwU7a76Lx
Ohko397BtXDqm3uVMPUODucYztzVfACVb3BwuBZ7RkMrF6be0eE5z96DrHKy
UHlHNPOcHMRNYrm3WchB5Z0cNLQ3RLx4DJN3dthqqbhGmhEm7+xwacqmOc8P
QM1jcHEo2FBwZcJZmLyLQ6zrWm3GbTB5V2h6kYfKuzpsK/x8qVYcqp7BzWFx
l+bUFykweTcH1ay5ZpnCUD6Du4OuzvP+2naYvDuqfQweDu9zP7674aIAlfdw
SBTYsabXHKbf00HzhW0Zu66CAwAAEcPt
            "]]}, Annotation[#, "Charting`Private`Tag#3"]& ]}, {
        "WolframDynamicHighlight", <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
       StyleBox[
        DynamicBox[
         (Charting`HighlightActionBox["DynamicHighlight", {}, 
          Slot["HighlightElements"], 
          Slot["LayoutOptions"], 
          Slot["Meta"], 
          Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
             Annotation[{
               Hue[0.67, 0.6, 0.6], 
               Directive[
                PointSize[
                 Rational[1, 72]], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]], 
               Line[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgcN7y1//nPSeQcU50PgCDtzMa6teTf4I
5YugyUtA+d+gfBk0eQU0eSU081TQ5NXQ9Gs4MClo/eJe/QfK10KT10HTr4fG
N3Aw7n373fHATyjfEE2/EZr5xmjyJmjypmjmm6HxzdH0WzgUr7a237SIwQHC
t0TzvxWafms0vg2a/bZo5tuhmW+PJu+Aqr/BAc18R1R+AxqfwQnqXkaI+Q1O
aOY7o+lH4zO4oLqvwQVNvyuavCuavBua+9H4DO5o9ruj6fdwEAvduntjNhPU
fA+08PeEmwcAzuztDw==
                "]]}, "Charting`Private`Tag#1"], 
             Annotation[{
               Hue[0.9060679774997897, 0.6, 0.6], 
               Directive[
                PointSize[
                 Rational[1, 72]], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[2]], 
               Line[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgQM389qqV5M/QsU5HN5b/vrnpPcNyhdw
CI8yWlek9B/KF3FgUtD6xb36D5Qv4VA77/IesYfMDhC+jEPxamv7TYsYoHwF
B3kPX0uxVaxQvpJDYI+hNksrC5Sv4tA2MduqWp4dyldDM0/DQdlr2rWoFVxQ
vpbD8t3XxU7JwMzTcfipM6lmeQ4nlK+HxjdwiNKe6HGughvKN0Szz8jhGm9H
xk8/Xijf2GHi4+Jqp+8weRMHXVu9kP3PYPKmDtknduy7vBNmnhk0PHigfHM0
+y0cuo1S78xOEIDyLdHcY4VmvrUDb5GR9eUmGN/GISBH6/RXSZh+W4fZ17h/
LjOF6bdzsA//EuMnLQjl26O5z8FBWuLxi4mToPobHBxKdwfYWPzgg8o7OvAI
HyoveMkPlXdEk3dy2BejelCOWwgq7+SwwvHw0WOSMPc5o/qvwRnNvS4OAjqG
0uf+Q93X4ILmX1eHH0vY6544wsx3dXAO+WPG6gaz383hSuo3To2dMP1uDpp+
yiKuuTD/uqP6v8Edzf0eDpoq7E++uwtD5T0cImetXSiqA3Ofp0PBtc+HEhWF
HADksrkh
                "]]}, "Charting`Private`Tag#2"], 
             Annotation[{
               Hue[0.1421359549995791, 0.6, 0.6], 
               Directive[
                PointSize[
                 Rational[1, 72]], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[2]], 
               Line[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgYNx79vvjgd+QsU5HMRCt+7emM3kAOEL
OGxclz9FL5oDyhdxOCv14dUUAS4oX8JhvfSa7Ze8+aF8GTS+ggPX4h9xbkcF
oXwlh30xqgfluIWgfBWHzQXFn6MqhKF8NQfvzR+9As1hfA2Hx41CGgXJolC+
loPHq+v7+LpFoHwdB5XCizd/iopB+XoOH7cHBSvbwfgGDsGGHAw3g8WhfEOH
WSsPOn9dC5M3cuA+oGCvXy0B5Rs7ZF5T1eOeCFNv4rD/yfr9D00loXxTh6Qd
GywP3YapN3OYIfb2ROJymLy5w4MTrwVzxWF8C4epvpdt5H9LQfmWDqy5DXn/
XsLkrdDkrR3euzc+CL4G49s4GDzlXdZwWRrKt3VoefQioOAjTN7OwU7a76Lx
Ohko397BtXDqm3uVMPUODucYztzVfACVb3BwuBZ7RkMrF6be0eE5z96DrHKy
UHlHNPOcHMRNYrm3WchB5Z0cNLQ3RLx4DJN3dthqqbhGmhEm7+xwacqmOc8P
QM1jcHEo2FBwZcJZmLyLQ6zrWm3GbTB5V2h6kYfKuzpsK/x8qVYcqp7BzWFx
l+bUFykweTcH1ay5ZpnCUD6Du4OuzvP+2naYvDuqfQweDu9zP7674aIAlfdw
SBTYsabXHKbf00HzhW0Zu66CAwAAEcPt
                "]]}, "Charting`Private`Tag#3"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
            "LayoutOptions" -> <|
             "PanelPlotLayout" -> <||>, 
              "PlotRange" -> {{0., 50.}, {-0.6365682507206444, 
               8.134467570277563}}, 
              "Frame" -> {{False, False}, {False, False}}, 
              "AxesOrigin" -> {0., -0.6365682507206444}, 
              "ImageSize" -> {330, 330/GoldenRatio}, "Axes" -> {True, True}, 
              "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
              "DefaultStyle" -> {
                Directive[
                 PointSize[
                  Rational[1, 72]], 
                 RGBColor[0.560181, 0.691569, 0.194885], 
                 AbsoluteThickness[2]], 
                Directive[
                 PointSize[
                  Rational[1, 72]], 
                 RGBColor[0.880722, 0.611041, 0.142051], 
                 AbsoluteThickness[2]], 
                Directive[
                 PointSize[
                  Rational[1, 72]], 
                 RGBColor[0.368417, 0.506779, 0.709798], 
                 AbsoluteThickness[2]]}, 
              "HighlightLabelingFunctions" -> <|
               "CoordinatesToolOptions" -> ({
                  Identity[
                   Part[#, 1]], 
                  Exp[
                   Part[#, 2]]}& ), 
                "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
              "Primitives" -> {}, "GCFlag" -> False|>, 
            "Meta" -> <|
             "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
              "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0., 50.}, {-0.6365682507206444, 
              8.134467570277563}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0., -0.6365682507206444}, 
             "ImageSize" -> {330, 330/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
               Directive[
                PointSize[
                 Rational[1, 72]], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[
                 Rational[1, 72]], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[
                 Rational[1, 72]], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 Identity[
                  Part[#, 1]], 
                 Exp[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
             "Primitives" -> {}, "GCFlag" -> False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>], 
         ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
          4.503599627370496*^15, -4.503599627370496*^15}}], Selectable -> 
        False]}, 
      Annotation[{{{}, {}, 
         Annotation[{
           Hue[0.67, 0.6, 0.6], 
           Directive[
            PointSize[
             Rational[1, 72]], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]], 
           Line[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgcN7y1//nPSeQcU50PgCDtzMa6teTf4I
5YugyUtA+d+gfBk0eQU0eSU081TQ5NXQ9Gs4MClo/eJe/QfK10KT10HTr4fG
N3Aw7n373fHATyjfEE2/EZr5xmjyJmjypmjmm6HxzdH0WzgUr7a237SIwQHC
t0TzvxWafms0vg2a/bZo5tuhmW+PJu+Aqr/BAc18R1R+AxqfwQnqXkaI+Q1O
aOY7o+lH4zO4oLqvwQVNvyuavCuavBua+9H4DO5o9ruj6fdwEAvduntjNhPU
fA+08PeEmwcAzuztDw==
            "]]}, "Charting`Private`Tag#1"], 
         Annotation[{
           Hue[0.9060679774997897, 0.6, 0.6], 
           Directive[
            PointSize[
             Rational[1, 72]], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[2]], 
           Line[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgQM389qqV5M/QsU5HN5b/vrnpPcNyhdw
CI8yWlek9B/KF3FgUtD6xb36D5Qv4VA77/IesYfMDhC+jEPxamv7TYsYoHwF
B3kPX0uxVaxQvpJDYI+hNksrC5Sv4tA2MduqWp4dyldDM0/DQdlr2rWoFVxQ
vpbD8t3XxU7JwMzTcfipM6lmeQ4nlK+HxjdwiNKe6HGughvKN0Szz8jhGm9H
xk8/Xijf2GHi4+Jqp+8weRMHXVu9kP3PYPKmDtknduy7vBNmnhk0PHigfHM0
+y0cuo1S78xOEIDyLdHcY4VmvrUDb5GR9eUmGN/GISBH6/RXSZh+W4fZ17h/
LjOF6bdzsA//EuMnLQjl26O5z8FBWuLxi4mToPobHBxKdwfYWPzgg8o7OvAI
HyoveMkPlXdEk3dy2BejelCOWwgq7+SwwvHw0WOSMPc5o/qvwRnNvS4OAjqG
0uf+Q93X4ILmX1eHH0vY6544wsx3dXAO+WPG6gaz383hSuo3To2dMP1uDpp+
yiKuuTD/uqP6v8Edzf0eDpoq7E++uwtD5T0cImetXSiqA3Ofp0PBtc+HEhWF
HADksrkh
            "]]}, "Charting`Private`Tag#2"], 
         Annotation[{
           Hue[0.1421359549995791, 0.6, 0.6], 
           Directive[
            PointSize[
             Rational[1, 72]], 
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[2]], 
           Line[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgYNx79vvjgd+QsU5HMRCt+7emM3kAOEL
OGxclz9FL5oDyhdxOCv14dUUAS4oX8JhvfSa7Ze8+aF8GTS+ggPX4h9xbkcF
oXwlh30xqgfluIWgfBWHzQXFn6MqhKF8NQfvzR+9As1hfA2Hx41CGgXJolC+
loPHq+v7+LpFoHwdB5XCizd/iopB+XoOH7cHBSvbwfgGDsGGHAw3g8WhfEOH
WSsPOn9dC5M3cuA+oGCvXy0B5Rs7ZF5T1eOeCFNv4rD/yfr9D00loXxTh6Qd
GywP3YapN3OYIfb2ROJymLy5w4MTrwVzxWF8C4epvpdt5H9LQfmWDqy5DXn/
XsLkrdDkrR3euzc+CL4G49s4GDzlXdZwWRrKt3VoefQioOAjTN7OwU7a76Lx
Ohko397BtXDqm3uVMPUODucYztzVfACVb3BwuBZ7RkMrF6be0eE5z96DrHKy
UHlHNPOcHMRNYrm3WchB5Z0cNLQ3RLx4DJN3dthqqbhGmhEm7+xwacqmOc8P
QM1jcHEo2FBwZcJZmLyLQ6zrWm3GbTB5V2h6kYfKuzpsK/x8qVYcqp7BzWFx
l+bUFykweTcH1ay5ZpnCUD6Du4OuzvP+2naYvDuqfQweDu9zP7674aIAlfdw
SBTYsabXHKbf00HzhW0Zu66CAwAAEcPt
            "]]}, "Charting`Private`Tag#3"]}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0., 50.}, {-0.6365682507206444, 
           8.134467570277563}}, "Frame" -> {{False, False}, {False, False}}, 
          "AxesOrigin" -> {0., -0.6365682507206444}, 
          "ImageSize" -> {330, 330/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             PointSize[
              Rational[1, 72]], 
             RGBColor[0.560181, 0.691569, 0.194885], 
             AbsoluteThickness[2]], 
            Directive[
             PointSize[
              Rational[1, 72]], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[2]], 
            Directive[
             PointSize[
              Rational[1, 72]], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Exp[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
          "Primitives" -> {}, "GCFlag" -> False|>, 
        "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          ListLinePlot, "GroupHighlight" -> False|>|>, 
       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
    AxesLabel -> {None, None}, AxesOrigin -> {0., -0.6365682507206444}, 
    DisplayFunction -> Identity, Frame -> {{False, False}, {False, False}}, 
    FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
       Charting`ScaledTicks[
       "Log", {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, 
        RotateLabel -> 0], 
       Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, 
    GridLines -> {None, None}, GridLinesStyle -> Directive[
      GrayLevel[0.5, 0.4]], ImageSize -> 330, 
    Method -> {
     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
        Directive[
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
      "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
      "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Exp[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Exp[
           Part[#, 2]]}& )}}, 
    PlotRange -> {{0., 50.}, {-0.6365682507206444, 8.134467570277563}}, 
    PlotRangeClipping -> True, PlotRangePadding -> {{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}}, Ticks -> FrontEndValueCache[{Automatic, 
       Charting`ScaledTicks[
       "Log", {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, 
        RotateLabel -> 0]}, {Automatic, {{0., 
         FormBox["1", TraditionalForm], {0.01, 0.}}, {2.302585092994046, 
         FormBox["10", TraditionalForm], {0.01, 0.}}, {4.605170185988092, 
         FormBox["100", TraditionalForm], {0.01, 0.}}, {6.907755278982137, 
         FormBox["1000", TraditionalForm], {0.01, 0.}}, {-4.605170185988091, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-3.912023005428146, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-3.506557897319982, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-3.2188758248682006`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-2.995732273553991, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-2.8134107167600364`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-2.659260036932778, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-2.5257286443082556`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-2.4079456086518722`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-2.3025850929940455`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-1.6094379124341003`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-1.2039728043259361`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-0.916290731874155, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-0.6931471805599453, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-0.5108256237659907, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-0.35667494393873245`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-0.2231435513142097, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
         0.}}, {-0.10536051565782628`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        0.6931471805599453, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        1.0986122886681098`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        1.3862943611198906`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        1.6094379124341003`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        1.791759469228055, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        1.9459101490553132`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        2.0794415416798357`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        2.1972245773362196`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        2.995732273553991, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        3.4011973816621555`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        3.6888794541139363`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        3.912023005428146, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        4.0943445622221, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        4.248495242049359, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        4.382026634673881, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        4.499809670330265, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        5.298317366548036, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        5.703782474656201, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        5.991464547107982, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        6.214608098422191, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        6.396929655216146, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        6.551080335043404, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        6.684611727667927, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        6.802394763324311, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        7.600902459542082, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        8.006367567650246, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        8.294049640102028, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        8.517193191416238, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        8.699514748210191, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        8.85366542803745, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        8.987196820661973, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        9.104979856318357, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        9.210340371976184, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        9.903487552536127, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        10.308952660644293`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        10.596634733096073`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        10.819778284410283`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        11.002099841204238`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        11.156250521031495`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        11.289781913656018`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        11.407564949312402`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
        11.512925464970229`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]], 
   
   FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(0\\)]\\)(n)  Number of \
divisors\"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(1\\)]\\)(n)  Sum of \
divisors \"", 
       "\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(2\\)]\\)(n)  Sum of \
squares of divisors \""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2]], {
                    LineBox[{{0, 12.5}, {20, 12.5}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12.5}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2]], {
                    LineBox[{{0, 12.5}, {20, 12.5}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12.5}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2]], {
                    LineBox[{{0, 12.5}, {20, 12.5}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12.5}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), Editable -> True, 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", 
                    FractionBox["1", "72"], "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", 
                    FractionBox["1", "72"], "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", 
                    FractionBox["1", "72"], "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.936242785232011*^9},
 CellID->117991358,ExpressionUUID->"9f458744-7bb8-4b82-b0bf-f1dff86d0509"]
}, {2}]],

Cell[CellGroupData[{

Cell["Summary", "TechNoteSection",
 CellID->1259673378,ExpressionUUID->"b1ce2be6-f62d-4a39-82d2-9a07c3182300"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "6e68918c-db85-4a6c-b689-83afe74fee62"],
 " is a ",
 StyleBox["multiple",
  FontSlant->"Italic"],
 " of ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "3003c016-d740-4aa8-b018-53b005d91ab9"],
 " if ",
 Cell[BoxData[
  FormBox[
   RowBox[{"b", "=", 
    RowBox[{"k", "*", "a"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "2bf225a9-f5a5-4825-bf14-7cd2fd30cb8c"],
 " for some integer ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]], "InlineMath",ExpressionUUID->
  "79ce9178-4346-40e2-8a2a-f60d47718856"],
 ". The integer ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]], "InlineMath",ExpressionUUID->
  "d06c0ba4-7106-4628-8192-8fb4f1625641"],
 " is called the ",
 StyleBox["multiplier",
  FontSlant->"Italic"],
 "."
}], "SummaryList",
 CellID->147718829,ExpressionUUID->"da97b557-7d47-45d9-ae7b-99dae269fff4"],

Cell["The number of multiples of an integer is infinite. ", "SummaryList",
 CellChangeTimes->{
  3.793768117754794*^9, {3.794031744063097*^9, 3.794031744211088*^9}, {
   3.8837325400967536`*^9, 3.883732542021806*^9}},
 CellID->750532062,ExpressionUUID->"01a63cb4-477c-4913-be41-cc7ca04baf8f"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["b", TraditionalForm]], "InlineMath",ExpressionUUID->
  "cf2bc8f4-a5cf-445f-8a9a-b5d1bc7233d3"],
 " is a ",
 StyleBox["divisor",
  FontSlant->"Italic"],
 " of ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "264e8044-3da1-4194-800e-c7e5f59143df"],
 " if there is an integer ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]], "InlineMath",ExpressionUUID->
  "aabf9550-5445-4cf1-a4f9-d2e5f4b5d3b5"],
 " such that ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", 
    RowBox[{"k", "*", "b"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "de10ee57-54b5-4bd1-92d7-c9271cc23c16"],
 "."
}], "SummaryList",
 CellID->14297409,ExpressionUUID->"52c83c4f-cd40-4552-9359-c32576df7c9d"],

Cell["The number of divisors of an integer is finite.", "SummaryList",
 CellChangeTimes->{{3.793777744760075*^9, 3.7937777474695244`*^9}, {
   3.7940317841289587`*^9, 3.794031784988738*^9}, {3.878962279962037*^9, 
   3.8789622974859543`*^9}, 3.8789666668342123`*^9, {3.8790083461305604`*^9, 
   3.879008349087042*^9}, {3.8837325731490397`*^9, 3.883732575323453*^9}},
 CellID->153037322,ExpressionUUID->"acc5e0b1-fefa-49af-aef9-f7229432aba2"],

Cell[TextData[{
 "The",
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["divisor function",
  FontSlant->"Italic"],
 " is denoted by ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Sigma]", "k"], "(", "n", ")"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"2a1e134e-2d6e-4bc8-938f-3feef5570ce5"],
 " and are defined as sums of the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["k", "th"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "50c2fc16-6c65-fb43-8ae6-d2ce5cd0939b"],
 " powers of the integer ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]], "InlineMath",ExpressionUUID->
  "af4dc0de-dd92-47ab-9bc4-9b6a841c7cd6"],
 ". "
}], "SummaryList",
 CellID->53269336,ExpressionUUID->"dcd63a52-fb1c-4dcb-9fc4-d801111c8572"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell["\[Copyright] 2026 Wolfram Media, Inc.", "SmallText",
 CellMargins->{{66, 66}, {20, 100}},
 CellGroupingRules->"SectionGrouping",
 FontSize->12,
 FontColor->RGBColor[
  0.7098039215686275, 0.7098039215686275, 
   0.7098039215686275],ExpressionUUID->"6d118a06-93b5-4dfc-8d9b-e07d5b2f5dd0"]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowToolbars->{},
CellInsertionPointCell->None,
WindowSize->Automatic,
WindowMargins->Automatic,
WindowFrame->"Normal",
WindowPersistentStyles->{
 WindowFrame, WindowMargins, WindowSize, Magnification},
WindowTitle->"5. Multiples and Divisors | Introduction to Number Theory",
DockedCells->{
  Cell[
   BoxData[
    TemplateBox[<|
     "label" -> TemplateBox[<|
        "heading" -> "Wolfram eTextbook Series", "title" -> 
         "Introduction to Number Theory"|>, "BannerHeadingTitleTemplate"], 
      "previous" -> TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerLeftArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{"NumberTheory-02-04_Prime-Factorization.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "Primes and Divisibility\n4. Prime Factorization"}, 
        "PrettyTooltipTemplate"], "next" -> TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerRightArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{
             "NumberTheory-02-06_Greatest-Common-Divisor.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "\n6. Greatest Common Divisor"}, "PrettyTooltipTemplate"], "menu" -> 
      TemplateBox[{
         TemplateBox[{{
           "Cover" :> NotebookLocate[{"NumberTheory-00a_Cover.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Preface" :> 
            NotebookLocate[{"NumberTheory-00b_Preface.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Introduction", Bold] :> 
            NotebookLocate[{
              "NumberTheory-01-01_What-Is-Number-Theory.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "1. What Is Number Theory?" :> 
            NotebookLocate[{
              "NumberTheory-01-01_What-Is-Number-Theory.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "2. Integers: The Basics" :> 
            NotebookLocate[{"NumberTheory-01-02_Integers-The-Basics.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "3. Primes and Composites" :> 
            NotebookLocate[{
              "NumberTheory-01-03_Primes-and-Composites.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 1 Exercises" :> 
            NotebookLocate[{"NumberTheory-01b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            StyleBox["Primes and Divisibility", Bold] :> 
            NotebookLocate[{"NumberTheory-02-04_Prime-Factorization.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "4. Prime Factorization" :> 
            NotebookLocate[{"NumberTheory-02-04_Prime-Factorization.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "5. Multiples and Divisors" :> 
            NotebookLocate[{
              "NumberTheory-02-05_Multiples-and-Divisors.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "6. Greatest Common Divisor" :> 
            NotebookLocate[{
              "NumberTheory-02-06_Greatest-Common-Divisor.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 2 Exercises" :> 
            NotebookLocate[{"NumberTheory-02b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Modular Arithmetic", Bold] :> 
            NotebookLocate[{"NumberTheory-03-07_Congruences.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "7. Congruences" :> 
            NotebookLocate[{"NumberTheory-03-07_Congruences.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "8. Modular Arithmetic" :> 
            NotebookLocate[{"NumberTheory-03-08_Modular-Arithmetic.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "9. Chinese Remainder Theorem" :> 
            NotebookLocate[{
              "NumberTheory-03-09_Chinese-Remainder-Theorem.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 3 Exercises" :> 
            NotebookLocate[{"NumberTheory-03b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Continued Fractions", Bold] :> 
            NotebookLocate[{
              "NumberTheory-04-10_Real-Number-Representations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "10. Real Number Representations" :> 
            NotebookLocate[{
              "NumberTheory-04-10_Real-Number-Representations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "11. Continued Fractions" :> 
            NotebookLocate[{"NumberTheory-04-11_Continued-Fractions.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "12. Best Rational Approximations" :> 
            NotebookLocate[{
              "NumberTheory-04-12_Best-Rational-Approximations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 4 Exercises" :> 
            NotebookLocate[{"NumberTheory-04b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            StyleBox["Diophantine Equations", Bold] :> 
            NotebookLocate[{
              "NumberTheory-05-13_Diophantine-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "13. Diophantine Equations" :> 
            NotebookLocate[{
              "NumberTheory-05-13_Diophantine-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "14. Linear Diophantine Equations" :> 
            NotebookLocate[{
              "NumberTheory-05-14_Linear-Diophantine-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "15. Diophantine Equations of Degree 2" :> 
            NotebookLocate[{
              "NumberTheory-05-15_Diophantine-Equations-of-Degree-2.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 5 Exercises" :> 
            NotebookLocate[{"NumberTheory-05b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Cryptography", Bold] :> 
            NotebookLocate[{"NumberTheory-06-16_Cryptography.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "16. Cryptography" :> 
            NotebookLocate[{"NumberTheory-06-16_Cryptography.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "17. The RSA Algorithm" :> 
            NotebookLocate[{"NumberTheory-06-17_The-RSA-Algorithm.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 6 Exercises" :> 
            NotebookLocate[{"NumberTheory-06b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Additional Topics", Bold] :> 
            NotebookLocate[{
              "NumberTheory-07-18_Primality-Testing-Miller-Rabin.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "18. Primality Testing: Miller\[Dash]Rabin" :> 
            NotebookLocate[{
              "NumberTheory-07-18_Primality-Testing-Miller-Rabin.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "19. Factorization: Pollard\[CloseCurlyQuote]s Rho" :> 
            NotebookLocate[{
              "NumberTheory-07-19_Factorization-Pollards-Rho.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "20. Diophantine Equations: Hilbert\[CloseCurlyQuote]s Tenth \
Problem" :> NotebookLocate[{
              "NumberTheory-07-20_Diophantine-Equations-Hilberts-Tenth-\
Problem.nb", ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "21. The Riemann Zeta Function" :> 
            NotebookLocate[{
              "NumberTheory-07-21_The-Riemann-Zeta-Function.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "22. Special Numbers" :> 
            NotebookLocate[{"NumberTheory-07-22_Special-Numbers.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "23. Numeral Systems" :> 
            NotebookLocate[{"NumberTheory-07-23_Numeral-Systems.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Part 7 Exercises" :> 
            NotebookLocate[{"NumberTheory-07b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}]}}, "BannerMenuTemplate"], 
         "Table of contents"}, "PrettyTooltipTemplate"]|>, "BannerTemplate"]],
    "DockedCell", "Banner"], 
  Cell[
   BoxData[
    TemplateBox[<|
     "label" -> "Lusine Sukiasyan and Charles Pooh  |  Cite this eTextbook"|>,
      "BannerCitationOpenerTemplate"]], "DockedCell", 
   "BannerCitationOpenerLabel"], 
  Cell[
   BoxData[
    TemplateBox[{
      TemplateBox[{"\"Lusine Sukiasyan and Charles Pooh (2026), \"", 
        StyleBox[
        "\"Introduction to Number Theory: A Computational Approach,\"", 
         Selectable -> True, Copyable -> True, FontSlant -> Italic], 
        "\" Wolfram Media. \
wolfram-media.com/products/introduction-to-number-theory.\""}, "RowDefault"], 
      
      RowBox[{"Lusine Sukiasyan and Charles Pooh (2026), ", 
        StyleBox[
        "Introduction to Number Theory: A Computational Approach,", FontSlant -> 
         "Italic"], 
        " Wolfram Media. \
wolfram-media.com/products/introduction-to-number-theory."}]}, 
     "CitationClickToCopy2", BaseStyle -> {LineBreakWithin -> Automatic}]], 
   "DockedCell", "BannerCitation", CellOpen -> Dynamic[
     TrueQ[
      CurrentValue[
       EvaluationNotebook[], {TaggingRules, "eTextbook", "CitationOpener"}, 
       False]]]]},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
ShowCellBracket->Automatic,
TaggingRules-><|"eTextbook" -> <|"CitationOpener" -> False|>|>,
ShowCellLabel->False,
CellLabelAutoDelete->True,
CellLabelTemplate-><|
 "In" -> "In[`1`]:=", "InExpired" -> "In[`1`]:=", "Out" -> "Out[`1`]=", 
  "OutExpired" -> "Out[`1`]="|>,
ShowCellTags->False,
ShowAutoSpellCheck->False,
ShowPredictiveInterface->False,
AutoStyleOptions->{"HighlightComments"->True},
AutoMultiplicationSymbol->{},
Magnification->1,
FrontEndVersion->"14.3 for Mac OS X ARM (64-bit) (July 1, 2025)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    CellGroupData[{
      Cell[
      "Style Environments", "Section", 
       CellChangeTimes -> {{3.64661165091824*^9, 3.646611654013329*^9}, 
         3.6485723794335403`*^9, 3.651347081728628*^9, 3.651347179462186*^9, 
         3.651347384135805*^9, 3.651348171662589*^9}], 
      Cell[
       StyleData[All, "Working"], CellInsertionPointCell -> 
       FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"], 
       DockedCells -> {
         Cell[
          BoxData[
           GridBox[{{
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[5]], 
              ActionMenuBox[
              "\"Insert\"", {
               "\"Subsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsectionStyle[]), 
                "\"Subsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsectionStyle[]), 
                "\"Subsubsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsubsectionStyle[]), 
                Delimiter, 
                "\"Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToTextStyle[]), "\"CodeText\"" :> 
                Module[{$CellContext`bn = ButtonNotebook[]}, 
                  If[Developer`CellInformation[$CellContext`bn] =!= $Failed, 
                    While[
                    FreeQ[
                    Developer`CellInformation[$CellContext`bn], 
                    "CellBracket"], 
                    FrontEndExecute[
                    
                    FrontEnd`SelectionMove[$CellContext`bn, All, Cell, 
                    AutoScroll -> False]]]; 
                    SelectionMove[$CellContext`bn, After, Cell]]; 
                  NotebookWrite[$CellContext`bn, 
                    Cell["XXXX", "CodeText"], All]; 
                  SelectionMove[$CellContext`bn, All, CellContents]], 
                "\"Hyperlink\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTGenerateHyperlinkDialog[]), 
                "\"Display Formula\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertDisplayFormulaCell[]), Delimiter, 
                "\"Solved Example\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleAndSolvedExampleNoteCells[]), 
                "\"Solved Example Input\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleInputCell[]), 
                "\"Solved Example Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleNoteCell[]), 
                "\"Solved Example Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleDisplayFormulaCell[]),
                 "\"Solved Example Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleDisplayFormulaNumberedCell[]), Delimiter, 
                "\"Theorem\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremCell[]), 
                "\"Theorem Numbered\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremNumberedCell[]), 
                "\"Theorem Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremTextCell[]), 
                "\"Proof/Theorem Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTheoremDisplayCell[]), 
                "\"Proof/Theorem Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertProofTheoremDisplayFormulaNumberedCell[]), 
                "\"Proof\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofCell[]), 
                "\"Proof Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTextCell[]), Delimiter, 
                "\"Vocabulary 2Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd2ColTable[]), 
                "\"Vocabulary 3Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd3ColTable[]), 
                "\"Add Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[]), 
                "\"Remove Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["RemoveRow" -> True]), 
                "\"Apply Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["AddDivider" -> True]), 
                "\"Remove Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[
                  "RemoveDivider" -> True]), Delimiter, 
                "\"Exercises\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseNote[]), 
                "\"Solution Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSolution[]), 
                "\"Solution Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolutionAnswer[]), Delimiter, 
                "\"Q&A | Tech Notes | More\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQAndATechNotesMore[]), 
                "\"Question\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQuestion[]), 
                "\"Answer\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertAnswer[]), 
                "\"Tech Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTechNote[]), 
                "\"More to Explore\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertMoreExplore[]), Delimiter, 
                "\"References Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertReferencesSection[]), 
                "\"Add Reference\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTAddReferenceCell[]), Delimiter, 
                "\"Comment\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyComment[])}, FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              ActionMenuBox[
              "\"Function Name\"", {
               "\"Link\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTMakeSymbolLink[]), 
                "\"Format\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTFormatSymbol[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ButtonBox[
              "\"Resource Function Link\"", 
               ButtonFunction :> (Needs["WolframBookTools`"]; 
                WolframBookTools`WBTResourceFunctionLink[]), Evaluator -> 
               Automatic, Appearance -> "DialogBox", Method -> "Queued"], 
              ActionMenuBox[
              "\"Inline Format\"", {
               "\"Inline Code\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToInlineCode[]), 
                "\"Traditional Math\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTTraditionalFormCell[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ActionMenuBox[
              "\"Mark Cells\"", {
               "\"Tentative\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyTentative[]), Delimiter, 
                "\"Print Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyPrintOnly[]), 
                "\"Web Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyWebOnly[]), Delimiter, 
                "\"Locked\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyLock[])}, Appearance -> "PopupMenu",
                Method -> "Queued", FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              GridBox[{{
                 TooltipBox[
                  ButtonBox[
                  "\"Index Field\"", Appearance -> {"AbuttingRight"}, 
                   ButtonFunction :> (Needs["WolframBookTools`"]; 
                    WolframBookTools`WBTInsertIndexField[]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "First put the cursor in a cell to insert a corresponding \
field above to insert index entries.\nList main index entries corresponding \
to the cell separated by commas. Any associated sub-entries\nshould be put \
immediately after in braces.\nExample: programming{functional, rule based}, \
function, relation, lists{flat, nested}\n If $Language is \"ChineseSimplified\
\", \"ChineseTraditional\", \"Japanese\", \"Korean\" or \"Russian\"\ntwo \
index fields get inserted above a selected cell, the top one for inserting \
entries\nintended for the Englsh index and the bottom for the index in the \
language given by $Language.", TooltipDelay -> 0.3], 
                 TooltipBox[
                  ButtonBox[
                  "\"Toggle\"", Appearance -> {"AbuttingLeft"}, 
                   ButtonFunction :> (CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] = 
                    If[CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] === 
                    "Invisibles", "Working", "Invisibles"]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "Toggles index entry fields.", TooltipDelay -> 0.3]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "ColumnsIndexed" -> {2 -> 0}, "Rows" -> {{Automatic}}}], 
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]]}}]], "DockedCell", 
          CellFrameMargins -> {{0, 0}, {8, 8}}]}, CreateCellID -> True, 
       TrackCellChangeTimes -> False, ShowPredictiveInterface -> False, 
       AutoStyleOptions -> {
        "UndefinedSymbolStyle" -> 
         None}, $CellContext`GhostCellInEmptyNotebook -> False], 
      Cell[
       StyleData[All, "Printout"], PageWidth :> 700, 
       PrintingOptions -> {"PageSize" -> {504, 720}}, 
       AutoStyleOptions -> {"UndefinedSymbolStyle" -> None}, Magnification -> 
       0.6], 
      Cell[
       StyleData[All, "Invisibles"], CellInsertionPointCell -> 
       FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"], 
       DockedCells -> {
         Cell[
          BoxData[
           GridBox[{{
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]], 
              ActionMenuBox[
              "\"Insert\"", {
               "\"Subsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsectionStyle[]), 
                "\"Subsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsectionStyle[]), 
                "\"Subsubsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsubsectionStyle[]), 
                Delimiter, 
                "\"Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToTextStyle[]), "\"CodeText\"" :> 
                Module[{$CellContext`bn = ButtonNotebook[]}, 
                  If[Developer`CellInformation[$CellContext`bn] =!= $Failed, 
                    While[
                    FreeQ[
                    Developer`CellInformation[$CellContext`bn], 
                    "CellBracket"], 
                    FrontEndExecute[
                    
                    FrontEnd`SelectionMove[$CellContext`bn, All, Cell, 
                    AutoScroll -> False]]]; 
                    SelectionMove[$CellContext`bn, After, Cell]]; 
                  NotebookWrite[$CellContext`bn, 
                    Cell["XXXX", "CodeText"], All]; 
                  SelectionMove[$CellContext`bn, All, CellContents]], 
                "\"Hyperlink\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTGenerateHyperlinkDialog[]), 
                "\"Display Formula\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertDisplayFormulaCell[]), Delimiter, 
                "\"Solved Example\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleAndSolvedExampleNoteCells[]), 
                "\"Solved Example Input\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleInputCell[]), 
                "\"Solved Example Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleNoteCell[]), 
                "\"Solved Example Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleDisplayFormulaCell[]),
                 "\"Solved Example Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleDisplayFormulaNumberedCell[]), Delimiter, 
                "\"Theorem\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremCell[]), 
                "\"Theorem Numbered\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremNumberedCell[]), 
                "\"Theorem Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremTextCell[]), 
                "\"Proof/Theorem Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTheoremDisplayCell[]), 
                "\"Proof/Theorem Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertProofTheoremDisplayFormulaNumberedCell[]), 
                "\"Proof\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofCell[]), 
                "\"Proof Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTextCell[]), Delimiter, 
                "\"Vocabulary 2Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd2ColTable[]), 
                "\"Vocabulary 3Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd3ColTable[]), 
                "\"Add Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[]), 
                "\"Remove Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["RemoveRow" -> True]), 
                "\"Apply Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["AddDivider" -> True]), 
                "\"Remove Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[
                  "RemoveDivider" -> True]), Delimiter, 
                "\"Exercises\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseNote[]), 
                "\"Solution Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSolution[]), 
                "\"Solution Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolutionAnswer[]), Delimiter, 
                "\"Q&A | Tech Notes | More\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQAndATechNotesMore[]), 
                "\"Question\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQuestion[]), 
                "\"Answer\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertAnswer[]), 
                "\"Tech Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTechNote[]), 
                "\"More to Explore\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertMoreExplore[]), Delimiter, 
                "\"References Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertReferencesSection[]), 
                "\"Add Reference\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTAddReferenceCell[]), Delimiter, 
                "\"Comment\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyComment[])}, Appearance -> 
               "PopupMenu", FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              ActionMenuBox[
              "\"Function Name\"", {
               "\"Link\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTMakeSymbolLink[]), 
                "\"Format\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTFormatSymbol[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ButtonBox[
              "\"Resource Function Link\"", 
               ButtonFunction :> (Needs["WolframBookTools`"]; 
                WolframBookTools`WBTResourceFunctionLink[]), Evaluator -> 
               Automatic, Appearance -> "DialogBox", Method -> "Queued"], 
              ActionMenuBox[
              "\"Inline Format\"", {
               "\"Inline Code\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToInlineCode[]), 
                "\"Traditional Math\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTTraditionalFormCell[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ActionMenuBox[
              "\"Mark Cells\"", {
               "\"Tentative\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyTentative[]), Delimiter, 
                "\"Print Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyPrintOnly[]), 
                "\"Web Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyWebOnly[]), Delimiter, 
                "\"Locked\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyLock[])}, Method -> "Queued", 
               FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              GridBox[{{
                 TooltipBox[
                  ButtonBox[
                  "\"Index Field\"", Appearance -> {"AbuttingRight"}, 
                   ButtonFunction :> (Needs["WolframBookTools`"]; 
                    WolframBookTools`WBTInsertIndexField[]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "First put the cursor in a cell to insert a corresponding \
field above to insert index entries.\nList main index entries corresponding \
to the cell separated by commas. Any associated sub-entries\nshould be put \
immediately after in braces.\nExample: programming{functional, rule based}, \
function, relation, lists{flat, nested}\n If $Language is \"ChineseSimplified\
\", \"ChineseTraditional\", \"Japanese\", \"Korean\" or \"Russian\"\ntwo \
index fields get inserted above a selected cell, the top one for inserting \
entries\nintended for the Englsh index and the bottom for the index in the \
language given by $Language.", TooltipDelay -> 0.3], 
                 TooltipBox[
                  ButtonBox[
                  "\"Toggle\"", Appearance -> {"AbuttingLeft"}, 
                   ButtonFunction :> (CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] = 
                    If[CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] === 
                    "Invisibles", "Working", "Invisibles"]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "Toggles index entry fields.", TooltipDelay -> 0.3]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "ColumnsIndexed" -> {2 -> 0}, "Rows" -> {{Automatic}}}], 
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]]}}]], "DockedCell", 
          CellFrameMargins -> {{0, 0}, {8, 8}}]}, CreateCellID -> True, 
       TrackCellChangeTimes -> False, ShowPredictiveInterface -> False, 
       AutoStyleOptions -> {
        "UndefinedSymbolStyle" -> 
         None}, $CellContext`GhostCellInEmptyNotebook -> False]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Headers and Footers", "Section"], 
      Cell[
       StyleData["Header"], 
       PrintingOptions -> {"PageHeaderMargins" -> {28, 28}}, StyleMenuListing -> 
       None, FontFamily -> "Source Sans Pro", FontSize -> 8, FontWeight -> 
       "Regular", FontSlant -> "Plain", 
       PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> 
       GrayLevel[0.45]], 
      Cell[
       StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 
       8, FontWeight -> "Bold", FontSlant -> "Plain", 
       PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> 
       GrayLevel[0]]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell[
      "Custom Styles", "Section", 
       CellChangeTimes -> {{3.646611660445352*^9, 3.646611669493331*^9}}], 
      Cell[
       StyleData["Notebook"], WindowToolbars -> {}, PageWidth :> WindowWidth, 
       PrintingOptions -> {
        "FirstPageHeader" -> True, "InnerOuterMargins" -> {30, 30}, 
         "PaperOrientation" -> "Portrait", "PaperSize" -> {504, 720}, 
         "PrintingMargins" -> {{20, 20}, {54, 54}}}, CellLabelAutoDelete -> 
       False, ShowSyntaxStyles -> True, 
       LightDarkAutoColorRules -> <|"AllColors" -> True|>, MenuSortingValue -> 
       None, GraphicsBoxOptions -> {ImageSize -> 240}, 
       Graphics3DBoxOptions -> {ImageSize -> 240}], 
      Cell[
       StyleData["TOCPage"], CellSize -> {40, Inherited}, TextAlignment -> 
       Right, MenuSortingValue -> 20010, StyleMenuListing -> None, FontFamily -> 
       "Source Sans Pro", FontSize -> 18, FontWeight -> "Plain"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ContentsTitle"], CellMargins -> {{66, 66}, {4, 14}}, 
          MenuSortingValue -> 20000, FontFamily -> "Helvetica", FontSize -> 
          36, FontWeight -> "Bold", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["ContentsTitle", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TOCTitle"], CellMargins -> {{66, 66}, {4, 14}}, 
          CellGroupingRules -> {"SectionGrouping", 70}, TabSpacings -> 36, 
          CounterIncrements -> "TOCTitle", MenuSortingValue -> 20020, 
          FontFamily -> "Source Sans Pro", FontSize -> 18, FontWeight -> 
          "Bold", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TOCTitle", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TOCSection"], CellMargins -> {{95, 95}, {1, 1}}, 
          CellGroupingRules -> {"SectionGrouping", 75}, TabSpacings -> 34, 
          CounterIncrements -> "TOCSection", MenuSortingValue -> 20030, 
          FontFamily -> "Source Sans Pro", FontSize -> 16], 
         Cell[
          StyleData["TOCSection", "Printout"]]}, Closed]], 
      Cell[
       StyleData["Leader"], TabFilling -> ".", MenuSortingValue -> 10000, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 
       18, FontWeight -> "Plain"], 
      Cell[
       StyleData["LeaderNoDots"], TabFilling -> " ", MenuSortingValue -> 
       10000, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", 
       FontSize -> 18, FontWeight -> "Plain"], 
      Cell[
       StyleData["PageLink"], MenuSortingValue -> 10000, StyleMenuListing -> 
       None, ButtonStyleMenuListing -> Automatic, FontFamily -> 
       "Source Sans Pro", FontSize -> 18, FontColor -> 
       RGBColor[0.269993, 0.308507, 0.6], 
       ButtonBoxOptions -> {
        Active -> True, Appearance -> {Automatic, None}, 
         ButtonFunction :> (FrontEndExecute[{
            FrontEnd`NotebookLocate[#2]}]& )}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Title"], CellMargins -> {{64, Inherited}, {50, 72}}, 
          MenuCommandKey :> None, FontFamily -> "Verdana", FontSize -> 42, 
          FontWeight -> "Bold", FontColor -> GrayLevel[0.4]], 
         Cell[
          StyleData["Title", "Printout"], 
          CellMargins -> {{64, Inherited}, {50, 72}}]}, Closed]], 
      Cell[
       StyleData["Chapter"], MenuCommandKey :> None], 
      Cell[
       StyleData["Subchapter"], MenuCommandKey :> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Section"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{64, Inherited}, {12, 64}}, 
          CellGroupingRules -> {"SectionGrouping", 30}, PageBreakAbove -> 
          True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["Section", "Printout"], 
          CellMargins -> {{62, 4}, {52, 182}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionSingleDigit"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellDingbat -> Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]\[VeryThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{100, 100}, {12, 64}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionSingleDigit", "Printout"], 
          CellMargins -> {{100, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionDoubleDigit"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellDingbat -> Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]\[VeryThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{112, Inherited}, {12, 64}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionDoubleDigit", "Printout"], 
          CellMargins -> {{112, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNumber"], CellBaseline -> Baseline, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 26, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionBar"], FontFamily -> "Source Sans Pro", 
          FontWeight -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionBar", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionInline"], FontFamily -> 
          "Source Sans Pro Semibold", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionInline", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNoDingbat"], 
          CellMargins -> {{64, Inherited}, {12, 64}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> 
          True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionNoDingbat", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionNumbered"], CellDingbat -> Cell[
            TextData[{"  ", 
              CounterBox["Section"], ".", 
              CounterBox["Subsection"]}], "SubsectionNumber", FontColor -> 
            RGBColor[
             0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{98, Inherited}, {Inherited, 32}}, 
          CounterIncrements -> "Subsection", FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SubsectionNumbered", "Printout"], 
          CellMargins -> {{102, Inherited}, {12, 32}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionNumber"], FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          GrayLevel[0.25]], 
         Cell[
          StyleData["SubsectionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionFirst"], 
          CellMargins -> {{64, Inherited}, {2, 72}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 32}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsection"], CellMargins -> {{64, Inherited}, {2, 32}}, 
          FontFamily -> "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsection", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsection"], 
          CellMargins -> {{64, Inherited}, {2, 32}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 16, FontSlant -> "Italic", 
          FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsubsectionTopMargin"], 
          CellMargins -> {{64, Inherited}, {2, 14}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 16, FontSlant -> "Italic", 
          FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SubsubsectionTopMargin", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsubsection"], 
          CellMargins -> {{64, Inherited}, {2, 32}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.45]], 
         Cell[
          StyleData["Subsubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsubsubsection"], 
          CellMargins -> {{66, Inherited}, {2, 10}}, 
          StyleKeyMapping -> {
           "Backspace" -> 
            "Subsubsubsection", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> 
            "Subsubsubsection"}, CellGroupingRules -> {"SectionGrouping", 70},
           PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", 
          CounterIncrements -> "Subsubsubsubsection", 
          CounterAssignments -> {{"Item", 0}, {"Subitem", 0}, {
            "Subsubitem", 0}, {"ItemNumbered", 0}, {"SubitemNumbered", 0}, {
            "SubsubitemNumbered", 0}}, MenuSortingValue -> None, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsubsubsubsection", "Printout"], 
          CellMargins -> {{66, 66}, {2, 10}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesSubsection"], 
          CellMargins -> {{64, Inherited}, {4, 16}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesSubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 16}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["VocabularySection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 24}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySubsection"], 
          CellMargins -> {{64, Inherited}, {2, 10}}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["VocabularySubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySubsectionSM"], 
          CellFrame -> {{0, 0}, {0.75, 0}}, 
          CellMargins -> {{64, Inherited}, {5, 15}}, 
          CellFrameMargins -> {{8, 8}, {5, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Bold", FontSlant -> 
          "Regular", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["VocabularySubsubsectionSM", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 15}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyTable", StyleDefinitions -> StyleData["Text"]],
           SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {"VocabularyCode", Inherited, Inherited}, 
              "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "VocabularyTable3Column", StyleDefinitions -> StyleData["Text"]], 
          SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {
               "VocabularyCode", Inherited, "VocabularyCode", Inherited, 
                Inherited}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable3Column", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyText"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["VocabularyText", "Printout"], 
          CellMargins -> {{66, 10}, {7, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyCode", StyleDefinitions -> StyleData["Text"]], 
          Deletable -> False, FontFamily -> "Source Sans Pro", FontSize -> 14,
           FontWeight -> "Bold", FontColor -> GrayLevel[0.25], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {
             "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {True, {True}, True}, "RowsIndexed" -> {}}}], 
         Cell[
          StyleData["VocabularyCode", "Printout"], FontColor -> 
          GrayLevel[0.25]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["GrayPointSix"], FontColor -> GrayLevel[0.6]], 
         Cell[
          StyleData["GrayPointSix", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabDivColor"], FontColor -> GrayLevel[0.8]], 
         Cell[
          StyleData["VocabDivColor", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummarySection"], PageWidth :> WindowWidth, 
          CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> 
          True, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], MenuSortingValue -> 9000, 
          FontFamily -> "Source Sans Pro", FontSize -> 18, FontSlant -> 
          "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["SummarySection", "Printout"], 
          CellMargins -> {{64, 64}, {8, 30}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummaryNote"], PageWidth :> WindowWidth, 
          CellMargins -> {{64, 64}, {4, 8}}, ReturnCreatesNewCell -> True, 
          PageBreakBelow -> False, MenuSortingValue -> 9010, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SummaryNote", "Printout"], 
          CellMargins -> {{68, 68}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummaryList"], PageWidth :> WindowWidth, CellDingbat -> 
          Cell[
            TextData[{"\[FilledSmallSquare]"}], FontSize -> 12, FontColor -> 
            GrayLevel[0.5]], CellMargins -> {{78, 78}, {4, 8}}, 
          ReturnCreatesNewCell -> True, CellFrameLabelMargins -> 3, 
          LineSpacing -> {1.25, 1., 2.}, MenuSortingValue -> 9020, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SummaryList", "Printout"], 
          CellMargins -> {{82, 82}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, ShowCellLabel -> False, CellFrameMargins -> {{8, 8}, {4, 6}},
           CellFrameColor -> RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["ExerciseSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSubsection"], PageWidth :> 500, 
          CellFrame -> {{False, False}, {1, False}}, 
          CellMargins -> {{64, Inherited}, {8, 18}}, 
          CellGroupingRules -> {"SectionGrouping", 61}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6], FontFamily -> "Source Sans Pro", FontSize -> 
          18, FontSlant -> "Italic", FontColor -> RGBColor[0.65, 0.6, 0.6]], 
         Cell[
          StyleData["ExerciseSubsection", "Printout"], 
          CellFrame -> {{False, False}, {1, False}}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSubsectionSM"], 
          CellMargins -> {{64, Inherited}, {4, 12}}, 
          CellGroupingRules -> {"SectionGrouping", 61}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ExerciseSubsectionSM", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Exercise"], CellDingbat -> Cell[
            TextData[{"  ", 
              CounterBox["Section"], ".", 
              CounterBox["Exercise"]}], "ExerciseNumber", FontColor -> 
            RGBColor[
             0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          ShowGroupOpener -> False, CellMargins -> {{106, Inherited}, {4, 8}},
           CellGroupingRules -> {"SectionGrouping", 62}, DefaultNewCellStyle -> 
          "ExerciseInput", CounterIncrements -> "Exercise", MenuSortingValue -> 
          10020, MenuCommandKey :> "2", FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["Exercise", "Printout"], ShowGroupOpener -> False, 
          CellMargins -> {{108, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSectionNote"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, LineSpacing -> {1., 1., 2.}, MenuSortingValue -> 10050, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseSectionNote", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNote"], 
          CellMargins -> {{106, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, LineSpacing -> {1., 1., 2.}, MenuSortingValue -> 10050, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseNote", "Printout"], 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSolution"], ShowGroupOpener -> "Inline", 
          CellMargins -> {{106, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, CellChangeTimes -> {3.938884624675207*^9}, 
          LineSpacing -> {1., 1., 2.}, 
          CounterAssignments -> {{"ItemNumbered", 0}}, LineColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          FrontFaceColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          BackFaceColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GraphicsColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro Semibold",
           FontSize -> 14, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["ExerciseSolution", "Printout"], 
          CellMargins -> {{106, Inherited}, {4, 8}}, 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolutionAnswer"], CellMargins -> {{106, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, LineSpacing -> {1.125, 1., 2.}, 
          MenuSortingValue -> 10032, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> 
          GrayLevel[0.25], $CellContext`DefaultReturnCreatedCellStyle -> 
          "Question"], 
         Cell[
          StyleData["SolutionAnswer", "Printout"], 
          CellMargins -> {{106, 10}, {4, 1}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolutionItem"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], ")"}], FontSize -> 14, FontWeight -> 
            "Regular", FontColor -> GrayLevel[0.25]], 
          CellMargins -> {{122, Inherited}, {2, 4}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, LineSpacing -> {1.25, 1., 2.}, 
          CounterIncrements -> "ItemNumbered", MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SolutionItem", "Printout"], 
          CellMargins -> {{106, Inherited}, {2, 4}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QASection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Question", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["QASection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Question"], CellMargins -> {{64, Inherited}, {2, 12}}, 
          ReturnCreatesNewCell -> True, PageBreakBelow -> False, 
          CounterIncrements -> "Question", MenuSortingValue -> 10030, 
          MenuCommandKey :> "3", FontFamily -> "Source Sans Pro", FontSize -> 
          14, FontWeight -> "Bold", FontSlant -> 
          "Plain", $CellContext`DefaultReturnCreatedCellStyle -> "Answer"], 
         Cell[
          StyleData["Question", "Printout"], 
          CellMargins -> {{65, Inherited}, {2, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Answer"], CellMargins -> {{66, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, LineSpacing -> {1.125, 1., 2.}, 
          MenuSortingValue -> 10032, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> 
          GrayLevel[0.25], $CellContext`DefaultReturnCreatedCellStyle -> 
          "Question"], 
         Cell[
          StyleData["Answer", "Printout"], 
          CellMargins -> {{66, 10}, {4, 1}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QuestionNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["QuestionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["TechNoteSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteSubsection"], 
          CellMargins -> {{64, Inherited}, {2, 10}}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["TechNoteSubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteItem"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], "."}], FontSize -> 12, FontWeight -> 
            Bold, FontColor -> GrayLevel[0.25]], 
          CellMargins -> {{93, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, 
          CellChangeTimes -> {{3.651515120816633*^9, 3.651515125814807*^9}, 
            3.6515155174947033`*^9}, LineSpacing -> {1.25, 1., 2.}, 
          CounterIncrements -> "ItemNumbered", MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNoteItem", "Printout"], 
          CellMargins -> {{93, Inherited}, {4, 8}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteNoDingbat"], 
          CellMargins -> {{82, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, LineSpacing -> {1.25, 1., 2.}, 
          MenuSortingValue -> 10040, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNote", "Printout"], 
          CellMargins -> {{82, Inherited}, {4, 8}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNote"], CellDingbat -> Cell[
            TextData[{"\[FilledSquare]"}], FontSize -> 12, FontColor -> 
            GrayLevel[0.5]], CellMargins -> {{78, Inherited}, {4, 8}}, 
          ReturnCreatesNewCell -> True, CellFrameLabelMargins -> 4, 
          LineSpacing -> {1.25, 1., 2.}, MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNote", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{99, 10}, {3, 7}}, SpanMaxSize -> 1, FontSize -> 
          14], 
         Cell[
          StyleData["TechNoteInput", "Printout"], 
          CellMargins -> {{99, 10}, {3, 7}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TechNoteOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{99, 10}, {14, 7}}, FontSize -> 14], 
         Cell[
          StyleData["TechNoteOutput", "Printout"], 
          CellMargins -> {{99, 10}, {14, 7}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["MoreExploreSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExplore"], CellMargins -> {{64, Inherited}, {4, 8}}, 
          ReturnCreatesNewCell -> True, PageBreakBelow -> False, 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["MoreExplore", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreShortURL"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, PageBreakBelow -> False, 
          FontFamily -> "Source Sans Pro Light", FontSize -> 14, FontSlant -> 
          "Plain", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["MoreExploreShortURL", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysSection"], CellFrame -> {{1, 1}, {1, 1}}, 
          CellMargins -> {{52, -12}, {-1, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{16, 8}, {6, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontWeight -> "Bold", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> GrayLevel[1], Background -> 
          RGBColor[0.901961, 0.411765, 0.027451]], 
         Cell[
          StyleData["TakeawaysSection", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysHeader"], 
          CellMargins -> {{64, Inherited}, {5, 15}}, 
          CellFrameMargins -> {{8, 8}, {5, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontWeight -> "SemiBold", 
          FontSlant -> "Regular", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TakeawaysHeader", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysTable"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{52, -12}, {12, -1}}, ReturnCreatesNewCell -> True, 
          CellFrameMargins -> {{18, 12}, {20, 12}}, CellFrameLabelMargins -> 
          6, LineSpacing -> {1.25, 1., 2.}, SpanMaxSize -> 1, FontFamily -> 
          "Source Sans Pro Light", FontColor -> GrayLevel[0.25], Background -> 
          RGBColor[1., 0.9490196078431372, 0.8509803921568627], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {"TakeawaysDingbat", Inherited}, 
              "Rows" -> {{SpanFromLeft, Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.75}}}}], 
         Cell[
          StyleData["TakeawaysTable", "Printout"], 
          CellMargins -> {{51.5, -12.5}, {12, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysText"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TakeawaysText", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TakeawaysDingbat", StyleDefinitions -> StyleData["Text"]], 
          FontFamily -> "Source Sans Pro", FontSize -> 10, FontWeight -> 
          "SemiBold", FontColor -> RGBColor[0.901961, 0.411765, 0.027451], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {
             "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {True, {True}, True}, "RowsIndexed" -> {}}}], 
         Cell[
          StyleData["TakeawaysDingbat", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeText", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 10}, {3, 15}}, LineSpacing -> {1, 1, 1}, 
          MenuSortingValue -> 1540, 
          MenuCommandKey :> $CellContext`MenuKey[
           "7", $CellContext`Modifiers -> {"Shift"}], FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["CodeText", "Printout"], 
          CellMargins -> {{66, 10}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeCaption"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{66, 10}, {4, 12}}, PageBreakBelow -> False, 
          CellFrameColor -> GrayLevel[0.4], LineSpacing -> {1, 1, 1}, 
          MenuSortingValue -> 10010, MenuCommandKey :> "1", FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["CodeCaption", "Printout"], 
          CellMargins -> {{66, 10}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["DisplayFormula"], CellMargins -> {{99, 15}, {2, 12}}, 
          StripStyleOnPaste -> True, DefaultFormatType -> 
          DefaultInputFormatType, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           LanguageCategory -> "Formula", ScriptLevel -> 0, 
          SingleLetterItalics -> True, MenuSortingValue -> 1700, FontFamily -> 
          "Baskerville", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> GrayLevel[0.2], 
          UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
         Cell[
          StyleData["DisplayFormula", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "DisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["DisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {36, Inherited}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, 6}, {Inherited, Inherited}}, 
          TextAlignment -> Left, CounterIncrements -> 
          "DisplayFormulaNumbered", MenuSortingValue -> 1710, FontFamily -> 
          "Baskerville", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}], 
         Cell[
          StyleData["DisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{99, 19}, {Inherited, Inherited}}, 
          CellFrameMargins -> {{Inherited, Inherited}, {
            Inherited, Inherited}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Print"], CellMargins -> {{99, 10}, {4, 4}}, FontSize -> 
          15], 
         Cell[
          StyleData["Print", "Presentation"], 
          CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}], 
         
         Cell[
          StyleData["Print", "SlideShow"], 
          CellMargins -> {{
            0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 
             FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}, 
          FontSize -> 18], 
         Cell[
          StyleData["Print", "Condensed"], 
          CellMargins -> {{18, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Print", "Printout"], 
          CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Print", "PrintoutGray"], 
          CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Item"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontFamily -> Automatic, FontSize -> 
            18, FontWeight -> GrayLevel[0], 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{81, 10}, {4, 8}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "Subitem", "*" -> "Subitem"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameLabelMargins -> 4, CounterIncrements -> "Item", 
          CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}}, 
          MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 
          15], 
         Cell[
          StyleData["Item", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 17, FontFamily -> 
            "Automatic", FontWeight -> "Black", 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{80, Inherited}, {Inherited, Inherited}}, 
          CellDingbatMargin -> 2, 
          CellGroupingRules -> {
           "GroupTogetherNestedGrouping", 1.073741821*^9}, 
          CellChangeTimes -> {{3.8855684925344043`*^9, 
           3.885568495926271*^9}, {3.885643888233819*^9, 
           3.885643900721007*^9}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ItemParagraph"], CellMargins -> {{81, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemParagraph"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 
          15, FontColor -> GrayLevel[0.2]], 
         Cell[
          StyleData["ItemParagraph", "Printout"], 
          CellMargins -> {{80, Inherited}, {Inherited, 0.5 Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ItemNumbered"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold"], 
          CellMargins -> {{85, 10}, {4, 8}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemNumbered"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameLabelMargins -> 4, CounterIncrements -> "ItemNumbered", 
          CounterAssignments -> {{"SubitemNumbered", 0}, {
            "SubsubitemNumbered", 0}}, MenuSortingValue -> 1630, FontFamily -> 
          "Source Sans Pro", FontSize -> 15], 
         Cell[
          StyleData["ItemNumbered", "Printout"], 
          CellMargins -> {{90, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subitem"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{105, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {
           "Tab" -> "Subsubitem", "*" -> "Subsubitem", "Backspace" -> 
            "Item", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> "Item"}, 
          CellGroupingRules -> {"ItemGrouping", 80}, CellFrameLabelMargins -> 
          4, CounterIncrements -> "Subitem", 
          CounterAssignments -> {{"Subsubitem", 0}}, MenuSortingValue -> 1610,
           FontFamily -> "Source Sans Pro", FontSize -> 14], 
         Cell[
          StyleData["Subitem", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 17, FontFamily -> 
            "Automatic", FontWeight -> "Black", 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{105, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubitem"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            RGBColor[0.6, 0.6, 0.6]], CellMargins -> {{129, 12}, {4, 4}}, 
          ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {
           "Backspace" -> 
            "Subitem", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> "Subitem"}, 
          CellGroupingRules -> {"ItemGrouping", 90}, CellFrameLabelMargins -> 
          4, CounterIncrements -> "Subsubitem", MenuSortingValue -> 1620, 
          FontFamily -> "Source Sans Pro", FontSize -> 13], 
         Cell[
          StyleData["Subsubitem", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            GrayLevel[0.65]], 
          CellMargins -> {{129, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Note"], CellFrame -> {{0, 0}, {0, 1}}, 
          CellMargins -> {{66, 0}, {8, 6}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemParagraph"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameMargins -> {{14, 14}, {12, 12}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], 
          LineSpacing -> {1.2, 1., 2.}, MenuSortingValue -> 1600, FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontColor -> GrayLevel[0.2], 
          Background -> RGBColor[1., 0.9647058823529412, 0.9411764705882353]], 
         Cell[
          StyleData["Note", "Printout"], CellMargins -> {{66, 0}, {10, 8}}, 
          FontSize -> 14]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Echo"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Echo", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EchoTiming"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["EchoTiming", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Epigraph"], CellMargins -> {{100, 78}, {6, 24}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, 
          CellFrameLabelMargins -> 8, TextAlignment -> Left, Hyphenation -> 
          True, HyphenationOptions -> {"HyphenationMinLengths" -> {3, 5}}, 
          LineSpacing -> {1, 2}, TabSpacings -> {1.2, 2.5}, FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontWeight -> "Plain", FontSlant -> 
          "Plain"], 
         Cell[
          StyleData["Epigraph", "Printout", StyleDefinitions -> None]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EpigraphAuthor"], CellMargins -> {{125, 100}, {12, 12}}, 
          TextAlignment -> Left, LineSpacing -> {1, 2}, 
          ParagraphIndent -> -17, TabSpacings -> {1.5, 2.5}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontTracking -> -0.05], 
         Cell[
          StyleData["EpigraphAuthor", "Printout", StyleDefinitions -> None]]},
         Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ReferenceSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["ReferenceSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Reference"], CellDingbat -> Cell[
            TextData[{
              CounterBox["Reference"]}], "SR", FontSize -> 13, 
            CellSize -> {30, Inherited}, TextAlignment -> Right], 
          CellMargins -> {{80, 10}, {3, 4}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, 
          CellFrameLabelMargins -> 8, 
          CellChangeTimes -> {{3.738599543211059*^9, 3.738599549834622*^9}}, 
          LineSpacing -> {1, 2}, ParagraphIndent -> -8, 
          TabSpacings -> {0.7, 2.5}, CounterIncrements -> "Reference", 
          MenuSortingValue -> 1870, FontFamily -> "Source Sans Pro", FontSize -> 
          14, FontWeight -> "Plain", FontSlant -> "Plain"], 
         Cell[
          StyleData["Reference", "Printout", StyleDefinitions -> None], 
          CellMargins -> {{66, 10}, {3, 4}}, TabSpacings -> {1.2, 2.5}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TextFirst"], CellMargins -> {{66, 10}, {4, 72}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Baskerville", FontSize -> 
          18, FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["Text", "Printout"], CellMargins -> {{66, 10}, {7, 7}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Text"], CellMargins -> {{66, 10}, {4, 12}}, 
          ReturnCreatesNewCell -> True, 
          CellChangeTimes -> {{3.968834509197134*^9, 3.968834509700926*^9}}, 
          FontFamily -> "Baskerville", FontSize -> 18, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`]], 
         Cell[
          StyleData["Text", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SmallText"], CellMargins -> {{66, 10}, {6, 6}}, 
          LineSpacing -> {1, 3}, TabSpacings -> {2.5}, LanguageCategory -> 
          "NaturalLanguage", CounterIncrements -> "SmallText", 
          MenuSortingValue -> 1750, StyleMenuListing -> None, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontColor -> GrayLevel[0.2]], 
         Cell[
          StyleData["SmallText", "Printout"], 
          CellMargins -> {{66, 10}, {7, 7}}, Hyphenation -> True]}, Closed]], 
      
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesText"], CellMargins -> {{66, 10}, {2, 0}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesText", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesLink"], CellMargins -> {{66, 10}, {2, 0}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Italic", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesLink", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Input"], CellMargins -> {{99, 10}, {3, 7}}, CellEpilog :> 
          Quiet[Needs["WolframBookTools`"]; 
            WolframBookTools`AddCaptionsToRegeneratedOutput[]], SpanMaxSize -> 
          1, FontSize -> 15], 
         Cell[
          StyleData["Input", "Printout"], CellMargins -> {{99, 10}, {3, 7}}]},
         Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Output"], CellMargins -> {{99, 10}, {14, 7}}, FontSize -> 
          15], 
         Cell[
          StyleData["Output", "Printout"], 
          CellMargins -> {{99, 10}, {14, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputOnly"], CellMargins -> {{99, 10}, {25, 10}}, 
          SpanMaxSize -> 1, MenuSortingValue -> 1500, FontSize -> 15], 
         Cell[
          StyleData["InputOnly", "Printout"], 
          CellMargins -> {{99, 10}, {15, 10}}]}, Closed]], 
      Cell[
       StyleData["InitializationCell"], Background -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CellLabel"], 
          CellLabelMargins -> {{18, Inherited}, {Inherited, Inherited}}, 
          LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> 
          "Roboto", FontSize -> 9, FontWeight -> "Regular", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.5]], 
         Cell[
          StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> 
          GrayLevel[0.3]]}, Closed]], 
      Cell[
       StyleData[
       "CellLabelExpired", StyleDefinitions -> StyleData["CellLabel"]], 
       CellLabelMargins -> 6, FontSlant -> Italic, FontTracking -> 0.4, 
       FontColor -> GrayLevel[0.3]], 
      Cell[
       StyleData["IconizedDefaultName"], FontSize -> 12, 
       PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontColor -> 
       GrayLevel[0.15]], 
      Cell[
       StyleData["IconizedFrame"], 
       TemplateBoxOptions -> {
        DisplayFunction -> (
          FrameBox[#, BaselinePosition -> Baseline, 
           FrameMargins -> {{0, 0}, {1, 1}}, FrameStyle -> GrayLevel[0.65], 
           Background -> GrayLevel[0.96], RoundingRadius -> 4, 
           DefaultBaseStyle -> {
            "DialogStyle", FontFamily -> "Roboto", FontSize -> 11}]& ), 
         Tooltip -> None}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Message"], Editable -> False, 
          CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, 
          CellGroupingRules -> "OutputGrouping", TextClipboardType -> 
          "PlainText", StripStyleOnPaste -> True, PageBreakWithin -> False, 
          GroupPageBreakWithin -> False, GeneratedCell -> True, 
          CellAutoOverwrite -> True, ShowCellLabel -> False, 
          DefaultFormatType -> DefaultOutputFormatType, ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Output"], 
          ShowAutoStyles -> False, ShowSyntaxStyles -> False, 
          AutoStyleOptions -> {
           "StringStyle" -> None, "SyntaxErrorStyle" -> None}, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           AutoItalicWords -> {}, AutoQuoteCharacters -> {}, 
          PasteAutoQuoteCharacters -> {}, LanguageCategory -> None, 
          FormatType -> InputForm, ShowStringCharacters -> False, 
          CounterIncrements -> "Message", MenuSortingValue -> 1600, 
          StyleMenuListing -> None, FontFamily :> 
          CurrentValue["PanelFontFamily"], FontSize -> 11, FontColor -> 
          RGBColor[0.5072, 0.16933, 0.15221]], 
         Cell[
          StyleData["Message", "Printout"], 
          CellMargins -> {{100, Inherited}, {Inherited, Inherited}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, FontColor -> 
          GrayLevel[0]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{106, 10}, {4, 7}}, 
          GeneratedCellStyles -> {"Output" -> "ExerciseOutput"}, 
          ShowCellLabel -> False, SpanMaxSize -> 1, FontSize -> 14], 
         Cell[
          StyleData["ExerciseInput", "Printout"], 
          CellMargins -> {{106, 10}, {4, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ExerciseOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{106, 10}, {10, 4}}, ShowCellLabel -> False, 
          FontSize -> 14], 
         Cell[
          StyleData["ExerciseOutput", "Printout"], 
          CellMargins -> {{106, 10}, {10, 4}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Picture"], CellMargins -> {{66, 10}, {10, 10}}, 
          CellGroupingRules -> "GraphicsGrouping", StyleMenuListing -> None], 
         
         Cell[
          StyleData["Picture", "Printout"], 
          CellMargins -> {{66, 10}, {8, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Comment"], FontFamily -> "Verdana", FontSize -> 13, 
          FontColor -> RGBColor[0.3, 0.3, 0.2], Background -> 
          RGBColor[1, 0.9, 0.8]], 
         Cell[
          StyleData["Comment", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Suggestion"], 
          CellFrameLabels -> {{Inherited, Inherited}, {Inherited, 
             Cell[
              BoxData[
               TagBox[
                GridBox[{{
                   ButtonBox[
                   "\"  Insert  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`ReplaceWithSuggestion[]), Evaluator -> 
                    Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    ContentPadding -> False, Appearance -> Automatic, Method -> 
                    "Queued"], 
                   ButtonBox[
                   "\"  Stet  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; DocuTools`StetSuggestion[]), 
                    Evaluator -> Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], "    ", 
                   ButtonBox[
                   "\"  Next  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`FindNextSuggestion[]), Evaluator -> Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], 
                   ButtonBox[
                   "\"  Previous  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`FindPreviousSuggestion[]), Evaluator -> 
                    Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], "\"\""}}, 
                 AutoDelete -> False, 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                "Grid"]], ShowStringCharacters -> False, Background -> 
              None]}}, Background -> RGBColor[1, 0.8, 0.8]], 
         Cell[
          StyleData["Suggestion", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       StyleData["Tentative"], 
       CellBracketOptions -> {
        "Color" -> RGBColor[
          0.30000000000000016`, 0.6000000000000003, 0.7000000000000003], 
         "Thickness" -> 5}, Evaluatable -> False, CellFrameMargins -> 4, 
       StyleMenuListing -> None, Background -> 
       RGBColor[0.8500000000000003, 0.9500000000000003, 1]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["PrintOnly"], 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.89, 0.867, 0.99], "Thickness" -> 5}, 
          CellFrameMargins -> 4, StyleMenuListing -> None, Background -> 
          RGBColor[0.89, 0.867, 0.99]], 
         Cell[
          StyleData["PrintOnly", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01], 
         Cell[
          StyleData["Tentative", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["WebOnly"], 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.91, 0.92, 0.9], "Thickness" -> 5}, 
          CellFrameMargins -> 4, StyleMenuListing -> None, Background -> 
          RGBColor[0.91, 0.92, 0.86]], 
         Cell[
          StyleData["WebOnly", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       StyleData["Lockdown"], 
       CellBracketOptions -> {
        "Color" -> RGBColor[0.8, 0.5, 0.4], "Thickness" -> 3}, Evaluatable -> 
       False, StyleMenuListing -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["IndexField"], CellFrame -> True, CellFrameColor -> 
          GrayLevel[0.7], FontFamily -> "Verdana", FontSize -> 12], 
         Cell[
          StyleData["IndexField", "Invisibles"], CellFrame -> False, 
          ShowCellBracket -> False, CellOpen -> False, FontSize -> 1]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExplanationField"], CellFrame -> True, CellFrameColor -> 
          GrayLevel[0.7], FontFamily -> "Verdana", FontSize -> 12], 
         Cell[
          StyleData["ExplanationField", "Invisibles"], CellFrame -> False, 
          ShowCellBracket -> False, CellOpen -> False, FontSize -> 1]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EnglishHighlight"], FontFamily -> "WolframCodeSans"], 
         Cell[
          StyleData["EnglishHighlight", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolvedExample"], CellMargins -> {{66, 30}, {0, 16}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 25}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "SolvedExample", FontFamily -> 
          "Source Sans Pro", FontSize -> 16.5, FontWeight -> "SemiBold", 
          FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExample", "Printout"], 
          CellMargins -> {{66, 0}, {0, 16}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleNote", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleNote", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleDisplayFormula", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {12, 8}}, TextAlignment -> 
          Left, LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 
          14, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleDisplayFormula", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleDisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 40}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, 46}, {12, 8}}, 
          CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["SolvedExampleDisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {36, Automatic}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, -46}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "SolvedExampleDisplayFormulaNumbered", 
          FontSize -> 14, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleDisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          GeneratedCellStyles -> {
           "Message" -> "SolvedExampleMessage", "Output" -> 
            "SolvedExampleOutput"}, 
          CellFrameMargins -> {{32, Inherited}, {3, 7}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleInput", "Printout"], 
          CellMargins -> {{66, 0}, {0, -7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {14, 7}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleOutput", "Printout"], 
          CellMargins -> {{66, 0}, {6, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolvedExampleMessage"], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleMessage", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       StyleData["SolvedExampleEndCap"], CellMargins -> {{66, 30}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellElementSpacings -> {"CellMinHeight" -> 20}, 
       CellFrameMargins -> {{10, 13}, {0, 0}}, 
       LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 2, 
       FontColor -> 
       RGBColor[
        0.050002574846150734`, 0.050002574846150734`, 0.050002574846150734`], 
       Background -> Hue[0.085, 0.07, 0.95]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Theorem"], Editable -> False, 
          CellMargins -> {{66, 30}, {0, 16}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {0, 25}}, 
          CellChangeTimes -> {3.968922600990673*^9}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "Subsection", FontFamily -> "Source Sans Pro", 
          FontSize -> 16.5, FontWeight -> "SemiBold", FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996], 
          GridBoxOptions -> {
           GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0}}}, 
          GraphicsBoxOptions -> {
           ImagePadding -> None, ImageSize -> {900, 1}, PlotRangePadding -> 
            0}], 
         Cell[
          StyleData["Theorem", "Printout"], CellMargins -> {{66, 0}, {0, 16}},
           CellChangeTimes -> {{3.965900023638689*^9, 
           3.965900023829352*^9}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TheoremStatement", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["TheoremStatement", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ProofTheoremDisplayFormula", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {12, 8}}, 
          CellFrameLabelMargins -> {{Inherited, -26}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          MenuSortingValue -> 1710, FontFamily -> "Baskerville", FontSize -> 
          14, FontWeight -> "Regular", FontSlant -> "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofTheoremDisplayFormula", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ProofTheoremDisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 40}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, 46}, {12, 8}}, 
          CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["ProofTheoremDisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {36, Automatic}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, -46}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "ProofTheoremDisplayFormulaNumbered", 
          MenuSortingValue -> 1710, FontFamily -> "Baskerville", FontSize -> 
          14, FontWeight -> "Regular", FontSlant -> "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofTheoremDisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Proof"], Editable -> False, 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {0, 20}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontFamily -> 
          "Source Sans Pro", FontSize -> 16.5, FontWeight -> "SemiBold", 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996], 
          GridBoxOptions -> {
           GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0}}}, 
          GraphicsBoxOptions -> {
           ImagePadding -> None, ImageSize -> {900, 1}, PlotRangePadding -> 
            0}], 
         Cell[
          StyleData["Proof", "Printout"], CellMargins -> {{66, 0}, {0, 0}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ProofContent", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofContent", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       StyleData["ProofTheoremEndCap"], CellMargins -> {{66, 30}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellElementSpacings -> {"CellMinHeight" -> 20}, 
       CellFrameMargins -> {{10, 13}, {0, 0}}, FontSize -> 2, FontColor -> 
       RGBColor[
        0.00010000076130382223`, 0.007800042619928998, 0.13000297516585294`], 
       Background -> Hue[0.57, 0.098, 0.996]], 
      Cell[
       StyleData["Banner", StyleDefinitions -> StyleData["Text"]], Editable -> 
       False, WindowToolbars -> {}, PageWidth :> WindowWidth, 
       Alignment -> {{Left, Right}, {Center, Center}}, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellGroupingRules -> {"SectionGrouping", 0}, CellContext -> CellGroup, 
       CellFrameMargins -> {{0, 20}, {5, 0}}, CellFrameColor -> 
       RGBColor[
        0.00009999889888604668, 0.1607913972623736, 0.4000129703059972], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 20, FontWeight -> "SemiBold", FontColor -> GrayLevel[1], 
       Background -> 
       RGBColor[
        0.00009999889888604668, 0.1607913972623736, 0.4000129703059972]], 
      Cell[
       StyleData[
       "BannerCitationOpenerLabel", StyleDefinitions -> StyleData["Text"]], 
       WindowToolbars -> {}, Selectable -> True, PageWidth :> WindowWidth, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, 0}}, 
       CellGroupingRules -> {"SectionGrouping", 70}, CellContext -> CellGroup,
        CellFrameMargins -> {{28, 0}, {4, 5}}, CellFrameColor -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 11, FontWeight -> "Regular", FontColor -> 
       RGBColor[
        0.27843797333540327`, 0.40392625458540327`, 0.5137851263583065], 
       Background -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761]], 
      
      Cell[
       StyleData["BannerCitation", StyleDefinitions -> StyleData["Text"]], 
       WindowToolbars -> {}, Selectable -> True, PageWidth :> WindowWidth, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, -1}}, 
       CellElementSpacings -> {"CellMinHeight" -> 2, "ClosedCellHeight" -> 1},
        Copyable -> True, CellContext -> CellGroup, 
       CellFrameMargins -> {{28, 0}, {8, 0}}, CellFrameColor -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 11, FontWeight -> "Bold", FontColor -> 
       RGBColor[
        0.27843797333540327`, 0.40392625458540327`, 0.5137851263583065], 
       Background -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761]], 
      
      Cell[
       StyleData[
       "BannerPreReleaseLabel", StyleDefinitions -> 
        StyleData["BannerCitationOpenerLabel"]], 
       CellFrameMargins -> {{0, 30}, {2, 0}}, 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["BannerHeading"], MenuSortingValue -> None, FontFamily -> 
       "Source Sans Pro", FontSize -> 11, FontWeight -> "Regular", FontColor -> 
       RGBColor[
        0.9999903558940054, 0.5650486394018294, 0.14501301402226988`]]}, 
     Open]], 
   Cell[
    CellGroupData[{
      Cell[
      "Inline and special formatting", "Section", 
       CellChangeTimes -> {{3.646681732592888*^9, 3.646681749414035*^9}}], 
      Cell[
       StyleData["DateObject"], ContextMenu -> 
       FEPrivate`FrontEndResource["ContextMenus", "DateObject"], 
       TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
           
           StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontSize -> 
            13, FontWeight -> "Plain", FontColor -> 
            RGBColor[
             0.12941176470588237`, 0.34509803921568627`, 
              0.43529411764705883`], ShowStringCharacters -> False], 
           Background -> Hue[0.11, 0, 0.97], FrameMargins -> {{5, 5}, {2, 2}},
            FrameStyle -> GrayLevel[0.65], RoundingRadius -> 2, 
           BaselinePosition -> Baseline, 
           BaseStyle -> {FontFamily -> "Courier"}]& ), 
         InterpretationFunction -> (#2& )}], 
      Cell[
       StyleData["DateObjectLabel"], FontWeight -> "Plain", FontColor -> 
       GrayLevel[0.2]], 
      Cell[
       StyleData["SummaryItemAnnotation"], FontColor -> GrayLevel[0.3]], 
      Cell[
       StyleData["Caption"], FontFamily :> CurrentValue["PanelFontFamily"], 
       FontSize :> 0.8 Inherited, FontWeight -> "Plain", FontSlant -> "Plain",
        FontColor :> CurrentValue[{"SystemColors", "DialogText"}], 
       TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
           
           FrameBox[#, FrameStyle -> GrayLevel[0.5], Background -> 
            GrayLevel[0.969], FrameMargins -> 7, RoundingRadius -> 3, 
            BaselinePosition -> Baseline], Active -> False, Alignment -> Left,
            Appearance -> None, BaseStyle -> {Deployed -> False}, 
           DefaultBaseStyle -> {"Pane", Background -> None}, BaselinePosition -> 
           Baseline]& ), Tooltip -> None}, 
       GraphicsBoxOptions -> {
        Axes -> False, 
         DefaultBaseStyle -> {
          "GraphicsNoFontsOrMenu", CacheGraphics -> False}, ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}, 
       Graphics3DBoxOptions -> {
        Axes -> False, DefaultBaseStyle -> {"Graphics3DNoFontsOrMenu"}, 
         ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}], 
      Cell[
       StyleData["GraphicsEmbeddedCaption"], LineIndent -> 0, FontFamily -> 
       "Source Sans Pro", FontSize -> 14], 
      Cell[
       StyleData["SummaryPanel"], FontFamily :> 
       CurrentValue["PanelFontFamily"], FontSize :> 0.8 Inherited, FontWeight -> 
       "Plain", FontSlant -> "Plain", FontColor :> 
       CurrentValue[{"SystemColors", "DialogText"}], 
       TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
           
           FrameBox[#, FrameStyle -> GrayLevel[0.5], Background -> 
            GrayLevel[0.969], FrameMargins -> 7, RoundingRadius -> 3, 
            BaselinePosition -> Baseline], Active -> False, Alignment -> Left,
            Appearance -> None, BaseStyle -> {Deployed -> False}, 
           DefaultBaseStyle -> {"Pane", Background -> None}, BaselinePosition -> 
           Baseline]& ), Tooltip -> None}, 
       GraphicsBoxOptions -> {
        Axes -> False, 
         DefaultBaseStyle -> {
          "GraphicsNoFontsOrMenu", CacheGraphics -> False}, ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}, 
       Graphics3DBoxOptions -> {
        Axes -> False, DefaultBaseStyle -> {"Graphics3DNoFontsOrMenu"}, 
         ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}], 
      Cell[
       StyleData["Graphics"], MenuSortingValue -> None], 
      Cell[
       StyleData["Graphics3D"], MenuSortingValue -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["StandardForm"], LineSpacing -> {1.25, 0, 2}, FontFamily -> 
          "Source Sans Code"], 
         Cell[
          StyleData["StandardForm", "Printout"], LineSpacing -> {1.25, 0, 2}, 
          FontFamily -> "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["OutputForm"], LineSpacing -> {0.6, 1}, FontFamily -> 
          "Source Sans Code"], 
         Cell[
          StyleData["OutputForm", "Printout"], LineSpacing -> {0.6, 1}, 
          FontFamily -> "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputForm"], FontFamily -> "Source Sans Code"], 
         Cell[
          StyleData["InputForm", "Printout"], FontFamily -> 
          "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["FormattedFunction"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]]], 
         Cell[
          StyleData["FormattedFunction", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Link"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {#}]]& ), ButtonNote -> 
            ButtonData, Evaluator -> None, ImageSize -> Full, Method -> 
            "Preemptive"}], 
         Cell[
          StyleData["Link", "Printout"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {#}]]& ), ButtonNote -> 
            ButtonData, Evaluator -> None, ImageSize -> Full, Method -> 
            "Preemptive"}]}, Open]], 
      Cell[
       StyleData[
       "CaptionFunctionLink", StyleDefinitions -> StyleData["Link"]], 
       FontFamily -> "Source Sans Pro", FontSize -> 14, FontColor -> 
       GrayLevel[0]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["DetailsLink"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           ButtonFunction :> (
             Function[$CellContext`t, 
              NotebookFind[$CellContext`t, "Notes", All, CellStyle]; 
              NotebookFind[$CellContext`t, "NotesSection", All, CellStyle, 
                AutoScroll -> Top]][
              Documentation`HelpLookup["ref/" <> #]]& ), ButtonSource -> 
            ButtonContents, Evaluator -> Automatic}], 
         Cell[
          StyleData["DetailsLink", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["LinkAlt"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["LinkAlt", "Printout"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Hyperlink"], MenuSortingValue -> None, FontColor -> 
          RGBColor[0.3, 0.35, 0.5]], 
         Cell[
          StyleData["Hyperlink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["FunctionLink", StyleDefinitions -> StyleData["Link"]], 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["FunctionLink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "FunctionHyperlink", StyleDefinitions -> StyleData["Link"]], 
          FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               
               NotebookLocate[#2, "OpenInNewWindow" -> 
                CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None,
             Method -> "Queued"}], 
         Cell[
          StyleData["FunctionHyperlink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ResourceFunctionlink", StyleDefinitions -> StyleData["Hyperlink"]],
           MenuSortingValue -> None, FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourceFunctionlink", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Crosslink"], 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               
               NotebookLocate[#2, "OpenInNewWindow" -> 
                CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None,
             Method -> "Queued"}], 
         Cell[
          StyleData["Crosslink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeLink"], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {
                Part[#, 1]}]]& ), ButtonNote -> ButtonData, Evaluator -> None,
             ImageSize -> Full, Method -> "Preemptive"}], 
         Cell[
          StyleData["CodeLink", "Printout"]]}, Open]], 
      Cell[
       StyleData["VocabularyLink"], FontColor -> GrayLevel[0], 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["InlineMath"], SpanMaxSize -> 0, CellID -> 644119144], 
      Cell[
       StyleData["InlineCode"], AutoSpacing -> True, SpanMaxSize -> 0, 
       FontColor -> GrayLevel[0]], 
      Cell[
       StyleData["InlineCodeText"], SpanMaxSize -> 0, FontFamily -> 
       "Source Sans Pro", FontSize -> 0.94 Inherited], 
      Cell[
       StyleData["InlineFormula"]], 
      Cell[
       StyleData["NoLabel"], 
       GeneratedCellStyles -> {"Output" -> "ExerciseOutput"}, ShowCellLabel -> 
       False], 
      Cell[
       StyleData["MenuName"], FontFamily -> "Verdana", FontWeight -> "Bold", 
       FontColor -> GrayLevel[0.286275]], 
      Cell[
       StyleData["DialogElementName"], 
       CellChangeTimes -> {3.642251807158844*^9, 3.8358753610849867`*^9, 
        3.835875471581566*^9}, FontFamily -> "Source Sans Pro SemiBold", 
       FontSize -> 0.95 Inherited, FontWeight -> "Regular"], 
      Cell[
       StyleData["KeyEvent"], CellFrame -> {{0.5, 0.5}, {0.5, 0.5}}, 
       CellFrameMargins -> {{2, 2}, {2, 2}}, CellFrameColor -> GrayLevel[0.7],
        FontFamily -> "Verdana", FontColor -> GrayLevel[0.4]], 
      Cell[
       StyleData["KeyEventDelimiter"], FontColor -> GrayLevel[0.5]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeVariable"], FontFamily -> "Times", FontSize -> 
          1.05 Inherited, FontWeight -> "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["CodeVariable", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeVariableLrg"], FontFamily -> "Times", FontSize -> 
          1.1 Inherited, FontWeight -> "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["CodeVariableLrg", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Key Styles", "Subsubsection"], 
         Cell[
          StyleData["Key0"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {"Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key1"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {2 -> GrayLevel[0.8352941176470589]}, 
                  "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key2"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key3"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #4, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589], 4 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Entity styles", "Subsubsection"], 
         Cell[
          StyleData["Entity"], ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Entity"], 
          AutoStyleOptions -> {"HighlightSyntaxErrors" -> False}, 
          ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontSize -> 0.85 Inherited, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    PaneBox[
                    StyleBox[#4, "EntityTypeLabel"], BaselinePosition -> 
                    Baseline, ContentPadding -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 1}], False -> 
                 PaneBox[#, 
                   BaseStyle -> {
                    FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                   BaselinePosition -> Baseline]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               Directive[
                 RGBColor[1., 0.504768, 0.], 
                 AbsoluteThickness[1]], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4, 
               BaseStyle -> {FontFamily -> "Courier"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}, 
              TooltipDelay -> 0.4]& ), Editable -> False, 
            InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontFamily -> "Source Sans Pro", 
                    FontWeight -> "Plain", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 1}], False -> 
                PaneBox[#, 
                  BaseStyle -> {
                   FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                  BaselinePosition -> Baseline]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {
                 FontWeight -> "Plain", "OperatorSubstitution" -> False}}]& ),
             Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFramelessHot"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 1}], False -> 
               PaneBox[#, BaseStyle -> {FontColor -> GrayLevel[0]}, 
                 BaselinePosition -> Baseline]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               RGBColor[1., 0.504768, 0.], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFramelessHot"], ShowStringCharacters -> False,
           TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], False -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   StyleBox[#, FontColor -> GrayLevel[0]]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityProperty"], ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Entity"], 
          AutoStyleOptions -> {"HighlightSyntaxErrors" -> False}, 
          ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               
               PaneBox[#, 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Helvetica", FontSize -> 0.85 Inherited, FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> Directive[
                 RGBColor[0.94227, 0.703639, 0.033387], 
                 AbsoluteThickness[1]], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4, 
               BaseStyle -> {FontFamily -> "Courier"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}, 
              TooltipDelay -> 0.4]& ), Editable -> False, 
            InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityPropertyClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneBox[
                GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], #}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Source Sans Pro", FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> 
               RGBColor[0.94227, 0.703639, 0.033387], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityValue"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              
              GridBox[{{#, #2}}, GridBoxAlignment -> {"Rows" -> {{Baseline}}},
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
               GridBoxSpacings -> {"Columns" -> {{0}}}, 
               BaselinePosition -> {1, 1}], Background -> 
              RGBColor[{0.9921568627450981, 0.9529411764705882, 
                0.8509803921568627}], BaselinePosition -> Baseline, 
              FrameMargins -> {{1, 1}, {1, 1}}, ImageMargins -> 2, FrameStyle -> 
              RGBColor[{0.9333333333333333, 0.8470588235294118, 
                0.5529411764705883}], RoundingRadius -> 5]& )}]}, Open]]}, 
     Open]], 
   Cell[
    CellGroupData[{
      Cell["Template Boxes", "Section"], 
      Cell[
       StyleData["BannerTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (TagBox[
           GridBox[{{
              Slot["label"], 
              Slot["previous"], 
              TemplateBox[{10}, "Spacer1"], 
              Slot["next"], 
              TemplateBox[{10}, "Spacer1"], 
              Slot["menu"]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left, Right}}, "Rows" -> {{Center}}}, AutoDelete -> 
            False, GridBoxFrame -> {"Columns" -> None, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], 
           "Grid"]& )}], 
      Cell[
       StyleData["BannerHeadingTitleTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (PanelBox[
           TagBox[
            GridBox[{{
               StyleBox[
                Slot["heading"], "BannerHeading", StripOnInput -> False]}, {
               Slot["title"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
             DefaultBaseStyle -> "Column", 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{0.2}}}], "Column"], 
           Appearance -> None, ContentPadding -> False, BaseStyle -> "Banner",
            FrameMargins -> {{18, 20}, {6, 6}}, 
           ImageSize -> {Full, Automatic}]& )}], 
      Cell[
       StyleData["BannerButtonTemplate"], 
       LightDarkAutoColorRules -> <|"MarkedColors" -> True|>, 
       TemplateBoxOptions -> {DisplayFunction :> (ButtonBox[
           
           PanelBox[#, ContentPadding -> False, 
            FrameMargins -> {{10, 10}, {7, 7}}, Appearance -> None, BaseStyle -> 
            Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {
               Background -> 
                RGBColor[
                 0.08808648687787803, 0.3397116701677621, 
                  0.5610151372105242]}, "Banner"], Evaluator -> "System"]], 
           ButtonFunction -> #2, Appearance -> None, 
           FrameMargins -> {{0, 0}, {-1, -1}}, Enabled -> True, Evaluator -> 
           Automatic, Method -> "Preemptive"]& )}], 
      Cell[
       StyleData["BannerLeftArrowTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
            CapForm["Round"], 
            JoinForm["Round"], 
            Thickness[0.1], 
            GrayLevel[1], 
            LineBox[{{25, 180}, {-25, 0}, {25, -180}}]}, {
           Method -> {"ShrinkWrap" -> True}, ImageSize -> 12, 
            PlotRange -> {{-75, 100}, {-275, 400}}, AspectRatio -> 1}]& )}], 
      Cell[
       StyleData["BannerRightArrowTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
            CapForm["Round"], 
            JoinForm["Round"], 
            Thickness[0.1], 
            GrayLevel[1], 
            LineBox[{{-25, -180}, {25, 0}, {-25, 180}}]}, {
           Method -> {"ShrinkWrap" -> True}, ImageSize -> 12, 
            PlotRange -> {{-75, 100}, {-275, 400}}, AspectRatio -> 1}]& )}], 
      Cell[
       StyleData["PrettyTooltipTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[#, 
           FrameBox[
            
            StyleBox[#2, FontFamily -> "Source Sans Pro", FontColor -> 
             RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> 
             "Plain", FontTracking -> "Plain", StripOnInput -> False], 
            Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> 
            RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, 
            StripOnInput -> False], TooltipDelay -> 0.1, 
           TooltipStyle -> {Background -> None, CellFrame -> 0}]& )}], 
      Cell[
       StyleData["BannerMenuTemplate"], 
       LightDarkAutoColorRules -> <|"MarkedColors" -> True|>, 
       TemplateBoxOptions -> {DisplayFunction :> (ActionMenuBox[
           TagBox[
            PanelBox[
             GraphicsBox[{
               CapForm["Round"], 
               GrayLevel[1], 
               AbsoluteThickness[3.2], 
               LineBox[{{0, 0}, {2, 0}}], 
               LineBox[{{0, 1}, {2, 1}}], 
               LineBox[{{0, 2}, {2, 2}}]}, ImageSize -> {27, Automatic}, 
              AspectRatio -> 0.62], ContentPadding -> False, 
             FrameMargins -> {{10, 10}, {7, 7}}, Appearance -> None, 
             BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue["MouseOver"], {
                Background -> 
                 RGBColor[
                  0.08808648687787803, 0.3397116701677621, 
                   0.5610151372105242]}, "Banner"], Evaluator -> "System"]], 
            MouseAppearanceTag["LinkHand"]], #, Appearance -> None]& )}], 
      Cell[
       StyleData["BannerCitationOpenerTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (ButtonBox[
           TagBox[
            GridBox[{{
               Slot["label"], 
               PaneSelectorBox[{True -> GraphicsBox[{
                    CapForm["Round"], 
                    JoinForm["Round"], 
                    Thickness[0.18], 
                    GrayLevel[0.7], 
                    LineBox[{{-180, 25}, {0, -25}, {180, 25}}]}, {
                   Method -> {"ShrinkWrap" -> True}, ImageSize -> 11, 
                    PlotRange -> {{-275, 400}, {-75, 100}}, AspectRatio -> 
                    1}], False -> GraphicsBox[{
                    CapForm["Round"], 
                    JoinForm["Round"], 
                    Thickness[0.18], 
                    GrayLevel[0.7], 
                    LineBox[{{-25, -180}, {25, 0}, {-25, 180}}]}, {
                   Method -> {"ShrinkWrap" -> True}, ImageSize -> 8, 
                    PlotRange -> {{-75, 100}, {-475, 200}}, AspectRatio -> 
                    1}]}, 
                Dynamic[
                 CurrentValue[
                  EvaluationNotebook[], {
                  TaggingRules, "eTextbook", "CitationOpener"}]]]}}, 
             GridBoxAlignment -> {"Rows" -> {{Baseline}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           ButtonFunction :> (CurrentValue[
              EvaluationNotebook[], {
              TaggingRules, "eTextbook", "CitationOpener"}] = Not[
              TrueQ[
               CurrentValue[
                EvaluationNotebook[], {
                TaggingRules, "eTextbook", "CitationOpener"}]]]), Appearance -> 
           None, Evaluator -> Automatic, Method -> "Preemptive", BaseStyle -> 
           "BannerCitationOpenerLabel"]& )}], 
      Cell[
       StyleData["CitationClickToCopy2"], 
       TemplateBoxOptions -> {DisplayFunction -> (TagBox[
           DynamicModuleBox[{Typeset`boxobj$$, Typeset`cellobj$$}, 
            TagBox[
             TagBox[
              ButtonBox[
               
               TagBox[#, BoxForm`Undeploy, 
                DefaultBaseStyle -> {Deployed -> False}], ButtonFunction :> 
               FrontEndExecute[{
                  CopyToClipboard[
                   Cell[
                    TextData[#2], "Text", 
                    LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, 
                    DefaultFormatType -> DefaultTextFormatType, 
                    TextClipboardType -> "PlainText", StripStyleOnPaste -> 
                    True, PageBreakWithin -> False, GroupPageBreakWithin -> 
                    False, LanguageCategory -> None, 
                    HyphenationOptions -> {"HyphenationCharacter" -> ""}]], 
                  NotebookDelete[Typeset`cellobj$$], 
                  FrontEnd`AttachCell[Typeset`boxobj$$, 
                   Cell[
                    BoxData[
                    TemplateBox[{"Copied"}, "ClickToCopyTooltip"]]], {
                   1, {Center, Bottom}}, {Center, Top}, 
                   "ClosingActions" -> {"ParentChanged", "MouseExit"}]}], 
               Evaluator -> None, 
               Appearance -> {
                "Default" -> None, "Hover" -> 
                 FrontEnd`FileName[{"Typeset", "ClickToCopy"}, "Hover.9.png"],
                  "Pressed" -> 
                 FrontEnd`FileName[{"Typeset", "ClickToCopy"}, 
                   "Pressed.9.png"]}, BaseStyle -> {}, DefaultBaseStyle -> {},
                BaselinePosition -> Baseline, FrameMargins -> 2, Method -> 
               "Preemptive"], 
              
              EventHandlerTag[{
               "MouseEntered" :> (Typeset`cellobj$$ = MathLink`CallFrontEnd[
                   FrontEnd`AttachCell[Typeset`boxobj$$, 
                    Cell[
                    BoxData[
                    TemplateBox[{"Copy"}, "ClickToCopyTooltip"]]], {
                    1, {Center, Bottom}}, {Center, Top}, 
                    "ClosingActions" -> {"ParentChanged"}]]), "MouseExited" :> 
                NotebookDelete[Typeset`cellobj$$], PassEventsDown -> True, 
                Method -> "Preemptive", PassEventsUp -> True}]], 
             MouseAppearanceTag["LinkHand"]], 
            Initialization :> (Typeset`boxobj$$ = EvaluationBox[]), 
            DynamicModuleValues :> {}, 
            UnsavedVariables :> {Typeset`boxobj$$, Typeset`cellobj$$}, 
            BaseStyle -> {Editable -> False}], Deploy, DefaultBaseStyle -> 
           "Deploy"]& ), 
         InterpretationFunction -> (RowBox[{"ClickToCopy", "[", 
            RowBox[{#, ",", #2}], "]"}]& ), Tooltip -> None}], 
      Cell[
       StyleData["BannerPreReleaseTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (TagBox[
           GridBox[{{
              PanelBox[
               StyleBox[
                Slot["author"], FontWeight -> "SemiBold"], BaseStyle -> 
               "BannerPreReleaseLabel", Appearance -> None, ContentPadding -> 
               False, FrameMargins -> {{18, 20}, {6, 6}}, 
               ImageSize -> {Full, Automatic}], 
              TemplateBox[{"Provide Feedback \[RightGuillemet]", {
                 URL[
                  Slot["url"]], None}, 
                Slot["url"], "BannerPreReleaseLabel", {"HyperlinkActive"}, {
                Appearance -> None}}, "HyperlinkTemplate"]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left, Right}}, "Rows" -> {{Center}}}, AutoDelete -> 
            False, GridBoxFrame -> {"Columns" -> None, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], 
           "Grid"]& )}]}, Open]]}, Visible -> False, FrontEndVersion -> 
  "14.3 for Mac OS X ARM (64-bit) (July 1, 2025)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
ETextbookTools`CreateNotebookCollection`Private`FileChangeProtection -> None,
ExpressionUUID->"103d20c1-3651-49f3-9163-b7bae15abe50"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[651, 23, 229, 7, 108, "Section",ExpressionUUID->"c06df75d-b015-481b-9997-21ea9ccefd7c",
 CounterAssignments->{{"Section", 4}},
 CellID->2142152068],
Cell[883, 32, 890, 14, 36, "Text",ExpressionUUID->"fa886f88-a54d-44f7-8f63-32cfdbca0ede",
 CellID->40678697],
Cell[1776, 48, 1094, 17, 83, "Text",ExpressionUUID->"0db77fcf-a184-46dd-a60b-2c5c76d750a2",
 CellID->1148597400],
Cell[2873, 67, 730, 11, 60, "Text",ExpressionUUID->"c97a9209-7107-4506-8ed1-d24554b3651b",
 CellID->12387892],
Cell[3606, 80, 767, 16, 60, "Text",ExpressionUUID->"9a657cf7-990a-4595-9c80-6eec15dceeaf",
 CellID->451226098],
Cell[CellGroupData[{
Cell[4398, 100, 356, 5, 56, "Subsection",ExpressionUUID->"33a6ebcd-c7c9-48ad-bfc2-79a0c3c98b3c",
 CellID->800359348],
Cell[4757, 107, 311, 7, 36, "Text",ExpressionUUID->"25967bd9-6bcf-4799-b6fa-51ea1b2d5d60",
 CellID->197621127],
Cell[5071, 116, 187, 4, 32, "DisplayFormula",ExpressionUUID->"5792dcf4-b8b9-423b-8906-b16de54820b3",
 CellID->435071999],
Cell[5261, 122, 188, 4, 32, "DisplayFormula",ExpressionUUID->"cb0fe7e1-9d1b-497f-8473-3aef1d18568f",
 CellID->2110160488],
Cell[5452, 128, 188, 4, 32, "DisplayFormula",ExpressionUUID->"5d4f3557-5dc4-4c28-adb8-82b5eef40736",
 CellID->1922375258],
Cell[5643, 134, 149, 2, 32, "DisplayFormula",ExpressionUUID->"d0a689e9-04e6-49e2-9ec0-532a8f636227",
 CellID->469492091],
Cell[5795, 138, 449, 12, 36, "Text",ExpressionUUID->"6f1e9455-59f0-45c7-acf6-a637aa4fa4f5",
 CellID->597242648],
Cell[6247, 152, 268, 7, 36, "Text",ExpressionUUID->"aee3608a-f475-4d78-bdca-0d57953ca970",
 CellID->43927123],
Cell[6518, 161, 763, 24, 36, "Text",ExpressionUUID->"0da2a915-58fe-46bb-afe6-15f3841c5bb4",
 CellID->463792733],
Cell[7284, 187, 313, 10, 36, "Text",ExpressionUUID->"dcfc3c51-18dc-4694-9788-c32dcb494e95",
 CellID->94824104],
Cell[7600, 199, 458, 8, 36, "Text",ExpressionUUID->"098feea2-5321-4d54-9de9-3219c7aff277",
 CellID->303984893],
Cell[8061, 209, 279, 7, 36, "Text",ExpressionUUID->"259e9cc1-4629-4786-a1c8-d0e2ee2d0c53",
 CellID->335952528],
Cell[8343, 218, 434, 9, 32, "DisplayFormula",ExpressionUUID->"4bd11a1a-a112-459b-92a1-fd1af2b62f3e",
 CellID->1049468855],
Cell[8780, 229, 265, 7, 36, "Text",ExpressionUUID->"9a6e04e9-c491-46b1-a14a-423031b01806",
 CellID->128266830]
}, Open  ]],
Cell[CellGroupData[{
Cell[9082, 241, 397, 5, 56, "Subsection",ExpressionUUID->"08216369-287c-4257-b8d2-e286fe21ca43",
 CellID->1949480675],
Cell[9482, 248, 450, 11, 59, "Text",ExpressionUUID->"1261ff9e-9487-4d2d-8937-25094f9e9674",
 CellID->45712726],
Cell[9935, 261, 197, 5, 32, "DisplayFormula",ExpressionUUID->"87714476-c4a0-40f6-87e4-b85123c07a51",
 CellID->518719415],
Cell[10135, 268, 198, 5, 32, "DisplayFormula",ExpressionUUID->"5c49bf60-aa3a-4221-8e34-5ed4fd88a427",
 CellID->1108138347],
Cell[10336, 275, 198, 5, 32, "DisplayFormula",ExpressionUUID->"524577de-0b94-4210-9868-10a78a1445af",
 CellID->1503011245],
Cell[10537, 282, 245, 7, 32, "DisplayFormula",ExpressionUUID->"bb771b77-3f28-4b9d-b864-fec8203bbd17",
 CellID->259855054],
Cell[10785, 291, 246, 7, 32, "DisplayFormula",ExpressionUUID->"0818d71f-9f5e-44ad-9fba-9a50f06d7fc7",
 CellID->1549638227],
Cell[11034, 300, 196, 5, 32, "DisplayFormula",ExpressionUUID->"af2c5358-6c69-491a-b998-5963280357c0",
 CellID->88010373],
Cell[11233, 307, 572, 15, 59, "Text",ExpressionUUID->"5e126fe0-64db-4443-8fe1-b3d1a2677520",
 CellID->193745085],
Cell[11808, 324, 209, 5, 32, "DisplayFormula",ExpressionUUID->"0c1ae4e3-89ec-4e82-8dfe-003d42e06c66",
 CellID->615951069],
Cell[12020, 331, 775, 24, 36, "Text",ExpressionUUID->"d2e741c3-1c0f-4111-a995-a2064a3f827f",
 CellID->642247349],
Cell[12798, 357, 268, 7, 36, "Text",ExpressionUUID->"4c80e0b5-83f5-44da-9218-325d68b4ba76",
 CellID->667615574],
Cell[13069, 366, 376, 8, 32, "DisplayFormula",ExpressionUUID->"c9e3c6e6-2ee8-4255-9674-ce78087d3f15",
 CellID->1676086281],
Cell[13448, 376, 417, 7, 59, "Text",ExpressionUUID->"5b7004cf-a156-431f-ac8a-8d4641afb0fd",
 CellID->1856760],
Cell[13868, 385, 306, 7, 36, "Text",ExpressionUUID->"735ceb22-f168-4dcd-8919-ee66c0747b39",
 CellID->685828349],
Cell[14177, 394, 186, 4, 32, "DisplayFormula",ExpressionUUID->"0d190374-11ee-42d2-88c1-5db671749c3a",
 CellID->832924891],
Cell[14366, 400, 187, 4, 32, "DisplayFormula",ExpressionUUID->"3c02e051-82db-4fee-8153-9631a6d2590a",
 CellID->1670231891]
}, Open  ]],
Cell[CellGroupData[{
Cell[14590, 409, 458, 6, 56, "Subsection",ExpressionUUID->"0446231f-78cc-45e9-bd15-9b21982edc94",
 CellID->629334821],
Cell[CellGroupData[{
Cell[15073, 419, 275, 7, 34, "Item",ExpressionUUID->"6d345426-6e24-4a89-a339-66446bf07d32",
 CellID->76513514],
Cell[15351, 428, 481, 6, 34, "Item",ExpressionUUID->"90a66f15-14f6-4b09-9e8e-ebd6c9b3e309",
 CellID->238749029]
}, Open  ]],
Cell[15847, 437, 292, 7, 36, "Text",ExpressionUUID->"17a54bd3-bb7c-490c-86c5-45f2ddc26519",
 CellID->303076523],
Cell[16142, 446, 505, 6, 36, "Text",ExpressionUUID->"9c30d728-52e2-4ce5-899d-21f989daf233",
 CellID->140310891],
Cell[16650, 454, 202, 3, 36, "Text",ExpressionUUID->"31df535b-f048-43c5-a17f-38363a10932e",
 CellID->97974074],
Cell[16855, 459, 188, 4, 32, "DisplayFormula",ExpressionUUID->"5a6553f8-1d15-459a-918a-987a535f6773",
 CellID->1652054000],
Cell[17046, 465, 162, 2, 36, "Text",ExpressionUUID->"ea8360b8-7177-4b90-8235-57bb00b943b9",
 CellID->68122139],
Cell[17211, 469, 656, 19, 36, "Text",ExpressionUUID->"e6c19e9e-0b15-4eb6-8b6d-07e0bd3e6bf1",
 CellID->246273025],
Cell[17870, 490, 293, 5, 36, "Text",ExpressionUUID->"73e682fe-9af0-49e0-bc67-d46117054d67",
 CellID->697877667],
Cell[18166, 497, 400, 11, 32, "DisplayFormula",ExpressionUUID->"568683a1-71ff-424d-b9d1-e108135f1cfd",
 CellID->1172540918],
Cell[18569, 510, 715, 11, 36, "Text",ExpressionUUID->"c4fbefb7-c351-4fd8-b34b-90817a6c9722",
 CellID->85886160],
Cell[19287, 523, 187, 2, 36, "Text",ExpressionUUID->"761a0ef1-d151-4354-947d-fefa3a6512eb",
 CellID->215296008]
}, Open  ]],
Cell[CellGroupData[{
Cell[19511, 530, 684, 9, 56, "Subsection",ExpressionUUID->"fce1b17d-1dfd-4f76-83b6-bfd737d90eb5",
 CellID->194496752],
Cell[20198, 541, 361, 7, 59, "Text",ExpressionUUID->"3e9b7df0-c7c8-48be-83fa-5c59a3d176d0",
 CellID->223390620],
Cell[20562, 550, 504, 8, 59, "Text",ExpressionUUID->"1c75a098-a9c3-49fd-8725-2ae9f920676b",
 CellID->65317823],
Cell[21069, 560, 284, 7, 36, "Text",ExpressionUUID->"4755dbc3-ffea-4c85-9587-8e22df7c73ed",
 CellID->118461554],
Cell[21356, 569, 229, 6, 32, "DisplayFormula",ExpressionUUID->"cdef8066-af1c-4333-acdb-99283081efde",
 CellID->733735261],
Cell[21588, 577, 265, 7, 36, "Text",ExpressionUUID->"29b6cead-b066-404d-a373-edaa33a66805",
 CellID->42576146],
Cell[21856, 586, 710, 20, 59, "Text",ExpressionUUID->"9537d1a3-f772-4378-8a5b-34027df5af75",
 CellID->676180313],
Cell[22569, 608, 749, 19, 59, "Text",ExpressionUUID->"9e3e10fb-f424-47f5-918a-87c3f80e054a",
 CellID->260933445],
Cell[23321, 629, 276, 7, 33, "DisplayFormula",ExpressionUUID->"d79d0c66-4e63-4a60-9403-a4c4ee788627",
 CellID->1270248350],
Cell[23600, 638, 304, 4, 36, "Text",ExpressionUUID->"3ec4be32-4696-48ed-9728-21b390c065d4",
 CellID->316067839],
Cell[23907, 644, 209, 5, 32, "DisplayFormula",ExpressionUUID->"33489dd8-d25d-4b72-8f58-4b3af247c162",
 CellID->323409585],
Cell[24119, 651, 186, 4, 32, "DisplayFormula",ExpressionUUID->"ec0e1253-777c-4e46-99fc-eaadd782b078",
 CellID->263784538],
Cell[24308, 657, 187, 4, 32, "DisplayFormula",ExpressionUUID->"a41572a2-21bb-4a76-9b99-a3b9df7d54a3",
 CellID->1020482758],
Cell[24498, 663, 281, 7, 36, "Text",ExpressionUUID->"5c108c07-533e-44f4-a43b-ecc149ba2c72",
 CellID->510889270],
Cell[24782, 672, 413, 13, 32, "DisplayFormula",ExpressionUUID->"59377c4a-67e0-40d0-9fff-19eb16c08fc9",
 CellID->1971949273],
Cell[25198, 687, 312, 4, 36, "Text",ExpressionUUID->"7b4f6dc4-6f7b-421f-8af0-e07884ef1719",
 CellID->360199197],
Cell[25513, 693, 518, 15, 37, "Text",ExpressionUUID->"f2cf3e5a-2d6d-47e9-acf5-414acded93a3",
 CellID->771897547],
Cell[26034, 710, 408, 13, 32, "DisplayFormula",ExpressionUUID->"089a5973-1322-4f25-bbf8-e32bfcea78f3",
 CellID->1508587513],
Cell[26445, 725, 420, 9, 59, "Text",ExpressionUUID->"a6641155-6d58-495e-965e-fe64a85076aa",
 CellID->713258099],
Cell[26868, 736, 222, 3, 34, "Item",ExpressionUUID->"8e7de82b-3659-4fc4-9343-e5d7dcdf2989",
 CellID->158255180],
Cell[27093, 741, 322, 8, 36, "Text",ExpressionUUID->"e00ecb30-8140-4246-8e62-639d5f278764",
 CellID->223805130],
Cell[27418, 751, 213, 5, 32, "DisplayFormula",ExpressionUUID->"7b070be7-9275-4a49-9569-109da2a3d801",
 CellID->1760440258],
Cell[27634, 758, 316, 9, 36, "Text",ExpressionUUID->"34f78925-218e-4ae1-a575-a98a52146852",
 CellID->472393042],
Cell[27953, 769, 225, 3, 36, "Text",ExpressionUUID->"b42374ec-dd16-4832-a137-41ddf9bb317d",
 CellID->839307520],
Cell[28181, 774, 278, 4, 34, "Item",ExpressionUUID->"77605d05-cc6e-410c-9df9-f450059584f7",
 CellID->14009893],
Cell[28462, 780, 531, 15, 37, "Text",ExpressionUUID->"8245ed59-0687-493d-831f-422a3dde6bdf",
 CellID->224792333],
Cell[28996, 797, 441, 14, 32, "DisplayFormula",ExpressionUUID->"2a4f1883-f6ce-4b16-a70e-d48ca4c7c90d",
 CellID->1898002816],
Cell[29440, 813, 511, 13, 36, "Text",ExpressionUUID->"e0abe340-f486-4d00-b452-6b8a05e069bb",
 CellID->642338280],
Cell[29954, 828, 284, 7, 36, "Text",ExpressionUUID->"63e0a77d-8955-46f8-aafd-062cc1939829",
 CellID->17963039],
Cell[30241, 837, 212, 6, 32, "DisplayFormula",ExpressionUUID->"45e15341-2117-4112-9319-98408e894f2b",
 CellID->71989125],
Cell[30456, 845, 185, 4, 32, "DisplayFormula",ExpressionUUID->"839b6e92-91e9-48ff-a1c8-c50e8dba3926",
 CellID->887930614],
Cell[30644, 851, 451, 13, 36, "Text",ExpressionUUID->"20760610-e2c0-4ebc-b9c8-fc996c706c95",
 CellID->662640990],
Cell[31098, 866, 503, 14, 37, "Text",ExpressionUUID->"db09c49e-6d83-4c96-a13d-0409305c795e",
 CellID->374337994]
}, Open  ]],
Cell[CellGroupData[{
Cell[31638, 885, 456, 6, 56, "Subsection",ExpressionUUID->"4fb891db-618c-44c0-9832-64ad3bd6d57c",
 CellID->1941370],
Cell[32097, 893, 594, 16, 36, "Text",ExpressionUUID->"c85c0eb4-a51e-49be-b8f2-3be68d84318e",
 CellID->1309441536],
Cell[32694, 911, 526, 13, 59, "Text",ExpressionUUID->"108c7386-d604-42c5-8924-71418981562f",
 CellID->332513718],
Cell[33223, 926, 270, 6, 32, "DisplayFormula",ExpressionUUID->"92aa4a0d-cb8e-4fba-9939-4452cd8addd1",
 CellID->1426165821],
Cell[33496, 934, 375, 9, 59, "Text",ExpressionUUID->"7d2d09fb-c04e-4e5b-9a9a-fae21b207cab",
 CellID->367215141],
Cell[33874, 945, 525, 7, 59, "Text",ExpressionUUID->"61a64dfd-b739-485c-a9cf-3edb87faf593",
 CellID->103602718],
Cell[34402, 954, 778, 24, 60, "Text",ExpressionUUID->"3ab0aaa8-6737-48d9-9375-1355a0628412",
 CellID->351599096],
Cell[35183, 980, 787, 23, 37, "Text",ExpressionUUID->"bb1fca43-6d15-4ada-8e04-010461270110",
 CellID->1288102891],
Cell[35973, 1005, 500, 14, 32, "DisplayFormula",ExpressionUUID->"07c97e38-9135-43a7-9483-a6f251c90376",
 CellID->2125295091],
Cell[36476, 1021, 272, 6, 32, "DisplayFormula",ExpressionUUID->"5e476217-2bb1-4907-882f-acb40d5b5ce6",
 CellID->720727238],
Cell[36751, 1029, 959, 23, 36, "Text",ExpressionUUID->"7f6a9a9b-af91-47d3-80e3-fe4f562b087c",
 CellID->58840619],
Cell[CellGroupData[{
Cell[37735, 1056, 2629, 62, 65, "Input",ExpressionUUID->"12d88276-d3ba-47eb-ac4a-06e5e3d8cb24",
 CellID->387904062],
Cell[40367, 1120, 1674, 37, 308, "Output",ExpressionUUID->"6bf245ec-7c4a-4e15-bff1-c8ab0d5b0611",
 CellID->2057685989]
}, {2}]],
Cell[42053, 1160, 311, 4, 36, "Text",ExpressionUUID->"d9c63cc4-2a5c-4a3d-9bdf-47ca8ee8890a",
 CellID->700883267],
Cell[CellGroupData[{
Cell[42389, 1168, 2069, 53, 46, "Input",ExpressionUUID->"d8ccfd07-ebc5-4786-bb40-89fffb1df57b",
 CellID->1010968390],
Cell[44461, 1223, 32220, 730, 224, "Output",ExpressionUUID->"9f458744-7bb8-4b82-b0bf-f1dff86d0509",
 CellID->117991358]
}, {2}]],
Cell[CellGroupData[{
Cell[76715, 1958, 110, 1, 69, "TechNoteSection",ExpressionUUID->"b1ce2be6-f62d-4a39-82d2-9a07c3182300",
 CellID->1259673378],
Cell[76828, 1961, 958, 30, 29, "SummaryList",ExpressionUUID->"da97b557-7d47-45d9-ae7b-99dae269fff4",
 CellID->147718829],
Cell[77789, 1993, 292, 4, 29, "SummaryList",ExpressionUUID->"01a63cb4-477c-4913-be41-cc7ca04baf8f",
 CellID->750532062],
Cell[78084, 1999, 760, 23, 29, "SummaryList",ExpressionUUID->"52c83c4f-cd40-4552-9359-c32576df7c9d",
 CellID->14297409],
Cell[78847, 2024, 441, 5, 29, "SummaryList",ExpressionUUID->"acc5e0b1-fefa-49af-aef9-f7229432aba2",
 CellID->153037322],
Cell[79291, 2031, 751, 23, 52, "SummaryList",ExpressionUUID->"dcd63a52-fb1c-4dcb-9fc4-d801111c8572",
 CellID->53269336]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[80081, 2059, 293, 6, 135, "SmallText",ExpressionUUID->"6d118a06-93b5-4dfc-8d9b-e07d5b2f5dd0",
 CellGroupingRules->"SectionGrouping"]
}
]
*)

(* NotebookSignature UQGNA2WlozxkolI2lmb59tkT *)
