(* Content-type: application/vnd.wolfram.mathematica *)
(*** File ***)
(* http://www.wolfram.com/nb *)
Copyright By PowCoder代写 加微信 powcoder
(* CreatedBy=’Mathematica 11.0′ *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 57705, 1245]
NotebookOptionsPosition[ 49447, 1129]
NotebookOutlinePosition[ 49921, 1146]
CellTagsIndexPosition[ 49878, 1143]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[StyleBox[“MAST 232 – Assignment #1”,
Background->None]], “Title”,
CellChangeTimes->{{3.693605412278184*^9, 3.693605419557253*^9}},
TextAlignment->Center,
Background->RGBColor[
0.88, 1, 0.88],ExpressionUUID->”aa6820c9-43a0-4aa4-898c-ac6c39d92ce3″],
Cell[“Replace this text with your name.”, “Subtitle”,
CellChangeTimes->{{3.693778716573846*^9, 3.6937787266436853`*^9}, {
3.693784687405916*^9, 3.693784747833568*^9}, {3.714478102733878*^9,
3.714478104909639*^9}, 3.7253666891485543`*^9},
Background->RGBColor[
0.87, 0.94, 1],ExpressionUUID->”11d0e051-282c-40d7-af60-ff8598972949″],
Cell[BoxData[
RowBox[{“Score”, “=”,
RowBox[{“Q1”, “+”, “Q2”, “+”, “Q3”, “+”, “Q4”, “+”, “Q5”,
RowBox[{“(*”,
“do”, ” “, “not”, ” “, “write”, ” “, “in”, ” “, “this”, ” “, “box”}],
“*)”}]}]}]], “Input”,
CellChangeTimes->{{3.69378064521231*^9, 3.693780659514518*^9}, {
3.714478107589443*^9, 3.71447811239776*^9}, {3.775689654703163*^9,
3.7756896561096125`*^9}, 3.820626530305876*^9},
CellLabel->
“In[176]:=”,ExpressionUUID->”7515d2f5-a1ba-413d-a4df-827eee4d2a75″],
Cell[CellGroupData[{
Cell[“Instructions”, “Section”,
CellChangeTimes->{{3.693785144061371*^9,
3.6937851458273363`*^9}},ExpressionUUID->”1b681056-8d65-4ac3-8b9a-\
68b1ebf8a228″],
Cell[TextData[{
“Your solution must be reasonably easy to read, and your final answer must \
StyleBox[“clearly indicated.”,
FontSlant->”Italic”],
” Avoid including large amounts of unnecessary output. ”
}], “Item”,
CellChangeTimes->{{3.6937851724954767`*^9, 3.693785251358609*^9}, {
3.693785306598282*^9, 3.693785308366208*^9}, {3.693785363020219*^9,
3.693785384553727*^9}, {3.693785495774434*^9, 3.693785510511162*^9}, {
3.693785556241313*^9, 3.69378560650799*^9}, {3.725366749502318*^9,
3.7253668219545317`*^9}},ExpressionUUID->”dae797fa-85ca-45ad-9ab7-\
b306b9c5a6f3″],
Cell[TextData[{
StyleBox[“may not”,
FontSlant->”Italic”],
” use Wolfram|Alpha inputs in your solutions, though you are permitted to \
use this tool to learn how to solve a problem.”
}], “Item”,
CellChangeTimes->{{3.6937851724954767`*^9, 3.693785251358609*^9}, {
3.693785306598282*^9, 3.693785308366208*^9}, {3.693785363020219*^9,
3.693785384553727*^9}, {3.693785495774434*^9, 3.693785510511162*^9}, {
3.693785556241313*^9, 3.693785642479808*^9}, {3.693785814588097*^9,
3.693785913095207*^9}, {3.693785948964901*^9,
3.6937860076540813`*^9}},ExpressionUUID->”0d5968f2-8def-4286-a543-\
a9614111cbe1″],
All problems can be treated with what we have seen in class. \
\>”, “Item”,
CellChangeTimes->{{3.6937851724954767`*^9, 3.693785251358609*^9}, {
3.693785306598282*^9, 3.693785308366208*^9}, {3.693785363020219*^9,
3.693785384553727*^9}, {3.693785495774434*^9, 3.693785510511162*^9}, {
3.693785556241313*^9, 3.693785642479808*^9}, {3.693785814588097*^9,
3.693785913095207*^9}, {3.693785948964901*^9, 3.6937860166403913`*^9}, {
3.69481745193926*^9, 3.6948174569045687`*^9}, {3.77569372381759*^9,
3.7756937351769695`*^9}, {3.788176257085766*^9, 3.7881762765581446`*^9}, {
3.7881763118187647`*^9,
3.788176315177346*^9}},ExpressionUUID->”eb6b01d0-d32c-4363-8b43-\
818f86b31f27″],
For full grade on a solution you must use Mathematica\[CloseCurlyQuote]s \
functionalities. That is: try to find the most \[OpenCurlyDoubleQuote]compact\
\[CloseCurlyDoubleQuote] and \[OpenCurlyDoubleQuote]automated\
\[CloseCurlyDoubleQuote] solution. \
\>”, “Item”,
CellChangeTimes->{{3.775685625589445*^9, 3.7756856881190968`*^9}, {
3.775685726525383*^9, 3.7756857724151015`*^9}, {3.777390708072725*^9,
3.777390745932662*^9}, {3.8488661711782403`*^9,
3.8488661817703953`*^9}},ExpressionUUID->”66eaf776-ed49-4167-bd0c-\
04b83468aa01″]
}, Open ]],
Cell[CellGroupData[{
Cell[“New commands”, “Section”,
CellChangeTimes->{{3.6937607431471663`*^9,
3.693760745337122*^9}},ExpressionUUID->”544b4417-cb73-4fdc-b912-\
7b6f16288942″],
Cell[TextData[{
“Here are a few new commands that “,
StyleBox[“might”,
FontWeight->”Bold”],
” help with this assignment. Since there are many ways to solve the \
assignment problems, you might find that you do not use them now. However, \
you should know about them for future assignments and the exams.”
}], “Text”,
CellChangeTimes->{{3.693760754331113*^9, 3.693760805489184*^9}, {
3.693778741091227*^9, 3.693778833905294*^9}, {3.69377887859335*^9,
3.693778982838888*^9}, {3.714480447969638*^9,
3.714480618617217*^9}},ExpressionUUID->”910a6287-fbde-4485-a7af-\
2609946597d8″],
Cell[TextData[{
StyleBox[“Max[list], Min[list]”,
FontWeight->”Bold”],
” give the maximum and minimum elements in a list.”
}], “Item”,
CellChangeTimes->{{3.693778935048461*^9,
3.693778935392805*^9}},ExpressionUUID->”e2687e19-24da-47e6-8349-\
2891d24a38cf”],
Cell[TextData[{
StyleBox[“Position[list,x]”,
FontWeight->”Bold”],
” gives the position in the list at which element “,
StyleBox[“x”,
FontWeight->”Bold”],
” appears.”
}], “Item”,
CellChangeTimes->{{3.693778935048461*^9,
3.6937789429516993`*^9}},ExpressionUUID->”dfd20ee5-d947-4730-b602-\
61cd3dfa2da2″],
Cell[TextData[{
StyleBox[“Count[list,n]”,
FontWeight->”Bold”],
” counts the number of times that “,
StyleBox[“n”,
FontWeight->”Bold”],
” appears in a list.”
}], “Item”,
CellChangeTimes->{{3.693778935048461*^9, 3.69377895110835*^9}, {
3.776981223813385*^9,
3.776981223814127*^9}},ExpressionUUID->”e27890ff-f68a-4b3a-8e37-\
163fe2636b95″],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox[“Split[list]”,
FontWeight->”Bold”],
” splits a list into sublists of repeated values.”
}], “Item”,
CellChangeTimes->{{3.693778935048461*^9, 3.69377895110835*^9}, {
3.7769812262982874`*^9,
3.7769812520554175`*^9}},ExpressionUUID->”a09af373-fb55-4280-9d38-\
b42516c80304″],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{“list”, “=”,
RowBox[{“Range”, “[“,
RowBox[{“1”, “,”, “10”}], “]”}], “^”, “2”}]}], “\[IndentingNewLine]”,
RowBox[{“Max”, “[“, “list”, “]”}], “\[IndentingNewLine]”,
RowBox[{“Min”, “[“, “list”, “]”}], “\[IndentingNewLine]”,
RowBox[{“Position”, “[“,
RowBox[{“list”, “,”, “49”}], “]”}], “\[IndentingNewLine]”,
RowBox[{“Position”, “[“,
RowBox[{“list”, “,”, “48”}], “]”}], “\[IndentingNewLine]”,
RowBox[{“Count”, “[“,
RowBox[{“{“,
RowBox[{“1”, “,”, “4”, “,”, “4”, “,”, “4”, “,”, “2”}], “}”}], “,”, “4”}],
“]”}], “\[IndentingNewLine]”,
RowBox[{“Split”, “[“,
RowBox[{“{“,
RowBox[{“1”, “,”, “4”, “,”, “4”, “,”, “4”, “,”, “2”}], “}”}],
“]”}]}], “Input”,
CellChangeTimes->{{3.693760822454582*^9, 3.693760853239203*^9}, {
3.693778765860455*^9, 3.693778766868647*^9}, {3.693778994623563*^9,
3.693779017210197*^9}, {3.7773907958555117`*^9, 3.7773908049980955`*^9}, {
3.7881763523672266`*^9, 3.78817636056291*^9}},
CellLabel->”In[8]:=”,ExpressionUUID->”d548d22e-6060-4fbb-9430-881206710bae”],
Cell[BoxData[
RowBox[{“{“,
“1”, “,”, “4”, “,”, “9”, “,”, “16”, “,”, “25”, “,”, “36”, “,”, “49”, “,”,
“64”, “,”, “81”, “,”, “100”}], “}”}]], “Output”,
CellChangeTimes->{{3.693760832280529*^9, 3.693760853520714*^9}, {
3.6937790062613373`*^9, 3.6937790177079782`*^9}, 3.7773908062084966`*^9, {
3.788176353388606*^9, 3.7881763614179854`*^9}},
CellLabel->”Out[8]=”,ExpressionUUID->”46da3e02-bcb7-4836-b673-eace3787e870″],
Cell[BoxData[“100”], “Output”,
CellChangeTimes->{{3.693760832280529*^9, 3.693760853520714*^9}, {
3.6937790062613373`*^9, 3.6937790177079782`*^9}, 3.7773908062084966`*^9, {
3.788176353388606*^9, 3.788176361427614*^9}},
CellLabel->”Out[9]=”,ExpressionUUID->”05a99129-4491-413d-91bf-a1871cf219c7″],
Cell[BoxData[“1”], “Output”,
CellChangeTimes->{{3.693760832280529*^9, 3.693760853520714*^9}, {
3.6937790062613373`*^9, 3.6937790177079782`*^9}, 3.7773908062084966`*^9, {
3.788176353388606*^9, 3.788176361432728*^9}},
CellLabel->”Out[10]=”,ExpressionUUID->”071c1fe0-82e7-48e8-88f6-1441fce1af21″],
Cell[BoxData[
RowBox[{“{“,
RowBox[{“{“, “7”, “}”}], “}”}]], “Output”,
CellChangeTimes->{{3.693760832280529*^9, 3.693760853520714*^9}, {
3.6937790062613373`*^9, 3.6937790177079782`*^9}, 3.7773908062084966`*^9, {
3.788176353388606*^9, 3.7881763614390683`*^9}},
CellLabel->”Out[11]=”,ExpressionUUID->”bcc7afc2-be2c-456f-81ae-547afb6e35c0″],
Cell[BoxData[
RowBox[{“{“, “}”}]], “Output”,
CellChangeTimes->{{3.693760832280529*^9, 3.693760853520714*^9}, {
3.6937790062613373`*^9, 3.6937790177079782`*^9}, 3.7773908062084966`*^9, {
3.788176353388606*^9, 3.788176361445107*^9}},
CellLabel->”Out[12]=”,ExpressionUUID->”39034b10-3930-450e-93e7-c7ae247e35af”],
Cell[BoxData[“3”], “Output”,
CellChangeTimes->{{3.693760832280529*^9, 3.693760853520714*^9}, {
3.6937790062613373`*^9, 3.6937790177079782`*^9}, 3.7773908062084966`*^9, {
3.788176353388606*^9, 3.78817636145018*^9}},
CellLabel->”Out[13]=”,ExpressionUUID->”7cffbb10-201e-4f7d-ad6d-f919666c7b67″],
Cell[BoxData[
RowBox[{“{“,
RowBox[{“{“, “1”, “}”}], “,”,
RowBox[{“{“,
RowBox[{“4”, “,”, “4”, “,”, “4”}], “}”}], “,”,
RowBox[{“{“, “2”, “}”}]}], “}”}]], “Output”,
CellChangeTimes->{{3.693760832280529*^9, 3.693760853520714*^9}, {
3.6937790062613373`*^9, 3.6937790177079782`*^9}, 3.7773908062084966`*^9, {
3.788176353388606*^9, 3.7881763614566956`*^9}},
CellLabel->”Out[14]=”,ExpressionUUID->”743d052b-395a-4d51-a2ec-1403b0aae01b”]
}, Open ]]
}, Open ]],
Other useful commands:
IntegerDigits[]; FromDigits[]; Split[]\
\>”, “Text”,
CellChangeTimes->{{3.8521311279138165`*^9, 3.8521311471145105`*^9}, {
3.8521312032005196`*^9,
3.8521312050321336`*^9}},ExpressionUUID->”dacb8937-eaf1-427b-9aa7-\
9b5b35d9b471″]
}, Open ]],
Cell[CellGroupData[{
Cell[“Question 1 – 6 points “, “Section”,
CellChangeTimes->{{3.6937654564172153`*^9, 3.693765461417946*^9}, {
3.693779090524063*^9, 3.6937790907386713`*^9}, {3.775685791034093*^9,
3.7756857958929644`*^9}, 3.7756927065331354`*^9, {3.7756937454084234`*^9,
3.7756937475955725`*^9}, 3.7881047214449267`*^9, {3.806795167145116*^9,
3.8067951758659124`*^9}, {3.8205874576028585`*^9, 3.8205874585276513`*^9},
3.8206256160547686`*^9, 3.8206265221657157`*^9, {3.8353752913472614`*^9,
3.835375292083288*^9}, {3.8354819138426814`*^9, 3.8354819142674875`*^9}, {
3.848866235039929*^9, 3.848866237755804*^9}, {3.8488677702615128`*^9,
3.848867770614527*^9},
3.8496120949857903`*^9},ExpressionUUID->”072c777c-5ea9-4f17-8b88-\
b04d5a030929″],
Cell[BoxData[
RowBox[{“Q1”, “=”,
RowBox[{“(*”,
“do”, ” “, “not”, ” “, “write”, ” “, “in”, ” “, “this”, ” “, “box”}],
“*)”}]}]], “Input”,
CellChangeTimes->{{3.693780607716899*^9, 3.69378062452319*^9}, {
3.820699905137062*^9, 3.8206999059330873`*^9}, {3.8207006978542204`*^9,
3.8207006980549345`*^9}},ExpressionUUID->”bacb1e85-59b3-4fb0-b6b9-\
839b366c4cb4″],
Cell[TextData[{
“Consider two natural numbers of two-digits, like 46 and 96. They have the \
property that by exchanging the place of their digits and multiplying the so \
obtained numbers, we get the same product. That is: “,
Cell[BoxData[
RowBox[{“46”, “\[Times]”, “96”}], “=”,
RowBox[{“64”, “\[Times]”, “69”}]}], TraditionalForm]],ExpressionUUID->
“22e921ca-f0c6-421b-8b0a-da4bfab7d7d9”],
“. \na. [4 points] How many pairs of two-digit natural numbers have this \
property? \nb. [2 points] How many pairs have all four digits different?”
}], “Text”,
CellChangeTimes->CompressedData[”
1:eJxTTMoPSmViYGAQBWIQ/e3Spzc+ra8dE7mLPoDoBV93JIpZvnG0qF6eCqI/
lYfxKwHpX0vjwXTRLfEfZiD5U//AtNtmn8mPYt44SlZ2zwLRNwMMdA3K3zhm
bLHRA9ECPL8sQLSsnLkNiI46nfQHRIvsSGIzBNJJP+cKgmiHqDJhEN2V4ygN
og0SMhVBdOfMRjUQvcPknTqIvuOerQ+inz0rMQXRXgtfBbiAzFmQFAiidynO
LE2dDDRv2/FqEB3AmtAEorNveDSD6MW2X4+AaIPU3Ksg+ljZEgvFtW8c+6rd
bEF0WFb7ShAtsvDZThBt3L30EIh+dvfVMRCttDrlGYg+KfTwDYj+9vTidxAd
wMT8E0QDAJ+apcE=
“],ExpressionUUID->”fb27c759-fc6c-4f95-afad-359b07b908ea”],
Cell[TextData[StyleBox[“Solution.”, “Subsection”]], “Text”,
CellChangeTimes->{{3.744224588503701*^9,
3.7442245904213457`*^9}},ExpressionUUID->”d694ff0e-9ce2-4e29-a784-\
b39643455a53″],
Cell[“a.”, “Text”,
CellChangeTimes->{{3.849612643596284*^9,
3.8496126450979986`*^9}},ExpressionUUID->”f94206c5-0df8-48dc-bac6-\
04612a948c00″],
Cell[BoxData[“”], “Input”,
CellChangeTimes->{{3.8353745723053975`*^9, 3.83537458851452*^9}, {
3.8353746224810266`*^9, 3.83537468412148*^9}, {3.835374722010058*^9,
3.8353747878766327`*^9}, {3.8353748263368993`*^9,
3.8353748534234457`*^9}, {3.835374891937728*^9, 3.8353750337852573`*^9}, {
3.848866499411763*^9, 3.8488665598963165`*^9}, {3.848866602371831*^9,
3.8488667221730595`*^9}, {3.8488669203947678`*^9,
3.8488669231040745`*^9}, {3.8488670458309903`*^9, 3.848867069272502*^9}, {
3.848867303969137*^9, 3.8488673231057167`*^9}, {3.8488673993744335`*^9,
3.8488674036807995`*^9}, 3.8496126303901873`*^9},
CellLabel->”In[1]:=”,ExpressionUUID->”ba046464-0b7b-447b-8b9d-07a263894f83″],
Cell[“b.”, “Text”,
CellChangeTimes->{{3.8496126506654906`*^9,
3.8496126517347145`*^9}},ExpressionUUID->”119e2210-b147-4dd7-a118-\
e955e35ef04d”],
Cell[BoxData[“”], “Input”,
CellChangeTimes->{{3.8488671086004395`*^9, 3.84886712283803*^9}, {
3.848867407386362*^9, 3.848867545974506*^9}, {3.8488675940365553`*^9,
3.848867621841101*^9}, {3.8496126373313007`*^9, 3.8496126387686663`*^9}},
CellLabel->”In[2]:=”,ExpressionUUID->”665b5b89-0a3b-4fab-9cfe-e7e81e1c4c4f”]
}, Open ]],
Cell[CellGroupData[{
Cell[“Question 2 – 7 points “, “Section”,
CellChangeTimes->{{3.693605422636798*^9, 3.693605424372686*^9}, {
3.69367942038772*^9, 3.693679425861321*^9}, {3.693679508204686*^9,
3.6936795105875893`*^9}, {3.6937799775379047`*^9,
3.6937799777855883`*^9}, {3.775693753173853*^9, 3.775693758062958*^9}, {
3.7880311756919775`*^9, 3.788031176628972*^9}, 3.7880990397559013`*^9,
3.7881047265179005`*^9, {3.806795371402938*^9, 3.8067953733924375`*^9}, {
3.806965609801878*^9, 3.8069656134820824`*^9}, {3.8206256037009044`*^9,
3.8206256045185976`*^9}, 3.8206265140567665`*^9, {3.8354772101711245`*^9,
3.8354772110076537`*^9}, 3.835481917444929*^9, {3.8495553774576797`*^9,
3.8495553838391314`*^9}, {3.849612103766904*^9,
3.8496121041964903`*^9}},ExpressionUUID->”159ed250-69a4-4c14-8aa7-\
b8d45f0f9963″],
Cell[BoxData[
RowBox[{“Q2”, “=”, ” “,
RowBox[{“(*”,
“do”, ” “, “not”, ” “, “write”, ” “, “in”, ” “, “this”, ” “, “box”}],
“*)”}]}]], “Input”,
CellChangeTimes->{{3.693780668642346*^9,
3.693780676986863*^9}},ExpressionUUID->”bbbad446-31f2-4d6a-9486-\
c213bd6f920e”],
Cell[TextData[{
Cell[BoxData[
RowBox[{“f”, “(“, “n”, “)”}], “=”,
RowBox[{” “,
RowBox[{“47”,
SuperscriptBox[“n”, “2”]}], “-“,
RowBox[{“1701″, ” “, “n”}], “+”, “10181”}]}],
TraditionalForm]}], TraditionalForm]],ExpressionUUID->
“63a4222c-5cdc-4b1f-a57d-1637a29b8a26”],
Cell[BoxData[
RowBox[{“g”, ” “,
RowBox[{“(“, “n”, “)”}]}], “=”,
RowBox[{“36″, ” “,
SuperscriptBox[“n”, “2”]}], “-“,
RowBox[{“810”, “n”}], “+”, “2753”}]}], TraditionalForm]],ExpressionUUID->
“137ec7cd-f25a-4b0d-b5bd-75ae4937a57b”],
}], “Text”,
CellChangeTimes->{{3.693605438136107*^9, 3.693605492965234*^9}, {
3.744229259176546*^9, 3.744229268445806*^9}, {3.744229298459037*^9,
3.7442293053729343`*^9}, {3.744231159268261*^9, 3.7442311619364142`*^9}, {
3.744231820784093*^9, 3.7442318270761456`*^9}, {3.788098487175082*^9,
3.788098516651729*^9}, {3.78809873514671*^9, 3.788098745627556*^9}, {
3.806965157178665*^9, 3.806965181204421*^9}, {3.806965223884037*^9,
3.806965248749539*^9}, 3.8206250006628857`*^9, {3.8354767641492653`*^9,
3.8354767795413375`*^9}, {3.8354769965286756`*^9, 3.8354770070414295`*^9},
3.8376164867788386`*^9, {3.8496118542031345`*^9,
3.8496119267491655`*^9}},ExpressionUUID->”6afcd021-8dd8-4d5c-aae0-\
1a229e92230c”],
Cell[TextData[{
“How many of the numbers “,
Cell[BoxData[
RowBox[{“f”, “(“, “0”, “)”}], “,”,
RowBox[{“f”, “(“, “1”, “)”}], “,”, “…”, “,”,
RowBox[{“f”, “(“, “100”, “)”}]}], TraditionalForm]],ExpressionUUID->
“11fd13d6-0d7f-465f-ad0e-552942f04583″],
” are prime? Similarly, how many of “,
Cell[BoxData[
RowBox[{“g”, “(“, “0”, “)”}], “,”,
RowBox[{“g”, “(“, “1”, “)”}], “,”, “…”, “,”,
RowBox[{“g”, “(“, “100”, “)”}]}], TraditionalForm]],ExpressionUUID->
“4996cedf-38b9-48fb-84e4-b862a90f8ef2″],
” are prime? ”
}], “ItemNumbered”,
CellChangeTimes->{{3.69360553800241*^9, 3.693605724010893*^9}, {
3.69367888826826*^9, 3.693678952813325*^9}, {3.744231023297611*^9,
3.744231070707975*^9}, {3.74423149828203*^9, 3.7442315041837683`*^9}, {
3.74423169155718*^9, 3.744231700460942*^9}, {3.744231757001292*^9,
3.744231779093279*^9}, 3.7442318174506674`*^9, {3.744233805807783*^9,
3.744233810020738*^9}, {3.820625059854171*^9, 3.8206250636784225`*^9}, {
3.8206255439980526`*^9,
3.820625548600524*^9}},ExpressionUUID->”dd360ddb-d7cd-4055-a2db-\
4da574330c73″],
Cell[TextData[{
“Consider “,
Cell[BoxData[
FormBox[“F”, TraditionalForm]],ExpressionUUID->
“60b1951a-9952-43aa-835c-01467842113e”],
Cell[BoxData[
FormBox[“G”, TraditionalForm]],ExpressionUUID->
“ed935d61-986b-42f9-8919-c16304ea6d92”],
StyleBox[“sets”,
FontWeight->”Bold”],
” of numbers generated by “,
Cell[BoxData[
FormBox[“f”, TraditionalForm]],ExpressionUUID->
“28380779-e59b-45fd-af98-a59bf95d133c”],
Cell[BoxData[
FormBox[“g”, TraditionalForm]],ExpressionUUID->
“d3032f67-b2ab-4d1d-bcd9-f4dca6eb72aa”],
“, respectively. Are “,
Cell[BoxData[
FormBox[“F”, TraditionalForm]],ExpressionUUID->
“c812ceb5-eec5-49ef-aa62-d99b05241c9a”],
Cell[BoxData[
FormBox[“G”, TraditionalForm]],ExpressionUUID->
“08015577-c125-405b-ba09-983fad482be1”],
StyleBox[“equals as sets”,
FontSlant->”Italic”],
}], “ItemNumbered”,
CellChangeTimes->{{3.693679091014317*^9, 3.693679141646924*^9}, {
3.693679351922851*^9, 3.69367935584311*^9}, {3.744231086622559*^9,
3.7442312974599857`*^9}, {3.820625555991001*^9, 3.8206255591188216`*^9},
3.8496120209669266`*^9},ExpressionUUID->”75030f02-d85e-4c81-a55b-\
1258135f7045″],
Cell[TextData[{
“List the set of elements of “,
Cell[BoxData[
FormBox[“F”, TraditionalForm]],ExpressionUUID->
“63cb8951-b260-45ea-956d-9cee28ee4fe8”],
Cell[BoxData[
FormBox[“G”, TraditionalForm]],ExpressionUUID->
“d6e5c9ad-8170-46ca-bc8f-48a6d36a99b9″],
” that are not primes. ”
}], “ItemNumbered”,
CellChangeTimes->{{3.693679362317959*^9, 3.693679382829172*^9}, {
3.693679639077116*^9, 3.693679664925177*^9}, {3.693781170252246*^9,
3.693781170723916*^9}, {3.7442315184841146`*^9, 3.744231559724267*^9}, {
3.835477185239678*^9,
3.835477188362035*^9}},ExpressionUUID->”30e734d5-437c-41f5-92d4-\
810e84d4d421″],
Cell[TextData[{
StyleBox[“Solution. “, “Subsection”],
}], “Text”,
CellChangeTimes->{{3.7442290067079763`*^9, 3.7442290082186537`*^9}, {
3.7773910647435465`*^9, 3.7773910665004063`*^9}, {3.835388430371503*^9,
3.8353884345448213`*^9},
3.8354771941166773`*^9},ExpressionUUID->”4d2d5c31-dd89-42b4-bd
程序代写 CS代考 加微信: powcoder QQ: 1823890830 Email: powcoder@163.com