7.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1138,         47]
NotebookOptionsPosition[       822,         30]
NotebookOutlinePosition[      1174,         46]
CellTagsIndexPosition[      1131,         43]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Prime", "[", "10001", "]"}]], "Input",
 CellChangeTimes->{{3.615588471344068*^9, 3.61558854590829*^9}}],

Cell[BoxData["104743"], "Output",
 CellChangeTimes->{3.61558850211887*^9, 3.615588546581727*^9}]
}, Open  ]]
},
WindowSize->{808, 587},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 127, 2, 28, "Input"],
Cell[710, 26, 96, 1, 62, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)