(* 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[ 125122, 2913] NotebookOptionsPosition[ 118125, 2748] NotebookOutlinePosition[ 119889, 2800] CellTagsIndexPosition[ 119846, 2797] WindowTitle->SquareSpiralPoints | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(4)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Here are the points on the first four sides of the spiral:", "Text", TaggingRules->{}, CellChangeTimes->{{3.758294603410687*^9, 3.758294606202675*^9}, { 3.7583064174114933`*^9, 3.7583064332259207`*^9}, 3.758309304050318*^9, { 3.758309393776804*^9, 3.758309394247013*^9}}, CellID->13078159], 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["SquareSpiralPoints", "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["SquareSpiralPoints", "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/SquareSpiralPoints"}, "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], "SquareSpiralPoints"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SquareSpiralPoints"], BoxID -> "SquareSpiralPoints", Selectable->False], "[", "4", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758294572868843*^9, 3.758294589685771*^9}, { 3.758306108060484*^9, 3.7583061083655787`*^9}, 3.759008191839807*^9}, CellLabel->"In[29]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.758294583720296*^9, 3.7582945905008698`*^9}, 3.758306109400671*^9, 3.759008208355113*^9}, CellLabel->"Out[29]=", CellID->206095009] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1339538443], Cell["\<\ This shows the sequence of points in order on the first six sides:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758294807060244*^9, 3.7582948264117727`*^9}, { 3.7583094234073353`*^9, 3.7583094303261538`*^9}}, CellID->697960947], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"s", "=", 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["SquareSpiralPoints", "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["SquareSpiralPoints", "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/SquareSpiralPoints"}, "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], "SquareSpiralPoints"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SquareSpiralPoints"], BoxID -> "SquareSpiralPoints", Selectable->False], "[", "6", "]"}]}], "}"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Pink", ",", RowBox[{"PointSize", "[", ".03", "]"}], ",", RowBox[{"Point", "[", "s", "]"}]}], "}"}], ",", RowBox[{"Arrow", "@", RowBox[{"Partition", "[", RowBox[{"s", ",", "2", ",", "1"}], "]"}]}]}], "}"}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7582946129978724`*^9, 3.758294769246249*^9}, { 3.758309535829677*^9, 3.758309536530854*^9}, 3.759008191845257*^9}, CellLabel->"In[30]:=", CellID->1710216102], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0.5, 0.5], PointSize[0.03], PointBox[{{0, 0}, {0, 1}, {-1, 1}, {-1, 0}, {-1, -1}, {0, -1}, {1, -1}, { 1, 0}, {1, 1}, {1, 2}, {0, 2}, {-1, 2}, {-2, 2}}]}, ArrowBox[{{{0, 0}, {0, 1}}, {{0, 1}, {-1, 1}}, {{-1, 1}, {-1, 0}}, {{-1, 0}, {-1, -1}}, {{-1, -1}, {0, -1}}, {{0, -1}, {1, -1}}, {{1, -1}, {1, 0}}, {{1, 0}, {1, 1}}, {{1, 1}, {1, 2}}, {{1, 2}, {0, 2}}, {{0, 2}, {-1, 2}}, {{-1, 2}, {-2, 2}}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.75829467184791*^9, 3.7582946791628733`*^9}, { 3.758294719670157*^9, 3.7582947702423143`*^9}, 3.758306115459806*^9, { 3.758309537678234*^9, 3.7583095409134007`*^9}, 3.759008211489224*^9}, CellLabel->"Out[30]=", CellID->1355504434] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1551540000], Cell["Forty black sides with 20 red sides overlaid:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7582948913614197`*^9, 3.7582948958539753`*^9}, { 3.758403960906299*^9, 3.758403962286571*^9}, {3.758405931354084*^9, 3.7584059436661863`*^9}, {3.7675443150573053`*^9, 3.767544316411009*^9}}, CellID->1925797651], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "@", 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["SquareSpiralPoints", "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["SquareSpiralPoints", "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/SquareSpiralPoints"}, "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], "SquareSpiralPoints"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SquareSpiralPoints"], BoxID -> "SquareSpiralPoints", Selectable->False], "[", "40", "]"}]}], ",", "Red", ",", RowBox[{"Line", "@", 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["SquareSpiralPoints", "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["SquareSpiralPoints", "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/SquareSpiralPoints"}, "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], "SquareSpiralPoints"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SquareSpiralPoints"], BoxID -> "SquareSpiralPoints", Selectable->False], "[", "20", "]"}]}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758294852948044*^9, 3.758294882009931*^9}, { 3.7583061345745792`*^9, 3.7583061351011066`*^9}, {3.7583061709626017`*^9, 3.7583062164984818`*^9}, {3.758308720401732*^9, 3.758308724991219*^9}, { 3.759008191851617*^9, 3.7590081918525257`*^9}}, CellLabel->"In[31]:=", CellID->509996249], Cell[BoxData[ GraphicsBox[{LineBox[CompressedData[" 1:eJxd2H9sVfUZx/HbUjgHYbbsnnCP3Cvtve1wOnRdYGRTLvfxV2GRBEQjLE7B bTBkG1uMKPMHNujIwhRhOHFbZphmjEkibDPLnK33UZQE549OCanIZqODEca0 AmLF0m67z/ub9Bn/nLxuDt/zPJ/v93vO6Sl+/XsLltZnMplf12Uy/zv+/7/o a8m0Kds2zTT1V4Zr/96v1mF+r9px10x+rw5xHr93ZfzvlTr3/8I4u7rCuOG8 enfdYc5T6snIoKsnI/b/hqv0IpynDYzDeWqHnpmcpwOMMwoPMs4YV/cw9fZ2 hXFPun4yepo66/04lQY/Dn30hHFkwI8jg34c+ook9DGMQx92jMM45BGHccgj DuPoKGzjxTgjZ2H6rjRh+p45EdN3tYDpu1rCZ7hOiRyoV68ghzo37oRu6tHV 5DAad5FDhP9O32PxQeeMHsCf5jq9LqfjXfvxQa6zD7/HdV7HH3HscW6UrZz3 ARbG+Re266Tdh/AS6ngbt1Pnm86xvoHTmpv0FZx1juRs/HPqGIunU0cDrh06 z+m2+W7UZdRxEk+jjqPOsfbhSYzTx7yFOpjI6njcyToYPfK6mabyIOMI6+g9 3GInSJ9zLK9jW29N8gKOnCP2U6P8iDqoX5qoo9fNw+TyHryaOp7CbBh5zDmW jXgy113jnOCIeUlk0AKuxHjgjM2Drf+s1SHt3cdxQ53Nwz/xWubhoHOsf8WX kuse50SfwdPxbdR5nnMkk/Ax6vwU7qXODLY6v9B9wsbVhDoP4/XU+aZzrC/j K6mz6pwo+ekM50hDneRXTTH5Vce6utrLpxmX/NhvWSU/9nNwLK9g8pNnnRPZ idvxjdTZ7Bzp2biLOsO8rqbOY26ep5ffwldQ50v4Mep82jmW7fhq6tzinMg6 51TGM88V50guxCnznMftgzbPY3Ht0Dmr2+5nOTnCPB/CJ5nnN5xjfQ7fwTzv dE70l86p/hgvc87KAjyRPmY5R3IBnkofE/Ei+qjHlma52+4rOd1HHwfwUfrY 4xzr7/Eq+njUOdH1zinO6mKcsE6+4hxx/0z1s6yTc/F8q7sajay7s1z+gOv0 sk7ewsdYJy86x6zXnN7GOvmZcyL3OqfyXXyjc1Y78IEh6+Mi50jJW56yhc77 Sk6Wf2J9HMa105ZcVn4Vz623Pv6Ip9gDXh51jlnPOdlMHyudE7nOOZVZzgWc lR/gu6wPWewcyZV4wB4Ylc/h/o9tHU3AVuUc9kNe4lG2jv6G77M+dLdzrL/F z7OOHnROdJVzqtc7F/RSvM05J+uds7ISr6XPBc6RzMANNl+VSTg+bX3a/OVt 3fXN7n4HD9p8VffgNfT5hHOsG3CVPm9xTvQ651Qvdi7gnP7KOav34ltZh0ud I52Nj9j8Vc/HPTZ/1XHYqp5T/jfXTW3+Kq/h+1mHv3OOZTPewzpc5ZzIQudU vuxckDze5pzTdc5Z3rsKMoM+O5wjnYK/Q59jcO+A9XmYdVL7eetc3mfy8hB9 bsMv0ec651iW4UP02eGcyBTnVMY4F+TwkPmWmltwTm5yzsp8/PIZW6cV50gu wo98Yuv0XNz+ka3T8dj6vLr7VO20ZlneYOt0H55uDwDu48GxbsST6mydrnRO dK5zqhc4/3e/4AesDrW+muVO57zc7JyThc5Z7jstGnKY5hxJEYccGnHIwd5z mjXksB+HHOhbQw4bnGNdgUMOHc6JlpxTHRoa6YIewCEHc17vcM7pt5yzei22 50Yj71nBEc+ZFrXnyHA1j3tO2TqPce2wZEH5KHU+Yn1XXsD2nAnPleBYVmN7 zjTJAudEpjqHdR5ckD763sw6/DO+xzmv33bO6ULnrF6ObyWHzztHSt9yxCaa 94IW6fnQcjjMOrQcri0/i9PRlsPD+H5yWOkcs7+bpYMcJjsncmpopFN51bkg 2/Dj1LXGuYTzssE5x/M4OCvfxIODtg/mOUdyMR742PbBZ3D/CdsHTdjKWNRt y6Yoce0GGf4uKUqDfTjg76Xg8N2gKGvZB79xTvQnzqne7VzQ5fg51uU1ziWd hXfgu8jpp855ucc5x/0jOCvX4AFyKjtH/D1X0n5ymoD7yIlc1FbDIr47FLWJ nF7DMTk97Rzr4/g+cnrAOdHbnVO9ybmgV+HnyemLziVdwT7a4ZzXh5xzerdz eG6WdJ/lovOcI/0S3m65VIt4vuVSPQvXDku+Wj5BXYssl8pBPNVy4X07OJYn 8cPsoy3OiXQ6p3Kzc4H7T1H/YrnIJc4lacN/wHPI6RfOed6TgnPcf4KzyvqR jeR0iXOkrbiFnMZhOW45kYvUfu68nr9fi9JHTrvx98lph3N4jyrKn8jpTudE vuGcylXOBZmGD5JT3rkko5zbZAz7bLdzXp5wzskm5yzff9pkPPtssXMkHTi1 D6iVC3F7fy2nSoJrh62LuR+1ypHaDby/+g4+yT7b6xzrLnyafbbFOXwXCU51 qXOB95dWOWM56TTnkk5ybtM6/K5zUfbienLc6Zzn/hWc4/0nOMt7X5s2kONs 5/Adok1jcsziJnK0ZdiqtZ/7Fne/jQfI8UU8SI47nGPdhIfI8XbnRG9wTvVy 54Kej4fJsdG5pB8OjXQbLuo/8NHac7xZ9zrn9UnnHO8RwVll/em+2sJp1Buc I70Mb7c/RKvn4fnv13Lje2ub5bZrCd8PWnVR7cWpv7IfT7UPwPKMc8x361ad WHtPaJIfOieywjmVec4FmY7H1XJskXOcSzI0NNJt8i7+D9F0DbI= "]], {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJxdk7FrU1EUxm/S1HcjalLzkFikaAddIy1OCe8I+g84O4igazfpJMVJnHR1 EgdXO7iZ9J1BOlmIVSSVoFlUUKlaC4aSGjX3d8Hjg3D5XU6+853v3nvq6tKl a0Xn3NKf39/1/y+5nC6cfnSvGehbNp58X/MCzH4e1tUm+/kv6thvO7ufFcz/ os5qO+rGuqLpO6ZO8eNkZPw4Cf8b58wi1GkJHeo0LN0mdTpEZwoeoXPA+B7j t9eOurtmHqd7+CxanaxkdZijG3VkaHVkZHWYK5E4xxiOc4TVRx3y8FGHPHzU 0Sk46HnYyUGYubMqzNzNYzBz5ydg5s7n4X36zJMDfvUCORSM7kwHP7pMDtNw mxwS+C1zl+G+Yadv4KP06Zmcdtqv4T59XsHb9NmEf7J2DVfkAXXfYUHnMxz6 1Dvv4Sv4eAc38Lll2OtLuD7hqm7ANcOJHIHv46MML+KjBE+WleOdcN4VvY6P XXgBH58Mex3As+gMOLfog4PMD8Er3IPpf/u6amuEjnCPtuGToUAGhr1swuG+ VeUZnBhOeE8VuY0P/EsVHz1zDnOtdXgZH09gHow8NOzlLjxH35uGUzjhXFIZ hYAzDw/3wzmE+18LPqTR2YFLhXAOH+FbnEPfsNcX8HlyXTec6lN4Eb6BzzOG E5mFv+DzMNzDp4ODz7OdH0FXU3x+gO/gc8uw1+fwRXzmhlMlPz1nONHok/zy Okx+edn4arT20CU/3ltNyY/3HNnLBkx+smY4lcfwbzsIIPw= "]]}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.758306187279694*^9, 3.758306217224358*^9}, { 3.7583087216780043`*^9, 3.758308726111217*^9}, 3.759008215890807*^9}, CellLabel->"Out[31]=", CellID->143053481] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1982749482], Cell[TextData[{ "The number of points in ", StyleBox["n", "TI", FontSlant->"Italic"], " sides:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.758306755439684*^9, 3.75830678229506*^9}, 3.758309307200746*^9}, CellID->2013137765], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Length", "@", 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["SquareSpiralPoints", "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["SquareSpiralPoints", "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/SquareSpiralPoints"}, "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], "SquareSpiralPoints"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SquareSpiralPoints"], BoxID -> "SquareSpiralPoints", Selectable->False], "@", "#"}]}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "10"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.75830649989918*^9, 3.758306518662984*^9}, { 3.758306704517927*^9, 3.7583067078887453`*^9}, 3.75900819186019*^9}, CellLabel->"In[32]:=", CellID->744314247], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "5", ",", "7", ",", "10", ",", "13", ",", "17", ",", "21", ",", "26", ",", "31"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.758306520814324*^9, 3.758306708756362*^9, 3.759008220190514*^9}, CellLabel->"Out[32]=", CellID->1024178883] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "2"}], "/", "4"}], "]"}], "+", "1"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.75830666712463*^9, 3.758306688329217*^9}, { 3.758306720284157*^9, 3.7583067353839273`*^9}}, CellLabel->"In[33]:=", CellID->1155380441], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "5", ",", "7", ",", "10", ",", "13", ",", "17", ",", "21", ",", "26", ",", "31"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.758306690098545*^9, {3.758306726023838*^9, 3.758306736226756*^9}, 3.7590082222746477`*^9}, CellLabel->"Out[33]=", CellID->2003083939] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->540091361], Cell["\<\ This finds the coordinate pairs that are a prime distance along the square \ spiral:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758306295846785*^9, 3.758306331221492*^9}, { 3.758306361349299*^9, 3.758306373619851*^9}, {3.75830727691092*^9, 3.7583073676611*^9}, {3.758307457319818*^9, 3.758307467215272*^9}, { 3.758308231526018*^9, 3.758308241381768*^9}, {3.7583799809230328`*^9, 3.758379981641348*^9}}, CellID->1039848554], Cell[BoxData[ RowBox[{ RowBox[{"UlamSquareSpiralPoints", "[", "n_", "]"}], ":=", 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["SquareSpiralPoints", "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["SquareSpiralPoints", "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/SquareSpiralPoints"}, "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], "SquareSpiralPoints"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SquareSpiralPoints"], BoxID -> "SquareSpiralPoints", Selectable->False], "[", "n", "]"}], "[", RowBox[{"[", RowBox[{"Prime", "@", RowBox[{"Range", "@", RowBox[{"PrimePi", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "2"}], "/", "4"}], "]"}], "+", "1"}], "]"}]}]}], " ", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758379907525497*^9, 3.758379934902039*^9}, { 3.759008191866889*^9, 3.75900819186782*^9}}, CellLabel->"In[148]:=", CellID->1346780868], Cell["\<\ The larger points correspond to the primes 2, 3, 5, 7, 11, 13:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758307624514155*^9, 3.758307664760827*^9}, { 3.758308151929039*^9, 3.758308154000259*^9}, {3.758379534945084*^9, 3.7583795385852737`*^9}}, CellID->1077324486], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", "6"}], "}"}], ",", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"LightGray", ",", RowBox[{"Line", "@", 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["SquareSpiralPoints", "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["SquareSpiralPoints", "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/SquareSpiralPoints"}, "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], "SquareSpiralPoints"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SquareSpiralPoints"], BoxID -> "SquareSpiralPoints", Selectable->False], "@", "n"}]}]}], "}"}], ",", RowBox[{"Point", "@", 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["SquareSpiralPoints", "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["SquareSpiralPoints", "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/SquareSpiralPoints"}, "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], "SquareSpiralPoints"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SquareSpiralPoints"], BoxID -> "SquareSpiralPoints", Selectable->False], "@", "n"}]}], ",", RowBox[{"PointSize", "[", ".08", "]"}], ",", RowBox[{"Point", "@", RowBox[{"UlamSquareSpiralPoints", "@", "n"}]}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "100"}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.75830772123131*^9, 3.7583077253989677`*^9}, { 3.758307783767869*^9, 3.75830781817214*^9}, {3.7583080226757507`*^9, 3.7583080873792677`*^9}, {3.7583081610428534`*^9, 3.758308203597548*^9}, { 3.758379522484634*^9, 3.758379522969658*^9}, {3.759008191872649*^9, 3.759008191874323*^9}}, CellLabel->"In[35]:=", CellID->1012815160], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.85], LineBox[{{0, 0}, {0, 1}, {-1, 1}, {-1, 0}, {-1, -1}, {0, -1}, {1, -1}, {1, 0}, {1, 1}, {1, 2}, {0, 2}, {-1, 2}, {-2, 2}}]}, PointBox[{{0, 0}, {0, 1}, {-1, 1}, {-1, 0}, {-1, -1}, {0, -1}, {1, -1}, {1, 0}, {1, 1}, {1, 2}, {0, 2}, {-1, 2}, {-2, 2}}], {PointSize[0.08], PointBox[{{0, 1}, {-1, 1}, {-1, -1}, {1, -1}, {0, 2}, {-2, 2}}]}}, ImageSize->100]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7583077269025803`*^9, {3.758307794978922*^9, 3.758307819182971*^9}, { 3.758308049748094*^9, 3.7583080881187963`*^9}, {3.758308163301917*^9, 3.758308204686307*^9}, 3.758379524429496*^9, 3.7583799395581903`*^9, 3.759008228341543*^9}, CellLabel->"Out[35]=", CellID->240069952] }, Open ]], Cell["About 12% of the numbers up to 10101 are prime:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7583795874872713`*^9, 3.758379623502143*^9}, { 3.758380038448084*^9, 3.758380047527424*^9}}, CellID->136051837], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", "200"}], "}"}], ",", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "2"}], "/", "4"}], "]"}], "+", "1"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758375292071919*^9, 3.7583752997461653`*^9}, { 3.758380024475266*^9, 3.758380025056052*^9}, {3.7590082563725224`*^9, 3.7590082668818407`*^9}}, CellLabel->"In[39]:=", CellID->1471469038], Cell[BoxData["10101"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.758375302946665*^9, 3.758380025805532*^9, {3.759008231542358*^9, 3.75900826803205*^9}}, CellLabel->"Out[39]=", CellID->341408420] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrimePi", "@", "%"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758375321539419*^9, 3.758375329136567*^9}}, CellLabel->"In[40]:=", CellID->352636360], Cell[BoxData["1240"], "Output", TaggingRules->{}, CellChangeTimes->{3.7583753301199007`*^9, 3.758380029555534*^9, 3.7590082736313677`*^9}, CellLabel->"Out[40]=", CellID->417035367] }, Open ]], Cell["\<\ Here are the first 1240 primes plotted along the square spiral:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758307737030126*^9, 3.758307749085785*^9}, { 3.758308123305419*^9, 3.758308138992836*^9}, {3.758375357599758*^9, 3.758375360055704*^9}, {3.758380032855719*^9, 3.758380033816297*^9}, { 3.75838023056177*^9, 3.7583802470647984`*^9}}, CellID->1606466798], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "@", RowBox[{"Point", "@", RowBox[{"UlamSquareSpiralPoints", "@", "250"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758307753302867*^9, 3.7583077543096848`*^9}, { 3.758307831758318*^9, 3.75830795246375*^9}, 3.758307987633847*^9, { 3.758308096308929*^9, 3.7583081098521347`*^9}, {3.75838000506779*^9, 3.758380005329404*^9}, {3.758405292855157*^9, 3.7584053024645777`*^9}, 3.759008191880224*^9}, CellLabel->"In[41]:=", CellID->2071963721], Cell[BoxData[ GraphicsBox[PointBox[CompressedData[" 1:eJxV3Xlc1HX+B3DOYTgUVFRUjEMERJDhPgfeMDCA4FG5Za21drtl5ZqVa27R ZVaWR23baVRmVm5ZuWUl+U5b18oK+1lZmVJeeILIfYy/mffrjY8P+w89Z2c+ n/fnen/vrzHX3n7JDT5eXl4pAV5enr8Bc8Iz4tevLvSS/7UUn5f/NW/zVuvf bS79XP9e+By/Y/29F+H/P7/NR+2rX+jTz8F9W/X7rN8vBhu2dg2q36rlBbCv OhZ/uV8/X6zx+OvnB/A5Bap/VO/X76GeiPoj4lAaKg7j5zUOP7X8qR1Tzxp3 iH4ere1qxO85DJ/TF+rNWq52CN2r9Y8QhtMDGtce+XwEncNfDvdGf25Tl+P7 rL/nBLUfvld8Ur+n5dE36iit52r9HdpRVN8pHk1LtB3vqpPQH5yMji72USN6 e30iPt823vy81m4/i9/zXficblUf1XLl47ml9mXqp7SflrrQH2hfJD3kjf54 U743jrZrO+9U/4G/3OeD/nlLfa/+Ll+NiRWpHsEPqndqPeP0e04t94j201EX 4rtGHE27+zF+xWr5U3dxfYf8LorGeqMfktRP4HuMcqLofXzOmehI/gWf88D3 5vWiP8ep473RL5fo7+AIsqgdGscixKX9G6X9O8v+jHqFj843F+bV9cJY+hx/ uUi+F0N/VS/V79nVXX0YF6yLGA6zoL/34nPO1e8l+2K+vaPfu0XrqUR5XKBe pb/7VettRHnF1eot3hiXkD7091/kd3HUhoXOX8r3JlC/9lOG+kt8j320v1PU ViSO4qvwPXbpOLW74PP6vQ1YCNsS1MHe6N8x+js4jg7p785pvfL1hmvsn6oX IVHQCPV4LQcJMoawTuOprwf9epsX/IAP5vd6+d1EKvFGv5YOcjyHqY/jdxzt wrz9HZ9zozfKuUrHYbd+7xMdh4fUmBdWatPfObXfN6of1riu13L2aL0L9Hcf qHNRH/qBL6uPkP9IpPnazw3yvQRag881/iiaoyZsAIrj1S3yN4zDBzlC83cC Lx74XPNPoboMvyOtn2MH5o3+LlbjalKHqRHfaN3eJKAdXon2VrVNyz01yBE6 z8dpfUm0Tv5aecCXeGEcBjzJC+M54FT8VcdTiRrlh1OFei7KpVvUTToedw/y JD4jjuQQ/XyVzPvm4kL1ozpei9Xb8DuyYtx5jMbV0o95eY16qf5uqfZnnXgy dWm/NKnRbzPsaE8yWTHOOl7J9BC+x6zmQY4j5JFk9sI6p0UD7sE4J3pjXK/X 39VhnWn/JfM+rEtqGeQEwvYzmWs1TszfCH5rkMN0/LUdtdfVJ2qchARf3KPe peUe9sO4YP6k0AKZIM3bMH5TKFLyeYCO3xR6Uvp1nLZ3Cv0Vv+NarHP6QY32 h1MwvsdeFtRz94CbUM9ZzQ+Z+rs/8DveqC7swji+qL8LdWG8d3nDP7gQt58P yrlC22H1QzlRGicfxDw6ou7qxbwf6oNx2yTlpFKk/C6C6DwsX1+wwI75aKPD vVhni9Wt/RhHzD8bPYlyeLaUm0jp+B66ixfaH1DXyXiEco96g5QzgWO9TSfw YcTH67RcOJq71KvQwYz8kMq5Ms+iaLeWG4lyqUPd0I92NSE+TnKZjuNcbXeD P+ZTrrYrAu2kHh/0H+KxqZNo7yDHEsbTRk3BGPcv1BFtmE+zJJ40ski5E3X/ MI0eRDm8Th2F33GlzIt4+jM+5y19+N3KQXbnD3yPXVrOllCpX/eTbRzXhXE/ jPp5OH5Hy7Qch7bjsC/m12SNe1eAx5H8iMadK+WMoF51pJQTQ296m04hL5lP yTRPyk1TJ2r/uW3FfJt9Xt2F+YUJk05efRjXU95qfM40TP6DSA3db9ffMZ/B /MK6TOdNvZhfPMgJXOsD75NxSGMvGfdknuMynchrBzmaY8+rJV+E0jsDcci8 Hq35y23UQx9qvbO0HVbEQ/E+plPpIn/ML+TvdCoMkn4nbG/T6Y8ejPuzUk4G 1eN7vMUH/Y7tu7v9IzHvsD+YwV6yA9687T9qOoF5OA3lcHS7zAtO84FX9WA+ jfTFvHhG60mSPJbE6S7T8VyrniWJIpxv1jg2nsN8K9J6TvZhPn3hYzqdhvvC K7XdcRbMv98HOYkfdpmO5Xu0X1ZFYJ7fpP2yvxvzMckX/Yv1m0Gz5HdxOh8z aC4OrLbNlX7JpNkSbxTP8YY3dmOeIL9m0o99Ou6+8AGUyxssmOfIfwOOI5mG bteNxQxdi3qYv0K9FpTDs7sxzz9Ub+zD7+YHYD5+0m86kcNdpqN5l3oTDuR0 vWdgOWx6ot6m9SaexfzEeGTy012Yd9oePb7KoAY5cA7TPJVJjARWHKb9YtNy bhvkKHpV4oklm8STSWWSf8KpUb38IsxL5NlM2tqCeYf1kkWpmA/avwN294+6 tx/ehHlHt6Ac5rEo9z6UwzjQCeCnvOGZmA/8ho/pFL4L8fJ+xMf7xmMedWi5 dctl3RS/r+UmygFrAIVpuY9J/6VQGeLjQMRHV/th3fxJ27l4GNbFb9rOsN9Q zmlt16u9mMdegZg3u6ScLPIaLuNAbS61/G+Nfet59RbMo2j5PJu8ZMKN5qZB juIab7i2F/MXJ26yKRr1cJgV83e2y3Q0rUI9TKiAcvE7bunEfK1Td2m5jfK7 OM0HWepoPqWOlt9NplX6u1W9mG97/eBf+tAukjzo3l5pu2uDUK7XQLslv0Xw bYMcxlMH2i3/+2e9j4/6JOZnjba7th1xFPij/7sl32WrM+iWXviuIMzn1/vh cClnBO+Q8nPosXbMo34f+L89mDeX+sGYD9n8mIxrEv1jkOPpBhccLieQIunn QQ7X484cPnUK9f7gCxdIfDau8jOdztdKvPEcrOXAsfygevkkzG+cX8rmxisw v39Fe3jxj5iXl2q9a6V9k+htrfc7tI8e94dfRrkUIvk3ki/XdvfL+rJRtb/p TPKRdZtJn0g5OeQn24tEer8PbvnO8zeUX5V4cqnrGOZztDfcJ/l5Akf6wK5u zLtwP/helMORwZjPrkFOJFe/6Wg9/5jDqO4ZO8475fKu46jXhXr4sOy3JbDL 13Qqu6R9mbykF+XA6exSh8mBRSi9peX6ye8mULav6QT6RO0j/ZJGTn/TWTTd Ag9FufQ9+pG3uODKcVgPU7Xf5E/lC/WXab8t+BJx7FdvOSzto9tQL81pRRxL /EynUgjqpSndiOOtIR5PoRckjlx1LOX1wxuyZX7RTy74MilnIr8k/ZinTuH3 fOHJmBc8wx/+M8rl66TeNHoc5fLOENSTeh6OyEA9OL7O4zo5gdS87ScL5mVK D743R/olnO36u3XS7hE0BPHwJa2Y39P84Ek6b2/1N51N4wNM59K/1Qd7TGfw RG+049ntWEerUS6tl+1cCk3Qdl7ahXo2y+/Saa6Uk0fzZHsZR9ifz6MG2V5G 0OF+2PY75uU8qSefaqScDH7AH14q8eVxmZTrzlc9pt3b417TNlqHcnn5UKyH +efh6HzpWMpEPdz4X6zL633gFtkORul523xefBbrMtnP9GRuQ1y8VePcGoB5 PFvjhDN1f3PA6ZyscS6W/khkL42zESc09fxIPsuflrX1G9TLW7C+NvvCZV1Y T9hfHHAWzQmAr0Q99LRsp2y8wAXPjMV6ikP7aNNvWC/bBzmKXkR7aZ9sZyfT Ph2H+Z2o9y6L6Qx62Yp5XS7tzaeuMszjD1xwtGwom7fhNGY+PST1jOPfZBwK aPsZrJ8b/OBrOrF+qi2mc3llAHy/zKN8vlZOlMXTMJTLy0tQb7m0p4ALD6Ke NJTLa5tlXfB4lMvfSbnp/G+r6Xx1Go/uhTfHYr0FaD3rJd4YetkXv4MnUbPW cynKpWMW07l00Go6nx4JhF/2Qruiv5N+Kq7Sftn1AdbbC9ovradQj0P74e+y Q5dJ/7KazqVnArEOsmU8CihZtruJtKYXni0nNMNoqgve8DPm/dXSb4W09xTm +Tw/+OYOzNOlVnisxF/ASYGYB0ndpjNJNs9ehZjHs161L/GFN57GekryM53A bwXCP3agnJnTsB5weq2A594g/1F8rTe+t0kuWITSKB8tR+JN1e1JIV/WgfVw s9V0Hn2v9RxGvLQsCOvS0geHjMS6PKD9EiEXmgb2vwpJ/oS8Xh+L9lDTD1gv zwWh/3+S/YpCdR6t7jCdRf5dpjNom/p6qSeSxvXDN7Vj/lfIONvV2extNV3I qUHwC52mc+i7btNpVNELXy0nrpPoHtTDWxNRb47LdDi9LP1q57KfsH5G+8Gv yg7WRL4PcfAejasg0HQuf4A4eBjap87iPerdSVhPe7TeZ//ksZVXn4efP4F5 vtof5U5rx3rag/7gGLSPVsv+TgaX4He0fA7KuRjx01Y5cTCCfvaFDzRh3b7k Z3oiTbSYTqHj6ttlP8ZGh4Ixr09IP9tp52isJ59eWObFzjfsuD5ip0WyfzSa u2S+FlG+lJvKP/rD46XcNH7RYtp9HGY1XcBLgkzbGSdei+ieDtO5dGsPXDvK 42TK6TWdqNdr9TRS7Xr7EemPIq49jvX4rp/pBH4FcTBrXF+iHo5D+9XpvLwb XiP9kczRvaaj+aF+o941b9Rv9kK5+9E/FKFx3Cb9k0BL0T+cg/bTfrSXK7rQ rxtkA5nJo7tNp/NHaD/NHIM4bkI9GJeZb9b/5APjvMhouhvtpU1yYXICfRQA 4zxJGv0v2HQBnZd68ugGmYdF6gz6tRN2jcG6urgH9pFyY/hyaV+xOoW/8Ye9 pVwbv2wxnc8fB8GpKJevknqy6Ncu02l0VS/8iRyfxNMhaV8xr/gW6/Vj1MvO Y4jjWAD8mtSTzidDsI7uaUM5cB5P7jCdw74ax49onx6PFXHdtdhOTfBGubN2 Y539n8aRdBTrNwPt45Hn0C9fD4G/aTNdwNd0ms5ie5fpDG7vhp+R/d4p/Gif 6Vi+oR9OzvE4kp9AHLR3F+Iq94NvPoz1/1sInCX7yYU0PRLrZKGMXzHmzfSN up6LadV4+Y9tuK5NdP3/sL7RfqL3D2Hd3OED/3wW63uHr+kMzvAznccP+sPH pb3FvF7aa6Ovu+EaaV8y/a3PdDTVo16eJ8c/UTwE9fBmad9k/jfK5StbUQ/2 dwZcwD1DsK6KzqFcOJ2f0TgabpeG8odoP4va3q7HZpnYJidQQilN4wg5jHX0 CNrPFqknh173N11Aj1pM26lX7UR76RfZX7fxCO3HZ+X8XBRdrv0Wj36lD/xN 51CCxXQeLZH9azuVecq9j9QF9Mkgp5G1D26T45EpOM52u0n2x8NptwvmMOy/ TvF8XEtkkwuGAbxOHSLHL5O41cd0Cs/zhZfJ/nsuf+hvuogjAuDXERdHapwr US5HP4J6fkO5vEvrudTXdAq/gnL5sNbzd5TLC7tQbutQrLNfuk2ncTrayxyD 9Xyz1psr/T6OvveGh0q/ptOrfqaLaKHW8wjqoRPqPdqPG6KwXotdpmNxX4Tb M+WGlXB+Rfux1h9xhGo/bmLEcYUFTkb76P8GOZ/65DigiBpk/pLaRpl9cFeM x3GE629ELbKQI6jOZTqMIs/DMs37Ntlxnb+E/OS4IYcP+5vO47kWeAnq5TqN 40y36Vz6FvUyxWD9foZ6sK7qNtnTZR2VcG098sp6Hxg3FiSwTwA8V+q1c5vM k2xe14Ny4EyO7TVt44vQfm6Sfo/jZ/tNR/Mol8aJE8y8SuOaW4v1HaRxRciN Y5Op1hcOkX7PoB4/08V0RuNchrhoH9rPFu3Xueh3XjbIYWxBPVTbKgEVW9B+ qpMTwqNpmfZzIsaBlllNF1PERI+T6LjMuxJ1LJ3uh22yAx9Jt7vguU97bKU7 zsN1t2Cddcs8LKGG/3g8gu/xhhfJcYqNH/EznclyvtDtTzqkHB4TCM9GPbyr EnnkD5TLuR+h3Hk+8Ityo9FEXoRy+FspN5trrVhHt3SiHK9hWL+dXabT+PFe dRnW0Wtar9dyaR8nnFc39su6StU4vLZiXX3qrZZ5lkJf+6qlXzPpcn/TRXQy AK7txPq93QpbEBed07g3IS46KnFmcKmOw+4JMk68V8fhWTnRFcmNOg62lYh7 ofZ7wwIZF+pSz5PrAiPoGR2HzP2IO1LHYawch9uoRsdhiMaZJAs5n/4m67JE nU6re2GZ/Umb7VfIf5TSJrkRMZT/6g1vlOOgCeztC/8ox0FZnGYxncMfD7Kd L7bCJ2W/sYSPB8IPdsLfj0C+OOeCV+FCGj2OOHjBNYjD4QdPkePcNL7U33QW 3xFg2s7BUg/xZK1n1HCsw0vRfk6O8ziRV/bBGz7COtP28l6ZlxPoHz6mEyjA 13QqjdO4hnShH+/Tev+k/eqSejO5G/VQn6zLZH6433QiH9F+DpuHvPOo9rPf L4gjxd90KnlrP/rIerHTySCZd3SZjLe7/+U4PoNye+GNkz2eQrP64Fl7Zd7w eplHpZR0Aut5psV0PvcEwCPbZR7xukA4S9Z7KbPWewT1cq3UW0D+3aZz6J+D nEXtiIO9JK5Yet2l3ijzn+S0pMczZd1uk8PjWrdnIU/5+6jl/EMMZ1nhWom7 iI8gTqZ2lAOXcIP6K5l3xdyi7Xg6AevSq890PK9SJ87AOt3UD+/bhHUo1wtr BzyO6tTz93k8iWb6wtmnsC4XoL95j45TdDjieKTbdB7be01n8DU6biTnJ6bw m+gvqp2JuB5EveT1F+SL14LglnbklT45Ds6l92X+l6qzydlj2kY+fXCX3KCZ SEn9puPoM3XLnz2O0PtwBxxGS87DYetkPen5NAf5yXF1Bt9sMZ3H8VbTdp4e CD8gx0elvDYYXtAJF8pxdSGld5vOpqGolxs/Rv7AaW4H0woJcFuDOtqJfLIG cfFyOT8ygXcGYR13ab0wcVwHvGIk8sfSLjhiMtbxzb2mozkZ/cNzZR578Rn0 Dze8ifyC+zgd3LQX+cTqCy+SeZtDKyymC2hLAJwv+dO93x5ouoTCgmCcnyyl 9eISfh79RTUSdxFf2206l3sGOZtbddyflfNSifxYv+k4nqrj2PAW2jHcD573 A9rhgzhos8RdTOk6bldqnMlynG6nUNlOOmi23Lgwhcr74A1yfXASvyfrw0F7 5bg9ne+zwCfOyff4wRA4tt10Ca3tgS1ynJ5GQ/vhELlRLZb+cMG2XR5bSW4r qHXPj4N9kl/OeMNNL8g65nTUyz1yHJ/JFqvpfP4lEP6HxEX8TrDEwf9pQz0w 8cUa5xyZpzl8FdrPW+RAKp790X5u/ETi4js1zlWvIp/cr3FVyjyNofE+8Do5 X5ROk/xN59NzAfAliINKguF5nfADss7t3IB6yHqlx+G43u522GbE8Rb6hzgV +01yvtftvu8RR5+f6RTK1XG69zji2mQ1nU8fyPmGEpoh89RBN8o45dLt3abT aUYvvFvGLZGk+guOo+/Uz96AfIPnIdzz8Hnkm+9knpbR8zJOabzSYjqDUwNM 23lGEDxNzgOUcGoI3Cx28O1DMI9/aDdNJOPo9oGxaIejx3Q63Yo4eWuW5AW6 FHFyy4+SF2Sz5LHowCf2XyUvlPHyp9GOz33hMrmfKIHf8Idjj6Bde6ymC/iK YHh1K9qRL/2ZyUc0zkXSf8n8tcYZIfM8ij7XelfIecEJdB36j3dK/xTQSKvp YroiEL4O/UO/a73/0nHdPhr5Ri7juvtR/mz/qH6HjktXHep9BOVSkczbPPou 0LSd7ggyXUx/GoL5tFDmdZma6PoO+C3p92IK6jSdR31dprOosgee+QPygJz2 qC2j2f/01DOCP/SBL5N+tfHzFvhtT7+6jyMWhMDnZF2X8ReRqPdkp+k8eqrL dA492Acvz5N1T/e44LA7ZP3RDlnnZdyyAnHc4mN6HMv5HrcLDyGuP1tMp/Ol VtO5/EIwvPYs4n4K/cVF6D+OH4c88KS249n5mgf6YdvPyAOjNM7Ncp5tEl3m i3LhFHKpf5HzX7nkDDCdj+Nht2+V/iulbI2rXscpROZpHg/rNp3Fnw5yBof2 whEyj6fwR4iTbPLATCQHIA5q+gb5yd/fdAr5Ig5qQz7Hdf0LzqY3ERctkXzu 3l/SdV4r89o9b8dhndu6TWfS8h64Rc67JtOKPjhMzrumcp3kn3KyHsa6rQkw XcAbgkzbeVYw7KfrePYQ0w7eNBSeK+uvjOfIeQ4H3dxumii2C95yEeJO7jGd Tst74QV2xP3ieZjbZcXSeskL5UxBns9DGfe9lfOq7chHC61wpZx/y+FvA00X 8CrEyetaUG70eOSFLW2mM/kijdNrtNRDTi/8jv+LfDTTB26U+xKy6HqL6QK6 zWraTpEaRyPqIRvGkes64bnI13q/eBnVyo20EUxoL3mlIA7Zb3ebvkYc0aiH 6iQv5FBtoOkCsgWZthOFwA0YR9rg6Q93/vpV5lc5zRyPvPFah+k8+rjLdBaN 74HrZId2CmX0wXOlf1L4FckD5bRJ2l/I9wXDs2XdO7h7qOkyfjsU3i95oJyv CpO8QHNRL38S7aknh8K7TWfRZhfcJDf6h5Mcprrd4O/pOCttlfVWzis+Q1zJ qJdfa0YciVHINyu1XjiH30b7uW4p1nE12sebPveUMxHXYd3l7JMTJDb61M90 Ot2u9c5vQX7ZEWy6jCYP0e+fRb8dxHaEn2w1XcqROg6fybou4LYu0xn8gPb7 UlnnsXhuwe0WufHTiucV3f0aJjeQB9BaX/ihXWhHkL/pFEoOgEsPIx/9McjZ tEDHMUbiJIoPMV1CV8g6L6MsyQPl6lJ6vQ1+X9Z5EX3TYTqX2rtMZ9O/u+Hr JQ/EUX8/vEseOB14PrScch/2/I3iOyUPOGm6rPM8Ph1k2q7X55z0hqz7En54 KOwr+amcb5DzYUR3Iy7+Su4rKaS/dJvOpCd64aflgdNk8u43HUfHERfPHIUL MFfJHyfP/T/54rY7LPD8TzxM1eu5Ts6W+26yeGSQ6TyeHAq/IOfPHPyynLct 5cfPoh6Y2Bf9zUVyHruIt6k98nqZ63e44LAOl+QRPFfp5O0HkCdwXsrJ18j5 RKLiYNMOumMIfHEr+v3kUMTxsY7jj5IXcvk39A9tlArieBjqpdnyIFKYPk/m zmee//1YX4/ndp1UF4vzy7h+5qQNch/0aLoC/UNJkkdy6Ikg03Zq13EcKf1R RqGSNxzUIvPRqSZKaocvkrxhp/UdptNobC+MO0mm0D51ixfySI2sIyf9cdBT Tz7fFgyfbUZeuHqYaSdHDofTWk076G89cG4c6n3vPMwxqEeez6p1MsmNLgH8 nj+8Ss4DTuK0IHiXnOfL5b+FmC7itCHw4dOyPvm9oaZL+b1hpp3qEn7nLHyt nAe2c9s50zmc36FxPuXpmObiSzTuwo+RN+r8UO7a/cgbRy2mc3G/j9szziBv LAw27SRXKByj49QnebiAT3aZTmPJC253yfWpKXx3v46TXCcJ5zwX3CgP6Fq5 HnFSrZxAay729cG4hMl1lHH0r0DYT/J2Pv2m4+rTgjivGWK6lL6S9VZGp2S+ OdWltOic6RLKbYOfxnokbjdt0+f8nJToQN6Y1w/zUeQJeZmCVwXNP4A8YAuG s2U9lrBfqOkynjkM3i75zcn75Pyue/vcZproRsTBmyYiLpneXhXIE/u22/F8 bwXXfi95gg/4wXXyIoIJvM7fdAJXBsEz5fxvDu8NNl3ARYiLE08jzq+GI4+0 nEYcidXIE7noD+b10v5iPB/qjhv16vmoCnUqzdU45ks9eVQZaLpAzz8NuJjq NK4nm9HPERJXGd+l42aT/F7Ez3SYzmY8f+MeF7luE8Fr+02HMZ5jq3BvOJCv XBa4QfJ3Bj1pNZ1DlwWaziPLULhJ8nspXR1mupwek/VJFCj7JxUULuuxgG7q MJ1BK7vhRCfy14ReeOYKjyOp2gXXRSDPHDwPzz2GPGOXdVFB+2Q9T+Qb/OFT sn5tvCPAdDbHBMF3yfot4d+Gmi7jgmGmnfzdcHiorKMKfs5zntu937Cw1XQp vdoOp8t5bjt92wdfP93jeLoR7eBdL6JdV0ueqeAXJZFO4g7Eyd/uQ9yfhZgu 5MeGmC7iZYiTbzqFuE+MMF2hdnLWadMlXHAW3itx5nBoh+ks/m2Q0/jvXfDc z6W/SZ6Td9czW87Px1Az+p9HSb0O8g417aRbNM7DiIvysH3hyBbTpRyr82Sh bF8KuAP10mG53jmF5/aajuUp6F/atVr6kxfqOD8p25NMIqvpbHoryHQhOdG/ 9D9sbyh8iOkSmoH1TudlPleoiQ6eg9fGIQ+922Y6l6I64cIqj5MptRdeLC8E iMD1YrevlTjSOFXWWaXazqFD4Pckz5TwfaFwguTHCv6LXL8op5daTZdSSZtp ovPd8GdyfSOd7uyDl17scSKNcZmOJn/JU5Uc9gny5zQL/JA8+J/AOxAnl/6E uN8dYtrOlyJOfkWuUxJ/Ocy0g4fJeXEnV51GvbCD/9sMx8p58XyubzOdy6vb 4TJ5wC6a07QdW9+WuOjvfqgHTqUYjfuAnEdPo/ZBLqAxwXCznFd30hPD4VsQ F10j17HKeUSzaQcf1HHeHo+4Hukwncl/7jSdzj+h/+khucEpkc/5YByXyn3G E3CcdcGpVIC4qEjum7bTRzoPXpbrXCWUEWa6jMZgfVOjzNdKtYOubTFdSrln 4XSJqwDb0QvOo8IO01nU1Gk6gz7rghd8i3zbIvt5lZR7kyeOEbzTB35R7iuP 4YV+plO4zQJ/K+3K5LsC4WOSD4iXDDXtYLnPxu1/Sf6t5KSRaOd3raZL6CDi 5FkyT3Loph7TafS/fniDzJtYbObcnvmmx+H0BurljTIvinhlOPzjCclbXOw5 r19bxkUaB1zCu9G/fG+yp5xirm01ncdD203ncJO6b7bH8ezXC3e9J3HwGo3T Ot0Txzh6B/3JD/wf8ta9gaZzaXYQ/Plx5Knnh5ouJ5/h8GqdB6ukXcS36DyI noS4H+kwncEju2G8yCOJv+wxHcuXI07ykgcJrOztj3Hif8s406/qRnkuzkad QaYL6eEh8IKTiDsv1LSDmkZgfh+QfFGpLqPpzaZL6I+zcINsn7JxfvqC02l7 F1wn15cT6bJe2COvph32e+U/qojnej4fzXieesBR+l6AKrLJdjaDRwWaLuai oXAE1iV3hJqu5J6R8PtnTDuxf+B2m1zXLCS8r2LA2TS223QmLeiHmy73OI7w nGoV1/0Fx+cfWuGIDZI/eGYwHCLXQbN4kVw3cPJ6jQsu52Wn4YarPE7mnd2m E3l9D2x7FXnK6Ydy4VQcH3nqletnabQzwHQBzqu4vUJ2hB104zDTZeQcbrqC jobD849jnHZKf1Xqc5wDLuMVHfAK6Z90TkbcFHE54g7pMR3H813GuO/8bz3e i1BFDRfLONNGHecm6b8EqkG7aNFetGt3oOk8WhFs2k67w+D8E2jXVllnZZQh +aKKFsu6stN95+AWrCO6tA9ufF3WP412wV57PA1o3lbv+bi2iqKvlHzA1/nC YVhnfNICL5d1lc7vWk1n8upAuEzWVSm/Ema6kk+PNF3F342CtzSbLqPKc6aJ tnbCa+W+hRyq6zKdRfN6TKdReD9cKPcxxOt9G1Uc9hS2IxsQN3+xDu1aNBxO O464/UaZdvLcNOlPHqFxwQXcPcg5/N922Otx5KnPXeq9ngnTXPwE+pe97sT+ 7B3ecK080D+OijXOOrnvPZMeDTRdRAFD4Zme6+nufHvLCNNOujgctp7AuPp6 1p17f7fyLGyZgnbYWk0XcKPOAyqWeVAs79twj0vba556Y2hxCNyzB3FE6Lj2 e9aRJ38OM+0+fg43XUl9WFd0hczXKnUJvdcCd8m6KqL7W01nU0wH3KJ5CPe3 uefvux6HUZULriUc/3vLOptK0TM9HM17fGAr1hHj+uaA7fzeENhP4qrgn0ea dm/XRsHPSD6t4jeRx2jWWdOllHjONNHRdvgSuUExn2r64HVXS76gZZLXpvKW UsQZEQjPeUXyHOPByan8jjxXksOXDIMvl7xFvEKuozn4a40LJl6pceG522x9 /mHANm7ugm03Ik990Gs6ml/WOPXFJXzdebjhOc/fybTDgjia5PmIDH3eb8BZ ep13Ki+S63BEvaGmHbRtOCzn0dzjViH3kZTy92dMl/Bi9Cc9KfeV5LKt07SN 63TcPfKq2FV/s477LnmAeDTF+sOH1yLuUwHwwu8Q95oQ03ZyjMZ8tcl8nUrL ZF0U09KzprMotsN0BoV1wiGy/YqlD3vhCLn/I5LW9cFN5Z56RnCurKup1Cbb sxg8D3/BKXzAAtdLHCWcFGbawZbhpsu4bZCn8vIIOOWs6RL6rR0OkzyVh+sI F5xD/0DcHH2tx0l0a5/peJrmgukLtAvXW6dy40ueuCdxSijcInmqkG8dizx0 s8YFV/D0E6YdPOqMaeJTLfAvmZ567CzX2y44Dfdrub1ZrvPF8yUad8N65Nux 5+GaZ5C3dqJ/OV6u+2XSwiDT+VQ5xHQRJWs7njoi/U3av3zdcYzjGs86c+fT y0+YLudOnSdxss4K+DXESZWyrpL4pn44+jnEKacv3ePUeCO2A73+8BZZZyn0 QTC8fzfi/IuO821HZdypYKTpCpow2nQVrca6ouWyrqaqiRa0wLEy7pmU2AGX yTgnk1+36UTqUi+XcY8gvIdyKtbd6l12OQ3j9taXkLdmyjqrpgPfIm9FB8O3 y/1fTn5xpOkKXjUK9pa8P5XnI4/Rz+3wPrk/IJc+7TKdTm/0wJtuQNy4n7ia 6+SFXqM51QLPlPuIJvA5xMGJcv9AFt8zGn76KOK6VK4LlvP1p1Au7OBZ6D9e L+9LKOLMVtOZHNJpOp39NE7bf5A/8TqeqSz9denX9XjhbjVvXuP5PEHvD6zm K+X+ixyaEwK/chT9eliub1fxC8dMV/LK46ad/I9Tph18BeKkXXK/Uj5XtJvO 5CzESavkRYfJPF7HNfonGWcOPm+M8+Gv6vHezmrii3EdrNsbbkyU/qZj6H9a 8DTahetr1RQp189L6Knhph10VNZNJT0h+y3Vagfdfso00VXN8G6sK6puhZ+V ByKTSJ6bveBYGtkLz12L87W+LrjuGuz3nZV1V00NNk8cI/ikN5wp68zG/wsw nc3/CYLHyroi/leo6RJeHWbayXeMNF3F10TAPXKepJr/hLxHrc2mS+izPnjW X9GODxE3b/je43C8z9btma+jXfI8TW01b7oS7VoyBL5M8lgu3zXUdD47x8Jv H0FcRZGmq9WV/HqT6Qp+7bjpcn75pOlSfu4M3LVAxoPv74Fbfvc4kuW5bLdr WzwTrrkY+7vVHHaR9D/d7mt6HN3qB2/33PfkznPVI01XUHmE6Wqyazu2nzTt 4O1n4SXyossC3t5qOo+3d8JtEvcUluP2C07i7YibGnYgX2/XeWMrRL7ejjgp ZKUn7om03WI6hbbrvFkmz1Vm03adJzsk7hIqHYf14JD7A6rVleQ4ZrqEHGfg h5B/yNECh/3icRg5+mFZnqVf2x3nYf6XLGh9vrOGuiTfTGaHBV6KfMOOYNPF 7AiFP5O4StgxzHQ5O0aarmbHOHj7UdNTqeG0aQf92GLavX/cBS+TdtnoVC8c cqvHA++RrWbbZpxvwHPnNVyn7XL5wU0TPYxiPyvcpu0MCYGXSLuyeHio6QKO DIfrpR2lnDjWdCUnjTNdxVPkOn01f34EccGV/E2TaeLT2s45cn9PLve3mU7n QG33FnnhaiKP1HbLME35pj5F21n5uOfzCVRiMZ1A5QHwOrlfKI0uDoK/l+v6 JXTnCNMO+sdI0056NMJ0Ff1T27nvEObNS9rOvuOmyzn9HJxfgHZN7TRt4zk9 8CJ5EXkcLzlvzMuXvqlf44t5EiEvao6iXRgf2ikbyDzaO9S0nVw6z66TOMsp bIzpSnpd1rmT/CRf1ahLKPY0PFXuyyyg/LOm02h2B5woL1gNp6V98MyvkFcf 6Ic3ZSGvymN1tTU0/wlZ17zFAn+40+N83h8C3yH5voazJY4qerDJdAW9cNJ0 GX3abJroa8TJ8yU/2elQm+kcPG91wVnU22k6jRySV2u4tlXy7DZ5fsrtRMlH k/jxIPhpyUfp/PZQ0/m8Yxj8leQn4l/DTTv45CjT5TzBc7+Re7/4wBHEAVdx 01HTFdzXZNrJlhOwU16UnMX3dphO4zVd8Ap5cW28PndXwxGy4Q5nuQzg9iJ5 jjiGwjEe/NvvEie9NdK0k3ZFmK6k/WNNu7fL4+ExxzDuflGI237CdJk+B1BD 1iLE/U2H6TTu74HD5L63WB6p8yi6C3GXY3wILwYOoL/6wS0Poh1PBJhOodcD 4S65by6drhgD9zWiHTeMNV1FoXL/VzU9KeujRl1OPzaZLiHLafgi6e9cKm01 baOFHfDyUFmn7CPrdhp9If09meMt8B87ZN3ybSGm7bxsKHxW7h8r519Gmq7g 1tGmp/KocaarOTYSfkPOu9cM5FUK7IQ1j9Lfz8ON32P7gPfdTmP5M+Ub+6+I cyBvsn8QrHmTY0JMZ/G/R8HIi2V8bpzpKh4fZbpGPZXxHowBV3D6cdMOXoj+ 5nyZJ4XYD7lgG8d2ww14wTSv0XZEBCBP/uEP75R5kEWXDIEPyX03pfT9SNNV VDoeDjiEcVwYLfOCHz5huow/PW26hKt13A+T9C/fj7ho1/0eJ/KX/fAqX0+c Yfoe/2nEZ2UDVrwyEI7cJv1LjnD4yYOI86Uxpivo3bGmK+nIeNPVVBuF+S3P ad83TV1Nyb+brqJZh0w7aPdx06XUeAL2kvueCqisxXSe3kc74Ax6uk1tRf6X 3cFatx+Qdcpy3v6CJzL7mU7hJgtcK3ETvxhmuoxPhZuu4pljTU/juovgOadM l9KC06ZLaG8rjH84Io+W98Fecr93JOG8kttyIDeOCxEX1z6MuOU4/YIn8eJA mOV+cBvL+7Xcniv9XcIUbrqU540yXcbrxpiu4Lbxpqs50jPP3NuLVw8jTriK txyB8SbELPbpMJ3GU7rgVfdJnLTYinLhFHpS494l8y6X+oaazqfh6H8+7JlX 7u3BvjGmK8kvEi5DXLQwBnGtOGbayZnN8OFST1zFvLHNdBZ/0W46g9s64V1y w8oUvA/dPa4L5AWxI+hp9B89eUD6j/aPMV1BIZGm3fM8yrR7uyDrtpJekv3T aWon7TkKt8h743Lph7Nwo/xDLMl0eScsy3dpg33IeThM7vPO4slyPDBdXcB/ H2razk+FwlZZp9N4TDS87ojpSoo/adpBYe0w3gyeSUkdptPp6i74+lrEifdU TGdZfiEN9mt94dzznv4bzbWIg7/dhjhvHgMfk7ic/NBY0xUcHWN6mrqaCw6Z ruI7jpgu50PHTTt43CmYZJyL+PEW07mM+3Pc60r+4Y9kvqXbdCI/0gNL81Y1 1Kd6Iy7ccJlG2v/qAvooDG6U+xnL6J4I0zX0Z23X04ib7pb77yq54ZhpJyed NO3gh86YJn61GT5Thnb1tZrO5dx205n6/rkBp3OPP+ZB3F2ezyeQvAfmghNo 6yj4Ubl/z0Gjxpp2UuY40xW0YLzpKvoq2nQN4q6tpI8l/09XO6n7iGmij0/B iDODnmuDFyR4FqSVnuuHEedE/ruchx1wCn8cAA+Xf3Amk+X+nQsu5OdCYYnL nSe7h5t2cN5I005+LsJ0FXePM13DV0TBX0p+ms7PSf6pocA/TE+lR4+adtKX TabL6M0WOF1OABTQm93w9cs8jqdJLnjVGPTDo7J/Op0XyH20AfylL5wrL3IY x48Gwd/Kezbcx7GhpvM5EO3imyQ/lfOkMaad/OVFpqt5kozPNH5U2wlX8ze/ m67kDIwnXyLjl8Onz5lOw3sn3a4c5mlAJPf3wXyn5/9oLn5Y27XlDPLuQLvm yA05EykV48vvyHhmU+8Q+CcZj1I6jvFjB+Ki+ycgzscPma7iR06aLuURXbDf k544p/BriIuskYjzHsRBXYcQ1w6dd31/88QRQ6mBplNoG+Ii1xbEeccI+D7P faX3ER0cZdpBv15keir1T8D6GS7rZ7q6mh5qND2V3vrddDnNOwb3yHtNiqjm jOl0srXDTVGyX0j5/fBcvMB8Gx6bn+Hej/O0M4ov8oMt0o48XjQU9pX7Y0s4 Pdy0e79itOlKLoyE7zwo9XC0xFlDn/9ueirJvLngCrriqGknfX3ctIMebYbx wFohvdtiOp9u7TBtI/9euFbuE46mu12wVzpe9HVc8voM9pIXJYXyGwFwrbyg ZzJ/YzWdyhNGwI3STuLfI0yXc8BY004+GW26hnMmmJ6uruHZjaYrueuwaQfz Cfg2tJM3nYX3S7sSeVe3tssznV7YU78F48mr5B9oC9X7y2dwnLQjgTZoO9fI /dBZtGCI6QJqCoO/RDtpbrjpqdQSZbqG8A8NzuAX/sC8WiX3uU7lkydNl/Kw Njha7nvN5kOIm/APYSXy4xgfqo3D8ctVOg9rf5X9CcLz1jOoUV4Ql0byHoIL zqD+UfACuU+2lO4Za7qc7o4xXU2PeZ4TcO+vpUsemaGuoPzDpp104xHTZfTZ MdMOOtEEh8v9/gV63WDAWST34V9wGn3bDic+43Es3dsDz0z2tDsc/y6G23f9 InmC10reGHA5d0SYdnLsWNOVvCTSdBWvH296Oj8wAf5/+ehzTw== "]]]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.758307755656063*^9, {3.758307870490513*^9, 3.758307953289554*^9}, 3.758307988560357*^9, {3.758308098772533*^9, 3.758308112444116*^9}, { 3.758380002196607*^9, 3.7583800077657003`*^9}, 3.758405303383477*^9, 3.759008278278935*^9}, CellLabel->"Out[41]=", CellID->1616311260] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->653454811], Cell[TextData[{ "About 11% of the numbers to 10101 are ", ButtonBox["lucky", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Lucky_number"], None}, ButtonNote->"https://en.wikipedia.org/wiki/Lucky_number"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.758380281559568*^9, 3.758380325918171*^9}, { 3.8540215355058107`*^9, 3.8540215355068913`*^9}}, CellID->1612587837], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "@", "10101"}], "//", "Length"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7583796714853697`*^9, 3.758379735561987*^9}, { 3.758380088569213*^9, 3.758380088766447*^9}, {3.758380318513714*^9, 3.7583803193748627`*^9}, 3.759503922388315*^9}, CellLabel->"In[149]:=", CellID->981272946], Cell[BoxData["1130"], "Output", TaggingRules->{}, CellChangeTimes->{{3.758379681624024*^9, 3.7583797376296864`*^9}, 3.758380092896823*^9, 3.758380321230467*^9, 3.759008286666294*^9, 3.759503924497974*^9}, CellLabel->"Out[149]=", CellID->1135753527] }, Open ]], Cell["\<\ This finds the coordinate pairs that are at lucky number distances along the \ square spiral:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758307737030126*^9, 3.758307749085785*^9}, { 3.758308123305419*^9, 3.758308138992836*^9}, {3.758375357599758*^9, 3.758375360055704*^9}, {3.758380032855719*^9, 3.758380033816297*^9}, { 3.75838023056177*^9, 3.7583802470647984`*^9}, {3.758380391566204*^9, 3.75838041562714*^9}}, CellID->1940924303], Cell[BoxData[ RowBox[{ RowBox[{"LuckySquareSpiralPoints", "[", "n_", "]"}], ":=", 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["SquareSpiralPoints", "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["SquareSpiralPoints", "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/SquareSpiralPoints"}, "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], "SquareSpiralPoints"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SquareSpiralPoints"], BoxID -> "SquareSpiralPoints", Selectable->False], "[", "n", "]"}], "[", RowBox[{"[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "2"}], "/", "4"}], "]"}], "+", "1"}], "]"}], "\[IndentingNewLine]", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758374801067741*^9, 3.758374890744421*^9}, 3.758374922745802*^9, {3.7583797997804203`*^9, 3.758379800348208*^9}, { 3.758380111494788*^9, 3.758380116925457*^9}, {3.758380158183619*^9, 3.758380175827964*^9}, {3.7590081918881483`*^9, 3.759008191888863*^9}, 3.7595039380694304`*^9}, CellLabel->"In[152]:=", CellID->1279132408], Cell["\<\ Here are the first 1130 lucky numbers plotted along the square spiral:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.758307737030126*^9, 3.758307749085785*^9}, { 3.758308123305419*^9, 3.758308138992836*^9}, {3.758375357599758*^9, 3.758375360055704*^9}, {3.758380032855719*^9, 3.758380033816297*^9}, { 3.75838023056177*^9, 3.7583802470647984`*^9}, {3.758380344111113*^9, 3.758380351461541*^9}}, CellID->838162591], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "@", RowBox[{"Point", "@", RowBox[{"LuckySquareSpiralPoints", "@", "200"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.758374960742985*^9, 3.758374972060505*^9}, { 3.758375030188692*^9, 3.75837506018578*^9}, {3.758375182688324*^9, 3.758375182973997*^9}, {3.758380128182886*^9, 3.7583801289972897`*^9}, { 3.7584052802773123`*^9, 3.758405284392745*^9}, 3.759008191893168*^9}, CellLabel->"In[153]:=", CellID->711872390], Cell[BoxData[ GraphicsBox[PointBox[CompressedData[" 1:eJxlm3t8lNXRxzfJZndzgQQSSJTULCFAyIVsbpvrZid3tKhoqaV+qsZ7a7Gg 8ipV1NQLRgSLipRWq2mlmFqLoCiIYEZEpKAYFVERaVSKFIGES8hlL3l35zfh c/K+/PPwfXLOzJw5M/Oc5zxnJ1437/IbIy0Wyy1WiyV8/b//huRfd0eEUI83 CPYq/7/7uA51qCzC3y2MS2fVIP7u1b+z/p38eh/97Rwltx0UiyvbVE+GckDb HcSVYvT+J8p9em1TuSflkkBncOUi1c9qb7xgotqZ6PFru0QwbVfW+9Sq/TYo V+k4rBHwy/dyP4mmyu1kvlPt+RL3eYna2x+Af2O0XQ2u9Iq2C6ichdpO/txS vRXjS6EzOo5Ple8WTOXHlC9XHq927sd9PmrOS4vHc1LvN6I97Q9ivIdVjtxu rvVcofyUtqtW+34rnEbn48qOQcTDS/L3CXxfBMZ7u3KHjndBEPPYpP1SozDP H2m7HSp3wjDjSiu0XaPyf9Rvq3yY7x8JO6kYgcavyu10Oj8C8/wb5WVox4eD YIw7hW/W+xsC8EON8kzIo+fQn59SPZvRn1eq3KXarlG5EXppjep5Qfv1nIaf EGcZ9EAE/PKk9JtI7+A+Vyu/iSs7ouDPZcoPab9bgvDTCu231w//limvRDtq 0X6Vqne5trtH9WzSdhOUD2i7eD/i6BrhTHoaV46E32hA2k9CXHVds/U9ZT8S mqcpD6k/2xHIHVNVzvhI+OlhbRcXAT3fBcHXq96lPsxLjnKqynkL/WiBFf7v +QH+RX5OoRqRN4UTpd1kKsd9brFLPHWMUmb176Noxz3qv6vUbx9ou83q73bl zl7R16H6NI6m0E5tp/KJzqJdt9rRJfb2eH+u/Ky2W6F+bRbOoizEI81Qhlev 2Jqq/AaujPo0lVqUMd4UQr2cygv1/kH181zlLWjHs4flWODHTOUM1XNE5QRV D5plefqVm7XfMWWXYCodVoa9TlorPEE5m2Zo/Rxm1K9kHslp53garue4ZARn 0K+Vj+i83aXzgufAND4xUj5noh6pf7N1/ifSXGW76uE+xJVHuR/zS9cqL9J5 vGMET6NFOu5NwjnUL5yo/syhHjwQ1Z+55MQDp8OljDzOZQvyidYpt2jdOqZM Oq9ZEZi3GyCfWeJuyNus7dYFEBftyleoHWXSz8kvKc9HXvLlw3Yh/ygzAoz4 zqGd8iDr8cL+6fR+EPnjjAAHhPO4JQJ+iUM7tsgD3kE1wxwPOZein45vIj88 gifzScjhLSo3Ae1olrYDT6alIziPrJHgy0ZwNn82gjP4V2q3PwA5x0dwHpU5 MA+d4qd8Wt5tzpeLdkqcJGg+uehUAPPgiDA5n3OVHw+C54j+LCpEP5YL3+65 UpmOQ08G+nF7APl40QjO4UOQw7NU7nI4XOM/H3Kdd23NVLlpkEPOCJPzaYFy mdqZCvk0CL/RXpHvUp5C1iHwmegwJ9MK5c4UzOsZ5WZxXHcH9BeQDX7m5Ajw g5DLq5VPox3PlwfNBH4X93mTH/N/QBI0jW+BfM6UgpREa7XfWD/i4/wIk/No i/JGHcchya8pnKN27lS5N47gZE5Su/kdGYe3RO1M8yNeLFbM42qRW6CcSV3D 3IV5RL0pJEs/8phHcDr7hxn9OCsSTCPYRVjPFnCbxGWi1v9CbvkaeiwR4OY+ 1aO8zof4sUQjXp5TuRZZgKdq/Qix1I90KtR+Fh/ioF/5ch1XP8bNO9XuROmX Ql1oRw7tN1fH8VAA/XqyEB+oh4XkXIv4QD4V0fZezDvyp4i+lXXmNO5SPi76 C3m+jCODyiGHu2QcafRHtOPl0m8i3xtpch5nSx3K4D0qZ3Y85vkWlfOyrNcm ULXK2TeAeFqq7AnA7rFRiKciyKFMG+Lpc+UZ8YinaUMmJ/OHw+MuED90pOu4 +c+Ir1dgL53wIw5ni1wnof4VUTMEdDRLv2JaJw/cBN6gPF3sK+LZUfD7QeV2 kZOr6/kiniULlVQ6odyGhT2dhRxu/g/kXhIBXncK8WSLAs8Rv+Tz1cov+xE/ cyVvMvk3sJcvwn26UtuBi2iDMurBMLt4FeyhNizwta4WE+MFzdsaCV7Vj/j6 qx1x4BJ9xZToQXwtHwIv/CZ8tTOJnBK6uh9xgXVICeWLPaHxRIGfD4DXib+y 6TXI5eZRiK+vIIfbxB9J/Bb6cbvKARfpuIr5TrFvOm8bwdnsDJqcwQeUl4h9 kwnjLFHOo3rV8yL00NVW6HlCx73FATnn6Ti7GhBfXysnSn2wk1fH3SoTn0Q3 Qg/V90GvJQZxYhF7S8iCwk1zhpSlXzrPFDluapE8L2GHFYw6PcwuwnqxhEWK c7nHhX7c1Y14WjWC07ktCtzvQzzNFzmF3Klyu2Scufr8U7n8xFasp93cckDi Vp9nbkaAD9clNy+HXPol7OUg7CeKRjzu95vs4ieD4BapL04+MOyHbGjeHKV+ kLqVTyvVDzyIOK4UOQX0tehxU/IPiJt3pXspLZF+k/m8SPB70s/F86JMLuRv lJ8W+9y8ROZpOt0bMHkKnRzBGbpeLuXmm8P3uzsutIIrfZC7dQQXc0E04ipH 9VwXi/idEDA5m59S3p4secG+IPijQYwzyga5BWhHtnj0e0TH3eYVe7zvRYMD A2gXaYP/sJFUqlxIZT6TXfSGslXkZtGrfnD/94grrG/KKDiAOEq2mlzET47g Un48GnxfAJwm66hMCgbBZePDnIjHcYhlGGUrPffhP+x8Uf7QEYRcvh3zz8Fo xC/irJT9IjeLl6ieflkvDe/flLLjCOJ1eiTkWGUhlUPVKrdV/fIJ/MRTIIdW j4LcTthDXdhg8Fp0XNPhB/oM80J3CJcpF9EjgyYX0Bgf+KVRiKtX/ODZE2S+ 6d0AuHky4krCOsRXSF2cxlMlXsspZwBx9p4V/D3k8o54xO9jAZMzKB9yOFU2 8Bz0qYynnI98EL5v5wmQwxXynM7jF5X/PIC8+VzsL+GtGA+vHYX4vRX28ya3 yNXncGjeYL/3uOqZBnspEA3+t/rln3bkxdPqhysTEM9fB8EbLghzsu53llOn bNT1dNyqfljTE243mYZG8DSaBD30EymULvrSZrKbNojeYtoldpVTG15ICe/7 5eSS51s6B0VxBc3sR9w9EG1yCafaTC7nejv45UGTC2mBH9w6Gnm1OmCyk/wS lxW8UDYUJ/EvoIe39CPPtogcF+/0oV/PBYhvvD+E9PRrnkI/XwD9tELqejEX Qx9ljZH845d1nG31Mm4+YoHduuHqXazjbpaNoQR61gr+4gTy5nmRW0IR4r8K 5SJ6Qbl6DOLw+0GTs+lRn8kZ9KEf3POozKv3p0Pgh+S5msSVYkclbRO9E/n+ SJPz+EYrGM+BCr4uEXrGQA631iDe/4t+/Fw35CyLMnkyf2Y1OSTXDv5Int9u /ifGy+9jfNy5BHH4MwvarYF99LzK/Ukf4s5rM7mCHokBB0ZwOV82YHIJX6p+ Gp2EPDutfjgkG+FJ1AQ9dOoY9K6Mwfx0yvtCpbKbcvtNdpF7EJwrcnPpkPKc KWFOpIuC4LabxIEdWCdW0S1nEf+320wuYacdvF/sr+TsGMT7UR949ljE+5/8 Jmfq94kqlsvsv3o2KzffCr3ZVvDL8r4+lfeP4By+yAHeJ3aU8mwZTxbfqXpm XYy4xneTSp4jfkuhXZEqR/w2iQpV7hUip4Ai7SaX0C2qZ6H6cbEY7ubbA+D4 cWF2Mt4Pq6jtZ8ifjCjwkc/CmE710eAzR5E/aZBLd/dCzx9jkT8doqdKuYB+ OwDecxRx+jeR66GbpV8hL7OZ7OYIh8lVnB8LfqbP5FKK8oOvlnXGFJoq9nu4 Vd4b7fz7aPBff0A+2O3gj1VvX4zJFXyT+CGbP/ZB7p+OIi7HWNEOPJk+HsF5 dBns54t7kS9jVM9nZzHuJ+KQHxMHTC7iW6GHMlKgV8wNjTPxTeTlv5S7loUD utt7LcZDB2UdMI0GYD/Nk3VAGf0uzuQq+k64jK4WOzzKbsrsM9lFdw6Ad6Qg ziN94KX5yKfzg+BS3OeW8Wj3dABsyQtzKsljN8zhfy1rPBNknqvZIh+o0vnX MWBsQJVySazJ5fyvOMTp0l7IAZex2qtcyK2wl58UezN1/8fDmWJvqu53eXh+ HeIY+43VXAq9VB9rsofa48H2XpOr+K4+k938/YDJLu7D+KmtEHrfD5qcyJ9L nlbre3kKbbSD55xGnvbFmlxOf4g32UNDwuV0o9hVTX5Z9yTTHwNgZ7PERYcs NyxeijyM/JpmBUecRpzfZje5ih+LAz8IuXyV6snvM7mEovtNLqLXg+Aj14XZ QePkvpdfULk/xCPu7zmDduDQc0P17JMX0Cmc5AfPkQ8kDr5jCNwuL/h28kVA bvZhxHmRzeQ8isN4eJzoLaanYsAnT8Mvu0fBjofPmlzKN6rfckvDnMbLIuGH vTvD95N0XeelWw5B7+vqt5JTyOs3R5lcTVNl3RNaX8h4vcrFNHgWfEmaxCfN 8oHLbpOJ0v1yLy3/kQy8ow636dXvwpjD30WCv5R1VAm/YDXZy5/awG+dAq8Z hbi5ttfkMprcZ3IxpSAd2HUrFOL9n7hT3gcS+N4o8AYZf77WZeIrTyGfBiGX j6oesJv3YLws4s78Y+vFKrfZCYUdyjbYS7fawftOg/ePRr7d2WdyMU8fBG+Q /Z5cfkP99stK5NdG9VvzWOhJUr+tkv2gdHpEeea3YZ5EeG8e5hy6OwHzuScc 5/eTcgml+cBHZD2dRlcEwZ33IO5rh8BtfWHu8W5STt0mccSyv9xCFP8N8nFR JHixrOsrONdmchX/VXl3QORwmayLMygPcrlrIfRGQy4vfxd6boZc3ql6To1G vsk6JtTvkPgtmzNU7s5KxP0SjIed3WJ/xynVkyZ+mUgXqdzREm9uejIaPG8Q 49wrfirnj/3gdtmonM4/DpiczfJdNzQuCkDP0+qXdYx8e1T9MqcLej9VP+TC T3Sx3eQq8su6uIpmSh0m6p8ocUHr/OAeSaREShsCd2FDgVYpOw4irs9IHNSQ VdbJlXzABr5b6h1xWyLy6cSAyWV0y6DJbrrOZ3Ih7QiCW2phx/mStzXcLHoK eOUILmKs04bZw/eNYC+fET9X88tq15F05MGzfpOz+PwAuFO+vKXyCrWjWT70 J1BsBOSmip+nUmSUyfkUVF4MPTTXgfxcrH7+An7XfcvQ/MHvbAuanKnndGpC HeU/bMN4adZB5JstBryiD/2WyjraQ19K/tUol9I1g+CWtWGF3R3y3balhjpf R9zfEwE+IgdapvGDUeAFsq528SNWk908ygau6hO5fF6MxiX0cqHasW0EV9KO AZNLaY8PfIPse07HeZEQL38C+SnDDDG/Cbvnwi5+9qvwH/L4FOziPWJXMS+0 mVzBlnrkZ7rKtYjAPNqtcizdyIvvbCZX0c12cEsf8m+eAzwW9tNheU/14DvP OS5it9/kAq4NgD+YhPzdCztoVRPsunLI5GR8bw75FRs+3d5E9XuxbIROo7Xq 9/NPoI58EgMehXmgcbGIh8skHmooOxn5/d9+k8toYAD88ucSv/yoxGst7ZN1 fTnX2MF4b6/hT5KQnz/2g1dLIcqiT0dwJuG8S8iP4X+fvObBZ/Va7tomgd3x TAR407owpvNuK3j6MeTvHXaTPewbwV4ePxb5+zrGx7mZyJPzAuA58uEvUb87 1nD7RtFDp1Xv3q+Qr/Yok3PoCeWjEjde+rUD/Dv14/3IM93XqqGg2OHiMdBD /smw40OMl+QSfHXrz6GXnJ140N4WCXbIQbcUWhYDjlS9++R9yUuHZD5rlcvp 8QGTSyltENzejvyV/faWWpq9N8yTeUmUydM41QrOlverQt4WDX7vrMjhFtX7 9IDJJfSZD2yRg0HZ9HBA+QqJX4qW502I5X12Ir8eZXIe90IPtxxF3XjPAaZe ySveJXFVyYn9kAsuZZfasULiagrLeaoQ82LkhTy+Qjz3C+TFLNU74Szytcdh ci0lxoKvhx5yJiN/PT6Ti1jHR5QFvXIuK+QnS23YwT0dJ4d5EewYh/FTixww TNK6UksseTWZ/mUHd0leldFxh8mh56+891XQBZJntcpuahwE98t7YC6t9Jvs JHwXDsnRBZssUyx1lLgaeXUqEuyQA5yTeHGUyflcGw22/jfMlbzZAX5A1t21 /FwcuP6syUS2fnBVCuzeOWByMY0eAne9CbtmS37XcevH0PuyDbxd3rdL+Qu7 yZX8G4fJHk6VuMtiC8bPLom7VP2+F4qjF5FX+Jxax0f2Ir9xnq+OF0jcFdAu q8mltFTtqOhF/kp8hHhQ52GmxL+bM9TPq+T7k5OPYnzU/JIoxLo05Cf6B+y4 W/38S4n/SfSS1eQcwj5ZHW0QQUUUaze5hCJjTfbSHPlQn0FJ8tyoo2Y5wOgg WZ6GmOWAY49XltEtddQmH5zt/EoEeNbzqA8XRoLbP0KeyntJiPd+j7x8zW5y Ff8uBrz4jOjhB+MRt0/2gW3y3llJFT5wvLyfT8d5uZY67iyFHUugl898CL3y HfUc5/F+6OF7T6Me/ELiyMvHeyF30/QwZ/OvfCZn8F/8YP4f5OUY+INXS9y4 aJnqAbvpWhv4chlPDcXEmlxHNXFgie8QPyB5WMmrR3A5F+o8OOTgUBpnqB/9 klcTaZ0DfJ/kVQVlQS51qN7X4jG/CRJ3dcpE3WfBN4lfqyi/H/yB+DWTPgqY 7KR5QbBrN/LsUrnU05/kfb6I8+0mV/IrMeC7oIcPSsJU038GTXbRbj94Swn0 4nxXHS+Ug3+p9AfoYScKUMdXEeBWOZCUouc/hjmd34kC1++SvOQXo8EZct6h gJfZTS5lXxz4iVPI7wrxRzW/BX8pV/CQjmOB+COXdw+a7OT1Oo4jN6Be/AT+ 49RnxE5KV7t3HEbe5dtM9tBGB/h6eZ8m8sWYXEN/jgXvHsA8bEP94ySfyS7+ XOelCwevvDfDH7SoE/XhFavJOfQM7KDqI6gPd8Sa7KVr4sHpqNP00/B+QWj9 97bkSz29JPPooXV94LaXUB+2S17W0xXi50Imu8luXuowuYrviwU/JfFfz9tl 36WUKgdMLqHHBk0uoCIfuLUc9eCeIDhRDm4m0wSpS/XcdR7qQ1IUeOEO1Icf Qy9Xyb6N7neF+LmTyO+nZLzE1Wcgd8oE5OXBsyaX8PR+k4t4n/JMN+rJnkGT M/gCP9j1ZZgdPF7tbn4V9eVt5f2HUF/WWGEXuJjORpvspuds4I0BzIPrBtSL a3QeWg6GFXZ7f452dEbirhDfPc+xm/4eB777NOqHfxTmv1PisJ76ZXxuOjBg sou6fOCeUuTxoQBYwrH/LQ9+SNJALfjC3nFM2bkceYzzLw3kOIR6gu+HDbRF 4q6efyHv0TWUeha8SfZXqmn/oMkukvehEM+XfZ8sPV8Xmn/5XptK4yGXZ3wD Pc4Yk8t5UazJHs6OM9nLzh+hPmxSu8Bunt9nciF/0A+mCrGD96mdlunIS+xn 1DPLAfupFIyEnq5vUQ/S1K75J5H/U9SO5b3wazPqKTcPmuxi1nngYuid7zc5 k3FcUeelefPWtkidF/nhQ7qeb2wg2g271o3gHHI6wG2on4RzecPspfbwwjD0 3F4m+dKgXEPeXvAs8Y+XXjhrcin9esDkIpJzJiFuFv9MZo/EewOtE/+U8YRY k6u5IB48R/K2ga9KBB84YzJRMvTwZifqicsHXlCD+nFoBGfTzIDJGSS/02hp YNdgUOpJWSQ49d6wHUk83wZu/Lfkrda5YXZz12jwC93I7xXhuA6tA+LUbnAN 33EKnJWO+nJNH7hNDqAn85AfTAOoH6+pnWwL67GTLLtC3Pxg+D8TqFTt/qIL eT8v2uRqejEG/Dj00r+l7tXyJzpPb2vda+0zuZTP9JtcxIughxxPiD+oMNLk CfStHVyrdWuVw+QyOqDzOFHsqKUZo02up59LHaij41KPGuhVyfsqerjPZDf9 c8DkYrpxEHyDB/UpEADvlLqQSPI6bWmkZ2X/N59/agdfonVC3iPPcTkfjzXZ y+NGgX+AHbxLfmhRRst84BVyXi+XmvwmZ+nviBpZLje+42mwguduDrebxHfY TM7njdDDz8h+TA0/L/t6Ndx0CnIX1SLPU1Sv85gM1Hv/ENghGyYp1Kd6H9qK PM+JMjmHvlfedhB5/hT8wdfKflUtbYw3uYF+GA3+ssfkev4fnZd9WicjIuCn WbKATqDfRoLbW1F/vsF4KVvyuoj+bDe5hC6MM9lL5dBL46RO1tH6BJMbKEHy vpbWyvOskS6QvK+kG/pMLqJfDIKrCHXgCx+4Rz6oO2hm+HZLIyUOIe8XR4Jb 70fey/MrxCclr2v4ptEm1/G3CSbXY785xOt7RA+njUWcrx8Al2XCrtsC4Pmy z5RBt0l9aeTlss+UxwV28M6vUG/Wx5lcxQWjwIfC+z2h95314X3CUL3JVr3g Wj6mfN0k5PHb8A9vlx8UTudatatVfnCXhnO+IV54O/J8H/zDVfIDtzxqs4Kf O4A8b7ebXEG5MSZX0QnlS0/A70H4i8d0m9zA/4Qd1O+FXfMGTc7m0z6TM7g8 CO6SH6w5+MNo+N0qdc9Fl9lNLqY/xJhcQV/DnxQp/iHalYj4ukHivFG5jnB+ upFWyD56FT10FtwWLwFP+L1WEzWfDhuUwNsjwXMPor4ccpjs5UWjwG7kG+9M MLmOlyaCWyXOG/kL2R+sJ/lOFOLmH0sdoLVBMK8McyrtEHOa2PI3adgxOg48 az/q2p/iTfbwrrHI657jkAOu4xk9Jtdy4kmTSc9PN/IKKaxlzL0mF3Jqv9r5 qfhDfwfVxHP3o960OEyu1P2SJnYfR57zaJPrqRX+wTo95HeX1N8qtvWaXMFX 95lczG8MgJtl3z6Xb4K/qGWMOEp/btVIlq9RRy/ReaO7UK9kXR7iNjmflkNr 4U/q/Br16U74k45IvSayjTa5lq5ONLmBlkg+1tM3Em9NyqH102lwsuRnKfn6 wFmSn9l03Ac+hnzjibI+aqJYWf808R/D+5yh9c8n/eBC2ecswfewc1yA5XKI l5ej7l0nda6J5+9A3cu2g59dj/qzzQHeI/uihXwiAXxzeP/8/lrenGhyHV8+ 1uQGviDJ5EY+moQ8jzoBO9ovRZ43DZiczePU7jmyrz+ZtkZBTu4XqCc+jJ/H H4NfylVvywmT63nxKfDtUm+9jPfaYS7lrH6TC3hVEOxsCjump+Mm+Iv4tvAE dHvxvaiJ0jbCrn3R4MdRn2m1zeRCWhhncjVdKvnTQB9Jnjcp19PzPeCqC8Oc RUM+kzPpIz9Y0ujSbZ5/y39mkPMN5Lnsz4W4Vc61pXO6Fbz9jTBP5Y5o8Hrk E3ePMbmBO8aa3MTXJIMfPGFyE807bXINJfWC35b97Wp6tM/kMhoaMLmQ/g67 2HEV7LzYBn5oLex8BnbwX36AnbcmmdzAY2QftYF/pHaBa/jWk+AM2Vet1nMn w+zib/rB9XLQMIsfHQR3XYW8/yn8yQt/hrz/OBK85R9iF/1W7T4o+65F2Ic/ x+XUEAvuPoq89ySA3/0B83atjKOJrz8F3jYFdr7Wa7KbP4e/6KGLYef7UZiH Ra/CDpyjmUHVX0LvY6PBzx+D3qJEk+vplbEmN9F5kn+1VCbvIzOUa2j0KXCh 2OGh5WdMLqAVA+Cdq8KcRrJfHmLn9ZInXimvLTPo2dfCeqbxBTbwHrHTxbvs Jrt5ZqzJZZwRZ3IV74kHf691pH0seKPk6wyeLfNaQr8fMLmIUvzgdpnnbHo/ YHIGPR8Ez/o7xiHnEVtmMP0N43glCrxOfmibxKUYB8+ROJjM3vC+baiuVJ+A HDDxGviT78sV//GVp00u5SO9YP+cME9hqw/cvz7Myfyk2um4JKxnAq2NhF6r /C5hIrWqXQ/IOb1iWu0AvxPeFw6tW+SH6+e4lhYkmDyDlieDB07rvMkPs8v5 kbMmF3EB/EOWJ1H/4oaUD4QTptv7K+ilrn0yj/Qw9NL8cJzfX0PXjDa5lo4n mtxA9ySZPIOOSF400kqpO8NcT5d0m1xHsp4NcZs8H3Lp7kGTM6nQD3bJ88HL 1ZIXF1LqMdSNm5LA2ZJ/M3hQ6kbo+dwHPpODerXBBz7yM+hplry/kF2zwvdT OM0GTpXvpJP46ChwvHwnquSHEsE2qQPE140xuYY3jTO5kVeON7mJF6Sgbhw+ CjvADbz4uMk1bDsJ7rxKxs+L1e4wWRa8vxW/45/BzfWoZzdFqd3y3ayAdthN LqI1DpO9dFjHtVT2iWtoTYLJtbQ40eQGmgL/8v8CwGk9/g== "]]]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.758405329154948*^9, 3.759008294214582*^9, {3.759503929674161*^9, 3.7595039411493998`*^9}}, CellLabel->"Out[153]=", CellID->1700729752] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"SquareSpiralPoints | 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->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[631, 23, 168, 7, 70, "Subsection",ExpressionUUID->"d08eda06-3dbf-4852-b39e-58d9d2764f63", CellID->462042388], Cell[802, 32, 304, 5, 70, "Text",ExpressionUUID->"6a47d802-13b3-4aed-a33d-9f9ac2926e61", CellID->13078159], Cell[CellGroupData[{ Cell[1131, 41, 7275, 182, 70, "Input",ExpressionUUID->"e509d081-d094-4a2b-8dcd-7b69ffc4f6d2", CellID->443871870], Cell[8409, 225, 771, 27, 70, "Output",ExpressionUUID->"fb954f93-5c6e-4658-9a7c-2724f4753581", CellID->206095009] }, Open ]], Cell[CellGroupData[{ Cell[9217, 257, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"88b5b6c9-0aa2-4341-8925-653643610dd7", CellID->1339538443], Cell[9365, 263, 250, 6, 70, "Text",ExpressionUUID->"b00cd8ea-0bfc-4db1-8272-8e1bd9604786", CellID->697960947], Cell[CellGroupData[{ Cell[9640, 273, 8516, 208, 70, "Input",ExpressionUUID->"3640a2cd-d57b-49fe-aace-61f7581f53d8", CellID->1710216102], Cell[18159, 483, 762, 14, 70, "Output",ExpressionUUID->"24f6e248-42ea-4f86-8d59-a96fad86ef79", CellID->1355504434] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18970, 503, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"06717aff-75a6-406a-b2cb-38cbd36a2a20", CellID->1551540000], Cell[19118, 509, 319, 5, 70, "Text",ExpressionUUID->"208a8f4a-8438-4974-b660-c085abf01263", CellID->1925797651], Cell[CellGroupData[{ Cell[19462, 518, 16174, 388, 70, "Input",ExpressionUUID->"673556ed-8a22-4337-868d-1b687830f7fc", CellID->509996249], Cell[35639, 908, 3920, 68, 70, "Output",ExpressionUUID->"9679f75b-c5cf-4d94-af97-646ce490fff9", CellID->143053481] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39608, 982, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"b3185b44-78aa-4c7c-90c7-59d1082fd5ae", CellID->1982749482], Cell[39756, 988, 243, 9, 70, "Text",ExpressionUUID->"81ff4a91-145e-4ae9-9504-bd859562d9c7", CellID->2013137765], Cell[CellGroupData[{ Cell[40024, 1001, 7996, 194, 70, "Input",ExpressionUUID->"4f95b5ee-47a7-441d-a092-098c4a0592cf", CellID->744314247], Cell[48023, 1197, 329, 9, 70, "Output",ExpressionUUID->"e1bffa9f-b737-4ff2-bd44-bfc6c0b6c4c5", CellID->1024178883] }, Open ]], Cell[CellGroupData[{ Cell[48389, 1211, 494, 16, 70, "Input",ExpressionUUID->"61f3bae4-3ab9-4aac-8c53-38088709c972", CellID->1155380441], Cell[48886, 1229, 359, 10, 70, "Output",ExpressionUUID->"dbb4c35a-d1c0-42d5-8f7d-13a017d0820f", CellID->2003083939] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49306, 1246, 167, 7, 70, "Subsection",ExpressionUUID->"ca7786f4-149a-4e2d-9bcf-9b1db42ecb86", CellID->540091361], Cell[49476, 1255, 455, 10, 70, "Text",ExpressionUUID->"10737f36-2f07-4d62-9e3d-9830a2b6b173", CellID->1039848554], Cell[49934, 1267, 8058, 199, 70, "Input",ExpressionUUID->"dbf9ae24-a9d2-4b5a-ae9f-580116649d05", CellID->1346780868], Cell[57995, 1468, 292, 7, 70, "Text",ExpressionUUID->"990ec454-5ee4-486f-9ff7-64d640c2b31d", CellID->1077324486], Cell[CellGroupData[{ Cell[58312, 1479, 17591, 409, 70, "Input",ExpressionUUID->"e34d3dc8-de85-4b4c-abc6-445048c386e3", CellID->1012815160], Cell[75906, 1890, 771, 17, 70, "Output",ExpressionUUID->"7fb59a7f-acbb-452d-a141-3dc5cfcd606b", CellID->240069952] }, Open ]], Cell[76692, 1910, 219, 4, 70, "Text",ExpressionUUID->"2f6c5e75-f471-4340-a0f1-75de3715afaf", CellID->136051837], Cell[CellGroupData[{ Cell[76936, 1918, 538, 17, 70, "Input",ExpressionUUID->"64a488f1-39b5-4bf4-9cdc-9923dca8508f", CellID->1471469038], Cell[77477, 1937, 211, 6, 70, "Output",ExpressionUUID->"1d1192ae-1797-4365-930e-01966e4e843e", CellID->341408420] }, Open ]], Cell[CellGroupData[{ Cell[77725, 1948, 184, 5, 70, "Input",ExpressionUUID->"8756a6e8-c9b2-4725-99c6-2acb7c4b6e20", CellID->352636360], Cell[77912, 1955, 187, 5, 70, "Output",ExpressionUUID->"0dba0681-0138-4eb4-8de8-db2a6348d206", CellID->417035367] }, Open ]], Cell[78114, 1963, 387, 8, 70, "Text",ExpressionUUID->"3fd15232-1926-4093-88b9-548260c2fbf4", CellID->1606466798], Cell[CellGroupData[{ Cell[78526, 1975, 508, 11, 70, "Input",ExpressionUUID->"492d0653-2923-4126-a122-58e95e7392a1", CellID->2071963721], Cell[79037, 1988, 17290, 287, 70, "Output",ExpressionUUID->"d7fd1b48-9129-4920-adbf-be140586bc11", CellID->1616311260] }, Open ]], Cell[CellGroupData[{ Cell[96364, 2280, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"9743c419-09a3-4df2-b822-cf57dc933831", CellID->653454811], Cell[96511, 2286, 419, 12, 70, "Text",ExpressionUUID->"87a3b811-8060-446f-9b24-22ff30cf6fa7", CellID->1612587837], Cell[CellGroupData[{ Cell[96955, 2302, 405, 10, 70, "Input",ExpressionUUID->"95323849-cdae-4182-8125-a29e9feeb34c", CellID->981272946], Cell[97363, 2314, 260, 6, 70, "Output",ExpressionUUID->"7700316c-0ef3-4738-b198-ce021b6e5d92", CellID->1135753527] }, Open ]], Cell[97638, 2323, 465, 10, 70, "Text",ExpressionUUID->"8ca958e4-9163-4b83-b006-300e34c06ed5", CellID->1940924303], Cell[98106, 2335, 8286, 201, 70, "Input",ExpressionUUID->"c0e26dea-cb99-49d6-8157-70cea6aba431", CellID->1279132408], Cell[106395, 2538, 442, 9, 70, "Text",ExpressionUUID->"35cbf260-5657-4dd7-9ff5-41f0d41d2cf3", CellID->838162591], Cell[CellGroupData[{ Cell[106862, 2551, 482, 10, 70, "Input",ExpressionUUID->"70587697-ff6b-489d-aac6-e81a7045eebe", CellID->711872390], Cell[107347, 2563, 10738, 180, 70, "Output",ExpressionUUID->"1a8bec10-fbbe-45c7-bd9a-52f4631f4c5f", CellID->1700729752] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)