Cell[CellGroupData[{Cell[BoxData[{
 RowBox[{
  RowBox[{"openLockers", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", "100", "}"}]}], "]"}]}], 
  ";"}], "
", 
 RowBox[{
  RowBox[{
   RowBox[{"student", "[", "k_", "]"}], ":=", 
   RowBox[{"ReplacePart", "[", 
    RowBox[{"openLockers", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", "i", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "k", ",", "100", ",", "k"}], "}"}]}], 
      "]"}]}], "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.7608205662494917`*^9},
 CellID->613366157],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "
", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"graphical", ",", "m", ",", "textual"}], "}"}], ",", 
     "
", 
     RowBox[{
      RowBox[{"graphical", "=", 
       RowBox[{"ArrayPlot", "[", "
", 
        RowBox[{
         RowBox[{"m", "=", 
          RowBox[{"FoldList", "[", 
           RowBox[{"Times", ",", 
            RowBox[{"-", "openLockers"}], ",", 
            RowBox[{"student", "/@", "studentList"}]}], "]"}]}], ",", 
         "
", 
         RowBox[{"ColorRules", "->", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "1"}], "->", "Black"}], ",", 
            RowBox[{"1", "->", "White"}]}], "}"}]}], ",", 
         RowBox[{"Mesh", "->", "True"}], ",", 
         RowBox[{"ImageSize", "->", 
          RowBox[{"{", 
           RowBox[{"400", ",", "400"}], "}"}]}]}], "]"}]}], ";", 
      "
", 
      RowBox[{"textual", "=", 
       RowBox[{"Graphics", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
           "
", 
           RowBox[{"Inset", "@", 
            RowBox[{"Column", "[", 
             RowBox[{"{", "
", 
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{
                "\"\<students sent:\>\"", ",", "\"\<Label\>\""}], 
                "]"}], ",", "
", 
               RowBox[{"Grid", "[", 
                RowBox[{"Partition", "[", 
                 RowBox[{"studentList", ",", "20", ",", "20", ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", "}"}]}], "]"}], "]"}], ",", 
               "
", "\"\< \>\"", ",", 
               "
", 
               RowBox[{"Style", "[", 
                RowBox[{
                "\"\<open lockers:\>\"", ",", "\"\<Label\>\""}], 
                "]"}], ",", "
", 
               RowBox[{"Grid", "[", 
                RowBox[{"Partition", "[", 
                 RowBox[{
                  RowBox[{"Flatten", "[", 
                   RowBox[{"Position", "[", 
                    RowBox[{
                    RowBox[{"Last", "[", "m", "]"}], ",", "1"}], 
                    "]"}], "]"}], ",", "20", ",", "20", ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", "}"}]}], "]"}], "]"}]}], 
              "
", "}"}], "]"}]}]}], 
          "
", "}"}], ",", 
         RowBox[{"ImageSize", "->", 
          RowBox[{"{", 
           RowBox[{"400", ",", "400"}], "}"}]}]}], "]"}]}], ";", 
      "
", 
      RowBox[{"Deploy", "@", 
       RowBox[{"If", "[", 
        RowBox[{"display", ",", "graphical", ",", "textual"}], 
        "]"}]}]}]}], "
", "]"}], 
   "
", ",", "
", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"display", ",", "True"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"True", "->", "\"\<graphical\>\""}], ",", 
       RowBox[{"False", "->", "\"\<textual\>\""}]}], "}"}], ",", 
     
     RowBox[{"ControlType", "->", "SetterBar"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"studentList", ",", 
       RowBox[{"Range", "[", "100", "]"}], ",", "\"\<students\>\""}], 
      "}"}], ",", "
", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Range", "[", "100", "]"}], "->", 
        "\"\<all\>\""}], ",", "
", 
       RowBox[{
        RowBox[{"RandomSample", "[", 
         RowBox[{
          RowBox[{"Range", "[", "100", "]"}], ",", "100"}], "]"}], 
        "->", "\"\<all, random order\>\""}], ",", 
       "
", 
       RowBox[{
        RowBox[{"2", "*", 
         RowBox[{"Range", "[", "50", "]"}]}], "->", 
        "\"\<evens\>\""}], ",", "
", 
       RowBox[{
        RowBox[{
         RowBox[{"2", "*", 
          RowBox[{"Range", "[", "50", "]"}]}], "-", "1"}], "->", 
        "\"\<odds\>\""}], ",", " ", "
", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Range", "[", "10", "]"}], "2"], "->", 
        "\"\<squares\>\""}], ",", "
", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Range", "[", "100", "]"}], ",", "SquareFreeQ"}], 
         "]"}], "->", "\"\<square frees\>\""}], ",", 
       "
", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Range", "[", "100", "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SquareFreeQ", "[", "#", "]"}], "&&", 
            RowBox[{"EvenQ", "[", "#", "]"}]}], "&"}]}], "]"}], 
        "->", "\"\<even square frees\>\""}], ",", 
       "
", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Range", "[", "100", "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SquareFreeQ", "[", "#", "]"}], "&&", 
            RowBox[{"OddQ", "[", "#", "]"}]}], "&"}]}], "]"}], 
        "->", "\"\<odd square frees\>\""}], ",", 
       "
", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Range", "[", "4", "]"}], "3"], "->", 
        "\"\<cubes\>\""}], ",", "
", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Sort", "@", 
           RowBox[{"Flatten", "@", 
            RowBox[{"Outer", "[", 
             RowBox[{"Times", ",", 
              SuperscriptBox[
               RowBox[{"Range", "[", "4", "]"}], "3"], ",", 
              RowBox[{"Select", "[", 
               RowBox[{
                RowBox[{"Range", "[", "100", "]"}], ",", 
                "SquareFreeQ"}], "]"}]}], "]"}]}]}], ",", 
          RowBox[{
           RowBox[{"#", "<=", "100"}], "&"}]}], "]"}], 
        "->", "\"\<cubes times square frees\>\""}], ",", 
       "
", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Select", "[", 
          RowBox[{
           RowBox[{"Range", "[", "10", "]"}], ",", "SquareFreeQ"}], 
          "]"}], "2"], "->", "\"\<squares of square frees\>\""}],
        ",", "
", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Range", "[", "100", "]"}], ",", "PrimeQ"}], "]"}], 
        "->", "\"\<primes\>\""}], ",", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Range", "[", "100", "]"}], ",", 
          RowBox[{
           RowBox[{"Not", "[", 
            RowBox[{"PrimeQ", "[", "#", "]"}], "]"}], "&"}]}], "]"}], 
        "->", "\"\<composites\>\""}]}], "}"}]}], 
    "
", "}"}], ",", "
", 
   RowBox[{"SaveDefinitions", "->", "True"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35696210375764*^9, 3.389000335969141*^9, {3.389001234192873*^9, 
   3.38900123643906*^9}, {3.389011005413168*^9, 
   3.3890110113037925`*^9}, {3.3890110719912925`*^9, 
   3.389011072288168*^9}, {3.389461382447138*^9, 
   3.389461384840579*^9}, 3.7608205662409782`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`display$$ = 
    True, $CellContext`studentList$$ = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
     11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 
    27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 
    43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 
    59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 
    75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 
    91, 92, 93, 94, 95, 96, 97, 98, 99, 100}, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`display$$], True}, {
      True -> "graphical", False -> "textual"}}, {{
       Hold[$CellContext`studentList$$], {1, 2, 3, 4, 5, 6, 7, 8, 9, 
       10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25,
        26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 
       41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56,
        57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 
       72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87,
        88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}, 
       "students"}, {{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 
        15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 
        45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 
        60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 
        75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 
        90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100} -> 
       "all", {35, 25, 60, 93, 30, 59, 76, 61, 100, 77, 81, 88, 28, 
        26, 82, 24, 22, 83, 75, 53, 97, 91, 13, 70, 39, 92, 46, 95, 
        37, 14, 43, 7, 44, 51, 65, 50, 45, 56, 5, 99, 52, 27, 16, 3, 
        84, 85, 69, 41, 71, 33, 12, 34, 94, 78, 89, 96, 63, 17, 47, 
        36, 98, 15, 29, 1, 80, 58, 68, 32, 19, 72, 62, 48, 74, 57, 10,
         31, 67, 40, 42, 66, 49, 87, 79, 2, 4, 9, 64, 21, 8, 11, 73, 
        55, 23, 20, 86, 6, 90, 18, 38, 54} -> 
       "all, random order", {2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 
        24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 
        54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 
        84, 86, 88, 90, 92, 94, 96, 98, 100} -> 
       "evens", {1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 
        29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 
        59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 
        89, 91, 93, 95, 97, 99} -> 
       "odds", {1, 4, 9, 16, 25, 36, 49, 64, 81, 100} -> 
       "squares", {1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 
        22, 23, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 
        46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 
        71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 
        95, 97} -> 
       "square frees", {2, 6, 10, 14, 22, 26, 30, 34, 38, 42, 46, 58, 
        62, 66, 70, 74, 78, 82, 86, 94} -> 
       "even square frees", {1, 3, 5, 7, 11, 13, 15, 17, 19, 21, 23, 
        29, 31, 33, 35, 37, 39, 41, 43, 47, 51, 53, 55, 57, 59, 61, 
        65, 67, 69, 71, 73, 77, 79, 83, 85, 87, 89, 91, 93, 95, 97} -> 
       "odd square frees", {1, 8, 27, 64} -> 
       "cubes", {1, 2, 3, 5, 6, 7, 8, 10, 11, 13, 14, 15, 16, 17, 19, 
        21, 22, 23, 24, 26, 27, 29, 30, 31, 33, 34, 35, 37, 38, 39, 
        40, 41, 42, 43, 46, 47, 48, 51, 53, 54, 55, 56, 57, 58, 59, 
        61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78, 79, 80, 
        81, 82, 83, 85, 86, 87, 88, 89, 91, 93, 94, 95, 97} -> 
       "cubes times square frees", {1, 4, 9, 25, 36, 49, 100} -> 
       "squares of square frees", {2, 3, 5, 7, 11, 13, 17, 19, 23, 29,
         31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97} -> 
       "primes", {1, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 
        24, 25, 26, 27, 28, 30, 32, 33, 34, 35, 36, 38, 39, 40, 42, 
        44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 
        63, 64, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 81, 
        82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 98, 99, 
        100} -> "composites"}}}, Typeset`size$$ = {
    400., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`display$13021$$ = 
    False, $CellContext`studentList$13022$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`display$$ = 
        True, $CellContext`studentList$$ = {1, 2, 3, 4, 5, 6, 7, 8, 9,
          10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 
         25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 
         40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 
         55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 
         70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 
         85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
         100}}, "ControllerVariables" :> {
        Hold[$CellContext`display$$, $CellContext`display$13021$$, 
         False], 
        Hold[$CellContext`studentList$$, \
$CellContext`studentList$13022$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
      Module[{$CellContext`graphical$, $CellContext`m$, \
$CellContext`textual$}, $CellContext`graphical$ = 
         ArrayPlot[$CellContext`m$ = 
           FoldList[Times, -$CellContext`openLockers, 
             Map[$CellContext`student, $CellContext`studentList$$]], 
           ColorRules -> {-1 -> Black, 1 -> White}, Mesh -> True, 
           ImageSize -> {400, 400}]; $CellContext`textual$ = Graphics[{
            Line[{{0, 0}, {0, 1}, {1, 1}, {1, 0}, {0, 0}}], 
            Inset[
             Column[{
               Style["students sent:", "Label"], 
               Grid[
                
                Partition[$CellContext`studentList$$, 20, 20, {1, 
                 1}, {}]], " ", 
               Style["open lockers:", "Label"], 
               Grid[
                Partition[
                 Flatten[
                  Position[
                   Last[$CellContext`m$], 1]], 20, 20, {1, 
                 1}, {}]]}]]}, ImageSize -> {400, 400}]; Deploy[
          
          If[$CellContext`display$$, $CellContext`graphical$, \
$CellContext`textual$]]], 
      "Specifications" :> {{{$CellContext`display$$, True}, {
         True -> "graphical", False -> "textual"}, ControlType -> 
         SetterBar}, {{$CellContext`studentList$$, {1, 2, 3, 4, 5, 6, 
          7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
           23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37,
           38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52,
           53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
           68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82,
           83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97,
           98, 99, 100}, 
          "students"}, {{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 
           14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28,
            29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 
           43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,
            58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 
           72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86,
            87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100} -> 
          "all", {35, 25, 60, 93, 30, 59, 76, 61, 100, 77, 81, 88, 28,
            26, 82, 24, 22, 83, 75, 53, 97, 91, 13, 70, 39, 92, 46, 
           95, 37, 14, 43, 7, 44, 51, 65, 50, 45, 56, 5, 99, 52, 27, 
           16, 3, 84, 85, 69, 41, 71, 33, 12, 34, 94, 78, 89, 96, 63, 
           17, 47, 36, 98, 15, 29, 1, 80, 58, 68, 32, 19, 72, 62, 48, 
           74, 57, 10, 31, 67, 40, 42, 66, 49, 87, 79, 2, 4, 9, 64, 
           21, 8, 11, 73, 55, 23, 20, 86, 6, 90, 18, 38, 54} -> 
          "all, random order", {2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 
           22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50,
            52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 
           80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100} -> 
          "evens", {1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27,
            29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 
           57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85,
            87, 89, 91, 93, 95, 97, 99} -> 
          "odds", {1, 4, 9, 16, 25, 36, 49, 64, 81, 100} -> 
          "squares", {1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 
           21, 22, 23, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42,
            43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 
           69, 70, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91,
            93, 94, 95, 97} -> 
          "square frees", {2, 6, 10, 14, 22, 26, 30, 34, 38, 42, 46, 
           58, 62, 66, 70, 74, 78, 82, 86, 94} -> 
          "even square frees", {1, 3, 5, 7, 11, 13, 15, 17, 19, 21, 
           23, 29, 31, 33, 35, 37, 39, 41, 43, 47, 51, 53, 55, 57, 59,
            61, 65, 67, 69, 71, 73, 77, 79, 83, 85, 87, 89, 91, 93, 
           95, 97} -> "odd square frees", {1, 8, 27, 64} -> 
          "cubes", {1, 2, 3, 5, 6, 7, 8, 10, 11, 13, 14, 15, 16, 17, 
           19, 21, 22, 23, 24, 26, 27, 29, 30, 31, 33, 34, 35, 37, 38,
            39, 40, 41, 42, 43, 46, 47, 48, 51, 53, 54, 55, 56, 57, 
           58, 59, 61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78,
            79, 80, 81, 82, 83, 85, 86, 87, 88, 89, 91, 93, 94, 95, 
           97} -> "cubes times square frees", {1, 4, 9, 25, 36, 49, 
           100} -> "squares of square frees", {2, 3, 5, 7, 11, 13, 17,
            19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 
           79, 83, 89, 97} -> 
          "primes", {1, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 
           22, 24, 25, 26, 27, 28, 30, 32, 33, 34, 35, 36, 38, 39, 40,
            42, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 
           60, 62, 63, 64, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78,
            80, 81, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 
           96, 98, 99, 100} -> "composites"}}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{445., {255., 261.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`openLockers = {1, 1, 1, 1, 1, 1, 1,
         1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
         1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
         1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, $CellContext`student[
         Pattern[$CellContext`k, 
          Blank[]]] := ReplacePart[$CellContext`openLockers, -1, 
         
         Table[{$CellContext`i}, {$CellContext`i, $CellContext`k, 
           100, $CellContext`k}]]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.760820566241241*^9},
 CellID->123010333]
}, {3}]]