/
229.nb
57 lines (50 loc) · 1.51 KB
/
229.nb
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
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 9.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 157, 7]
NotebookDataLength[ 1348, 47]
NotebookOptionsPosition[ 1112, 34]
NotebookOutlinePosition[ 1451, 49]
CellTagsIndexPosition[ 1408, 46]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"n", " ", "is", " ", "the", " ", "sum", " ", "of", " ", "two", " ",
"squares", " ", "iff", " ", "all", " ", "the", " ", "prime", " ",
"factors", " ", "of", " ", "n", " ", "of", " ", "the", " ", "form", " ",
"4", "m"}], "+",
RowBox[{
"3", " ", "have", " ", "an", " ", "even", " ", "exponent", " ", "in", " ",
"the", " ", "prime", " ", "factorization", " ", "of", " ", "n"}]}],
"*)"}]], "Input",
CellChangeTimes->{{3.59664891112286*^9, 3.5966489461141644`*^9}}]
},
WindowSize->{740, 867},
WindowMargins->{{Automatic, 120}, {-120, Automatic}},
FrontEndVersion->"9.0 for Linux x86 (64-bit) (February 7, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 551, 12, 77, "Input"]
}
]
*)
(* End of internal cache information *)