(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 98949, 2493] NotebookOptionsPosition[ 92566, 2334] NotebookOutlinePosition[ 94530, 2393] CellTagsIndexPosition[ 94452, 2388] WindowTitle->Primorial | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellTags->"DefaultContent", CellID->279727361], Cell[TextData[{ "Compute the primorial ", Cell[BoxData[ StyleBox[ TagBox[ RowBox[{"23", "#"}], "ForceRasterization"], "MarkedForRasterization"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.838213237329423*^9, 3.8382132721147633`*^9}, 3.852826799559807*^9, {3.852827136061099*^9, 3.8528271360611362`*^9}, { 3.85954974574284*^9, 3.8595497489212027`*^9}}, CellID->393571408], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/1ba58f96-8745-419b-bb21-04c24efbf6e2/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Primorial"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Primorial"], BoxID -> "Primorial", Selectable->False], "[", "23", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.838213221919333*^9, 3.838213231771694*^9}}, CellLabel->"In[19]:=", CellID->878786336], Cell[BoxData["223092870"], "Output", TaggingRules->{}, CellChangeTimes->{3.8382132471136208`*^9}, CellLabel->"Out[19]=", CellID->853551234] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Compute a list of the first 15 primorials:", "Text", TaggingRules->{}, CellChangeTimes->{{3.838213205491308*^9, 3.8382132135686007`*^9}, { 3.8382132894174967`*^9, 3.838213290610783*^9}}, CellID->394823239], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/1ba58f96-8745-419b-bb21-04c24efbf6e2/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Primorial"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Primorial"], BoxID -> "Primorial", Selectable->False], "[", RowBox[{"Range", "[", "15", "]"}], "]"}]], "Input", TaggingRules->{}, CellID->627889596], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "6", ",", "6", ",", "30", ",", "30", ",", "210", ",", "210", ",", "210", ",", "210", ",", "2310", ",", "2310", ",", "30030", ",", "30030", ",", "30030"}], "}"}]], "Output", TaggingRules->{}, CellID->528737101] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->204653245], Cell["\<\ For non-positive numbers, the primorial is defined to be equal to 1:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{3.859549815630967*^9}, CellID->239880199], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/1ba58f96-8745-419b-bb21-04c24efbf6e2/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Primorial"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Primorial"], BoxID -> "Primorial", Selectable->False], "[", RowBox[{"-", "4"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.837685649947995*^9, 3.837685652705063*^9}}, CellID->853731541], Cell[BoxData["1"], "Output", TaggingRules->{}, CellChangeTimes->{3.837685652977495*^9}, CellID->553458589] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->232113220], Cell["Compare with the definition:", "Text", TaggingRules->{}, CellID->731096908], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"k", "=", "7"}], "}"}], ",", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"Prime", "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"PrimePi", "[", "k", "]"}]}], "}"}]}], "]"}], "\[Equal]", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/1ba58f96-8745-419b-bb21-04c24efbf6e2/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Primorial"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Primorial"], BoxID -> "Primorial", Selectable->False], "[", "k", "]"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->219626058], Cell[BoxData["True"], "Output", TaggingRules->{}, CellID->661045763] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[TextData[{ "The resource function ", Cell[BoxData[ ButtonBox["ChebyshevTheta", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ ChebyshevTheta/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ ChebyshevTheta/"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is the logarithm of the primorial:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.859549840016568*^9, 3.85954984001661*^9}}, CellID->575191782], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"k", "=", "7"}], "}"}], ",", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "k", "]"}], "]"}], "\[Equal]", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/1ba58f96-8745-419b-bb21-04c24efbf6e2/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Primorial"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Primorial"], BoxID -> "Primorial", Selectable->False], "[", "k", "]"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->154121207], Cell[BoxData["True"], "Output", TaggingRules->{}, CellID->661045764] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->461278909], Cell[TextData[{ "Evaluate the ", ButtonBox["infinite primorial", BaseStyle->"Hyperlink", ButtonData->{ URL["https://doi.org/10.1007/s00220-007-0350-z"], None}, ButtonNote->"https://doi.org/10.1007/s00220-007-0350-z"], ":" }], "Text", TaggingRules->{}, CellID->812166021], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Product", "[", RowBox[{ RowBox[{"Prime", "[", "k", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Regularization", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellID->624985202], Cell[BoxData[ RowBox[{"4", " ", SuperscriptBox["\[Pi]", "2"]}]], "Output", TaggingRules->{}, CellID->439858321] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/1ba58f96-8745-419b-bb21-04c24efbf6e2/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Primorial"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Primorial"], BoxID -> "Primorial", Selectable->False], "[", "\[Infinity]", "]"}]], "Input", TaggingRules->{}, CellID->368150137], Cell[BoxData[ RowBox[{"4", " ", SuperscriptBox["\[Pi]", "2"]}]], "Output", TaggingRules->{}, CellID->439858322] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["\<\ Compare the growth rate of the primorial to that of the factorial:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.837685686619939*^9, 3.837685697646296*^9}, { 3.859549849581889*^9, 3.8595498543322144`*^9}, {3.859556194555876*^9, 3.859556199724689*^9}}, CellID->230671479], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiscretePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/1ba58f96-8745-419b-bb21-04c24efbf6e2/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Primorial"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Primorial"], BoxID -> "Primorial", Selectable->False], "[", "n", "]"}], ",", RowBox[{"Factorial", "[", "n", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "50"}], "}"}], ",", RowBox[{"ScalingFunctions", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8376857012163343`*^9, 3.837685761905402*^9}}, CellID->968332860], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], TagBox[{{{ Directive[ Opacity[0.2], PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[{{{1., 0.}, {1., 0}}}, VertexColors -> None]}, { Directive[ Opacity[0.2], PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[{{{2., 0.6931471805599453}, {2., 0}}, {{3., 1.791759469228055}, {3., 0}}, {{4., 1.791759469228055}, { 4., 0}}, {{5., 3.4011973816621555`}, {5., 0}}, {{6., 3.4011973816621555`}, {6., 0}}, {{7., 5.3471075307174685`}, { 7., 0}}, {{8., 5.3471075307174685`}, {8., 0}}, {{9., 5.3471075307174685`}, {9., 0}}, {{10., 5.3471075307174685`}, { 10., 0}}, {{11., 7.745002803515839}, {11., 0}}, {{12., 7.745002803515839}, {12., 0}}, {{13., 10.309952160977376`}, { 13., 0}}, {{14., 10.309952160977376`}, {14., 0}}, {{15., 10.309952160977376`}, {15., 0}}, {{16., 10.309952160977376`}, { 16., 0}}, {{17., 13.143165505033592`}, {17., 0}}, {{18., 13.143165505033592`}, {18., 0}}, {{19., 16.087604484200032`}, { 19., 0}}, {{20., 16.087604484200032`}, {20., 0}}, {{21., 16.087604484200032`}, {21., 0}}, {{22., 16.087604484200032`}, { 22., 0}}, {{23., 19.22309870012918}, {23., 0}}, {{24., 19.22309870012918}, {24., 0}}, {{25., 19.22309870012918}, { 25., 0}}, {{26., 19.22309870012918}, {26., 0}}, {{27., 19.22309870012918}, {27., 0}}, {{28., 19.22309870012918}, { 28., 0}}, {{29., 22.590394530115656`}, {29., 0}}, {{30., 22.590394530115656`}, {30., 0}}, {{31., 26.0243817346008}, { 31., 0}}, {{32., 26.0243817346008}, {32., 0}}, {{33., 26.0243817346008}, {33., 0}}, {{34., 26.0243817346008}, { 34., 0}}, {{35., 26.0243817346008}, {35., 0}}, {{36., 26.0243817346008}, {36., 0}}, {{37., 29.635299647245027`}, { 37., 0}}, {{38., 29.635299647245027`}, {38., 0}}, {{39., 29.635299647245027`}, {39., 0}}, {{40., 29.635299647245027`}, { 40., 0}}, {{41., 33.348871713949336`}, {41., 0}}, {{42., 33.348871713949336`}, {42., 0}}, {{43., 37.1100718296429}, { 43., 0}}, {{44., 37.1100718296429}, {44., 0}}, {{45., 37.1100718296429}, {45., 0}}, {{46., 37.1100718296429}, { 46., 0}}, {{47., 40.960219431352954`}, {47., 0}}, {{48., 40.960219431352954`}, {48., 0}}, {{49., 40.960219431352954`}, { 49., 0}}, {{50., 40.960219431352954`}, {50., 0}}}, VertexColors -> None]}}}, Annotation[#, "Charting`Private`Tag$80003#1"]& ]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], TagBox[{{{ Directive[ Opacity[0.2], PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[{{{1., 0.}, {1., 0}}}, VertexColors -> None]}, { Directive[ Opacity[0.2], PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[{{{2., 0.6931471805599453}, {2., 0}}, {{3., 1.791759469228055}, {3., 0}}, {{4., 3.1780538303479458`}, { 4., 0}}, {{5., 4.787491742782046}, {5., 0}}, {{6., 6.579251212010101}, {6., 0}}, {{7., 8.525161361065415}, { 7., 0}}, {{8., 10.60460290274525}, {8., 0}}, {{9., 12.801827480081469`}, {9., 0}}, {{10., 15.104412573075516`}, { 10., 0}}, {{11., 17.502307845873887`}, {11., 0}}, {{12., 19.987214495661885`}, {12., 0}}, {{13., 22.552163853123425`}, { 13., 0}}, {{14., 25.19122118273868}, {14., 0}}, {{15., 27.89927138384089}, {15., 0}}, {{16., 30.671860106080672`}, { 16., 0}}, {{17., 33.50507345013689}, {17., 0}}, {{18., 36.39544520803305}, {18., 0}}, {{19., 39.339884187199495`}, { 19., 0}}, {{20., 42.335616460753485`}, {20., 0}}, {{21., 45.38013889847691}, {21., 0}}, {{22., 48.47118135183523}, { 22., 0}}, {{23., 51.60667556776438}, {23., 0}}, {{24., 54.78472939811232}, {24., 0}}, {{25., 58.00360522298052}, { 25., 0}}, {{26., 61.261701761002}, {26., 0}}, {{27., 64.55753862700634}, {27., 0}}, {{28., 67.88974313718154}, { 28., 0}}, {{29., 71.25703896716801}, {29., 0}}, {{30., 74.65823634883016}, {30., 0}}, {{31., 78.0922235533153}, { 31., 0}}, {{32., 81.55795945611504}, {32., 0}}, {{33., 85.05446701758152}, {33., 0}}, {{34., 88.58082754219768}, { 34., 0}}, {{35., 92.1361756036871}, {35., 0}}, {{36., 95.7196945421432}, {36., 0}}, {{37., 99.33061245478743}, { 37., 0}}, {{38., 102.96819861451381`}, {38., 0}}, {{39., 106.63176026064346`}, {39., 0}}, {{40., 110.32063971475739`}, { 40., 0}}, {{41., 114.0342117814617}, {41., 0}}, {{42., 117.77188139974507`}, {42., 0}}, {{43., 121.53308151543864`}, { 43., 0}}, {{44., 125.3172711493569}, {44., 0}}, {{45., 129.12393363912722`}, {45., 0}}, {{46., 132.95257503561632`}, { 46., 0}}, {{47., 136.80272263732635`}, {47., 0}}, {{48., 140.67392364823425`}, {48., 0}}, {{49., 144.5657439463449}, { 49., 0}}, {{50., 148.47776695177302`}, {50., 0}}}, VertexColors -> None]}}}, Annotation[#, "Charting`Private`Tag$80003#2"]& ]}}, { TagBox[{{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {{}, Null, PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwAmIQDQEf7BlQgcN7y1//nPSeQcU5HJgUtH5xr/4D5Qug 8UUcZl/j/rnMlNsBwpdA48s4PG4U0ihIFoXyFdD4Smh8FTS+mkOn7CXmR7/k oHwNNL6Ww83CrTyb5qlA+TpofD00vgEa39Bhu6DJXx9PLSjfCI1v7OA4P8o+ V8wAyjdB45ui8c3Q+OYO+6+K/JexNIbyLdD4lmh8KzS+NRrfBo1v69A8tU9C ZboZlG+Hxrd3eLdrwUNbNiso3wGV34DGZ3BEk0fjMzihyTs5PBPO+L9okS1U 3hmV34DGZ3BBk3dx2PGF58ryNQ5QeVdUfoOrQ6Vz3lWxPieovBsqvwGNz+CO Ju/u0BKUXvGiygUq74HKb0DjM3jC+QBv2seF "]], {}}}}, Annotation[#, "Charting`Private`Tag$80003#1"]& ], TagBox[{{ Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {{}, Null, PointBox[CompressedData[" 1:eJxVyVlIEwAcx/FtkRgZhZnkCN28smlrm261Q/dz9wq33Cw3s2vOhArLdWEN m+KCkJXVXFHLsGObjQ6CEgZFx0tFHhA+SvjQfIhmJrWSdeK/h/7w58/n/+U6 DliaWQwGQ/Rn/975+aRk/D+Yls79VPHj9E8Hi8ObWxxNkZfhe9l5d3j/Isw7 C6/aNQpn8XLySrxmjspW17LJqyB4s3Z2MoNL5mDJUKrrjLiInI/RZJh7+vIa ciFW1PT1HhHzycU47JMpL3qE5BKomePZsVQ5mYcRkTzY4JOQy6DiZb+bFUjJ fOjeKkOSuJwsQDc7L+1XtIoshEy8Thl6CrIIlsT456siFbkcXqnE2hlVkyvw 5NjH4194WrIYg64KZ+S+jixBmjkSNSsM5PXQ7vX2hIeN5A3I8pkWuJybyFJM NQ/nH2XUkGXwt7jbTg6YyHJMmzse3S3YTFYArHLfzLd/roTQdc56aKyWXIX3 Y/Yezm0LWQk09P+Ie61koJvjv/KwqW7eHmDjiKzJrd5CvRqxgEFfVrSVejVs 2ZM5Q+n11FWwtTxoX5oge1QIVBY+Kxm3UVfjRr0l+fWxnboamZcCz1sjDdQ1 uF56sNHr30Zdg4UDwVOCrkbqWiQyqzr3tG2nroU5lmDmOnZQ12EmGCo11e2k rsO1iTvqZMEu6noM5t7sONFP9uixz+GYupezm7oB9lvWl719ZI8BL1ozLrAz HdSNEOZ9mDCedeA3h+3EUg== "]], {}}}}, Annotation[#, "Charting`Private`Tag$80003#2"]& ]}}, {}, {}}, { DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {1, 0}, FrameTicks -> {{{{6.907755278982137, FormBox["1000", TraditionalForm], {0.01, 0.}}, {29.933606208922594`, FormBox[ TemplateBox[{"10", "13"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, { 52.95945713886305, FormBox[ TemplateBox[{"10", "23"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {75.9853080688035, FormBox[ TemplateBox[{"10", "33"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, { 99.01115899874397, FormBox[ TemplateBox[{"10", "43"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, { 122.03700992868443`, FormBox[ TemplateBox[{"10", "53"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, { 145.06286085862487`, FormBox[ TemplateBox[{"10", "63"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 41.44653167389282, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 64.47238260383328, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 87.49823353377374, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 110.52408446371419`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 133.54993539365464`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "MessagesHead" -> DiscretePlot, "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[1.6]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], Directive[ RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05]}, PlotRange -> {{1, 50}, {0, 148.47776695177302`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, {{6.907755278982137, FormBox["1000", TraditionalForm], {0.01, 0.}}, { 29.933606208922594`, FormBox[ TemplateBox[{"10", "13"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {52.95945713886305, FormBox[ TemplateBox[{"10", "23"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, { 75.9853080688035, FormBox[ TemplateBox[{"10", "33"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {99.01115899874397, FormBox[ TemplateBox[{"10", "43"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, { 122.03700992868443`, FormBox[ TemplateBox[{"10", "53"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, { 145.06286085862487`, FormBox[ TemplateBox[{"10", "63"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 41.44653167389282, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 64.47238260383328, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 87.49823353377374, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 110.52408446371419`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 133.54993539365464`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], FormBox[ FormBox[ TemplateBox[{"\"n#\"", "\"n!\""}, "PointLegend", 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[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 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]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", TemplateBox[<| "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", TemplateBox[<| "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"None", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"None", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], 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", TaggingRules->{}, CellChangeTimes->{{3.837685717431341*^9, 3.8376857624300327`*^9}}, CellID->102840784] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "Plot the differences between the factorial and the primorial up to ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->201723607], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Differences", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Log", "[", FractionBox[ RowBox[{"n", "!"}], RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["Primorial", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/1ba58f96-8745-419b-bb21-04c24efbf6e2/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "Primorial"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Primorial"], BoxID -> "Primorial", Selectable->False], "[", "n", "]"}]], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "100", ",", "1"}], "}"}]}], "]"}], "]"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", RowBox[{"Rule", "[", DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeEllipsis"]], "]"}], GridBox[{{ RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["56", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], Filling -> Axis, SelectWithContents->True, Selectable->False]}], "]"}]], "Input", TaggingRules->{}, CellID->746283470], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJztlYtPU2cYhytMUSuXOdeJ9YZMp1jZKCIisP5aoHItvVJkuOASohEMKmUY ccuRGJ0xJoLExGu8BRQEo4kKVi5jKXMuM0G0LovLtkAMaowkIBRF2Izvm6Vf 4n/Qk5yc/N7nPO93Tk6+84Z9U2Iu9JPJZD//d769vjsGNDLvA95xKl7EvRrX RQ7TfSECnwW/hRGv5A1jxGcLfC5KG+I1V89y34WQ+zfufHp4EuVFUNiuOa8U +VH+VPCX4LtTPbcU//hTfanAI1DnfKi4M3cy1VVYkJoVp6jnHEnPP4XyF4If hb1VRWsqFgRQXS3waFT1llboRpivxJWmkprIr6ZSjsFtV2K54ybnVYIfi1FV 9a664mlUX43og89HtB2c4/DbnIGnNSHTKa/BoT3+zX+t5xyP8PQj7rwLnBOE /ok47paP1sbIqf6lwDUout3c1tPCHOhufjD0u4eyBAwHtuwei5lBXAvXYLAl bxtlSUvfl7nOu7+kwwXtT66u0ECqJ8Ed+MOmUQNlKQmB29XxPZXMkwU/GSsS I63tj5mnCDwFSdaxVZP1QVTX4/wv576VOyhLehTrDrUGnWG+VvDXosxpTFjt YZ4Ke566afuiYPJTcVl56ca9DMqyNEzITBMFDuZpSLvYVL/4BPN0oX86ZnzU Wb71CfMMDI7fXFcZQPtEyoCxOOLXl6G8bzKx7ljjmY9VzDORpe9y9SUyzxL6 Z+GAuvDR8QLmBoEb8OzRZ3s+r2SeDeXs3v6qau6fTfuPuRFly2oOV1+lDCNq w9P/WNnJ9xu9+3cYEXfXebrrb/ZNcM6pOdnygn0TwrQb95eNs28SfBM09qF8 g/JDqpu9OcyY1zDmzo8lLpmRH3D2mDKFcocZM/s7OhvM7FuQoM7cF1RAGRYs M4TPStnCvkVY34JkacebqH3sW+n/w74VhSdr/SpOs28VfCvuFw5PW9rCvg3T z3m+1rvYt0Hf+mQzutm34Z6m+oNP/uTnt6Fg2/rXd/rZzxHePwchqijl3Qn2 c9CWv/jH+fKZ5OfAsamuLVtBWWbHVvdg54YwyrDjaHtduU1FWbKj99YbaXks +3Z4zgd836dlP1dYPxebHZ7rk+zs52L5PEXoxg3s59L/+f/s5fvmh29++OaH b3745gf5vvnxvvnxL9XJezc= "], {{{}, {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[{ PolygonBox[{{2, 4, 3}, {4, 6, 5}, {16, 18, 17}, {28, 30, 29}, {10, 12, 11}, {70, 72, 71}, {40, 42, 41}, {58, 60, 59}}], PolygonBox[{{12, 16, 15, 14, 13}, {66, 70, 69, 68, 67}, {18, 22, 21, 20, 19}, {6, 10, 9, 8, 7}, {96, 100, 99, 98, 97}, {36, 40, 39, 38, 37}, {42, 46, 45, 44, 43}, {78, 82, 81, 80, 79}}], PolygonBox[{{60, 66, 65, 64, 63, 62, 61}, {22, 28, 27, 26, 25, 24, 23}, {46, 52, 51, 50, 49, 48, 47}, {82, 88, 87, 86, 85, 84, 83}, { 72, 78, 77, 76, 75, 74, 73}, {52, 58, 57, 56, 55, 54, 53}, {30, 36, 35, 34, 33, 32, 31}}], PolygonBox[{{88, 96, 95, 94, 93, 92, 91, 90, 89}}]}]}, {}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99}]}}}], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0., 99.}, {0, 4.605170185988092}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellID->969124039] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Primorial | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "DefaultContent"->{ Cell[622, 23, 197, 8, 70, "Subsection",ExpressionUUID->"26c9402d-899a-4aee-85b6-7ff98bd03c28", CellTags->"DefaultContent", CellID->279727361]} } *) (*CellTagsIndex CellTagsIndex->{ {"DefaultContent", 94277, 2381} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[622, 23, 197, 8, 70, "Subsection",ExpressionUUID->"26c9402d-899a-4aee-85b6-7ff98bd03c28", CellTags->"DefaultContent", CellID->279727361], Cell[822, 33, 460, 14, 70, "Text",ExpressionUUID->"c280ea12-e8c3-476f-850f-54da85f285d2", CellID->393571408], Cell[CellGroupData[{ Cell[1307, 51, 7139, 179, 70, "Input",ExpressionUUID->"226fdb40-da61-466d-accf-dbf5a286cbd8", CellID->878786336], Cell[8449, 232, 143, 4, 70, "Output",ExpressionUUID->"60d8f8c1-cb9a-495d-b33d-e0a7b7953193", CellID->853551234] }, Open ]], Cell[CellGroupData[{ Cell[8629, 241, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"baa45e8b-c234-437c-9eb3-48d8ad1ed869", CellID->14107562], Cell[8775, 247, 216, 4, 70, "Text",ExpressionUUID->"67b23ab4-2a3b-488f-9971-d5106936f2a1", CellID->394823239], Cell[CellGroupData[{ Cell[9016, 255, 7081, 178, 70, "Input",ExpressionUUID->"99661301-66e5-4ae3-871e-a60cf0c73d85", CellID->627889596], Cell[16100, 435, 281, 7, 70, "Output",ExpressionUUID->"0d1c1def-965d-422b-b202-e5201836271a", CellID->528737101] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16442, 449, 159, 7, 70, "Subsection",ExpressionUUID->"5e2b7b00-15e0-40b9-84be-d893e4e3ce33", CellID->204653245], Cell[16604, 458, 173, 5, 70, "Text",ExpressionUUID->"5880b032-7517-412b-ada9-b06e03142e35", CellID->239880199], Cell[CellGroupData[{ Cell[16802, 467, 7132, 179, 70, "Input",ExpressionUUID->"792c8c65-c51f-4c79-94f8-4ab050e3fe5f", CellID->853731541], Cell[23937, 648, 109, 3, 70, "Output",ExpressionUUID->"d68c461f-b0d9-4a1a-a621-3236e0186b2f", CellID->553458589] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[24095, 657, 178, 7, 70, "Subsection",ExpressionUUID->"b4c9a739-0082-4350-9985-7dbc3d57b427", CellID->232113220], Cell[24276, 666, 83, 2, 70, "Text",ExpressionUUID->"e1745144-aa4e-473e-98a8-858edc0ba590", CellID->731096908], Cell[CellGroupData[{ Cell[24384, 672, 7944, 193, 70, "Input",ExpressionUUID->"bcf66739-4a4c-4146-9a89-dcc6159eeec7", CellID->219626058], Cell[32331, 867, 70, 2, 70, "Output",ExpressionUUID->"c8b2bd82-baf6-46be-ac74-df6a9a3a474a", CellID->661045763] }, Open ]], Cell[CellGroupData[{ Cell[32438, 874, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"67cf0c9e-4be0-4484-a011-248f3fe13bd3", CellID->14107563], Cell[32584, 880, 546, 16, 70, "Text",ExpressionUUID->"74b7ec5c-d539-4863-a3b5-9ac874efa0c9", CellID->575191782], Cell[CellGroupData[{ Cell[33155, 900, 7916, 193, 70, "Input",ExpressionUUID->"8e2f7e2e-bf6d-40ac-977a-a455c83a4b4a", CellID->154121207], Cell[41074, 1095, 70, 2, 70, "Output",ExpressionUUID->"816d4699-3c3d-44ce-9ffe-9c5f372832d9", CellID->661045764] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[41205, 1104, 167, 7, 70, "Subsection",ExpressionUUID->"9568d697-9ee5-4247-856c-d5e5784ef8a7", CellID->461278909], Cell[41375, 1113, 285, 10, 70, "Text",ExpressionUUID->"bb2941fe-83ea-40b6-982b-422ad043c111", CellID->812166021], Cell[CellGroupData[{ Cell[41685, 1127, 296, 9, 70, "Input",ExpressionUUID->"7e260319-9e9a-4f17-8624-fde4d37110ad", CellID->624985202], Cell[41984, 1138, 117, 4, 70, "Output",ExpressionUUID->"ba5eb4f9-df53-4baa-b037-6ce53c1c69ba", CellID->439858321] }, Open ]], Cell[CellGroupData[{ Cell[42138, 1147, 7058, 177, 70, "Input",ExpressionUUID->"a7cb0cc1-8ec4-4718-bc2c-0f1b2bb2b94f", CellID->368150137], Cell[49199, 1326, 117, 4, 70, "Output",ExpressionUUID->"89e6d744-d840-41e7-b942-e7df6a59a7f6", CellID->439858322] }, Open ]], Cell[CellGroupData[{ Cell[49353, 1335, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"f66d10e5-c2f8-4c33-afb2-25590c31e7e8", CellID->14107564], Cell[49499, 1341, 295, 7, 70, "Text",ExpressionUUID->"f92b3d01-b795-46d6-bb71-940827a66913", CellID->230671479], Cell[CellGroupData[{ Cell[49819, 1352, 8291, 200, 70, "Input",ExpressionUUID->"56046f75-b03e-49ea-82e5-067a86fd478b", CellID->968332860], Cell[58113, 1554, 20953, 449, 70, "Output",ExpressionUUID->"2c5a24da-0119-4187-b9e1-1c86378a822c", CellID->102840784] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79115, 2009, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"44ec1b45-b82a-48f6-86dc-b4d26cc91cce", CellID->14107565], Cell[79261, 2015, 233, 8, 70, "Text",ExpressionUUID->"3d333696-804f-49a6-b1d9-e9da160b0f65", CellID->201723607], Cell[CellGroupData[{ Cell[79519, 2027, 9299, 224, 70, "Input",ExpressionUUID->"7494a7e9-587e-4e11-a691-e0eb56c14e48", CellID->746283470], Cell[88821, 2253, 3705, 76, 70, "Output",ExpressionUUID->"f0743cea-3b5e-41dc-9394-f7e62183dff3", CellID->969124039] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)