N!+1 - (* Content-type: application/mathematica *) (*...

Info iconThis preview shows pages 1–4. Sign up to view the full content.

View Full Document Right Arrow Icon
(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 33299, 1317] NotebookOptionsPosition[ 27099, 1091] NotebookOutlinePosition[ 27443, 1106] CellTagsIndexPosition[ 27400, 1103] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", RowBox[{ RowBox[{"1", "!"}], "+", "1"}], "]"}]], "Input", CellChangeTimes->{{3.505239339129843*^9, 3.505239363470209*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.5052393679276276`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", RowBox[{ RowBox[{"2", "!"}], "+", "1"}], "]"}]], "Input", CellChangeTimes->{{3.505239385765483*^9, 3.5052393859414935`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.505239389762475*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", RowBox[{ RowBox[{"3", "!"}], "+", "1"}], "]"}]], "Input", CellChangeTimes->{{3.5052394173411937`*^9, 3.505239417466201*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.505239420946167*^9}] }, Open ]],
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", RowBox[{ RowBox[{"4", "!"}], "+", "1"}], "]"}]], "Input", CellChangeTimes->{{3.505239443516444*^9, 3.505239443647646*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.5052394481606708`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", RowBox[{ RowBox[{"5", "!"}], "+", "1"}], "]"}]], "Input", CellChangeTimes->{{3.5052394647786727`*^9, 3.505239464903473*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"11", ",", "2"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.505239467144187*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", RowBox[{ RowBox[{"6", "!"}], "+", "1"}], "]"}]], "Input", CellChangeTimes->{{3.5052394857859125`*^9, 3.505239486698762*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"103", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.505239488641468*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", RowBox[{ RowBox[{"7", "!"}], "+", "1"}], "]"}]], "Input", CellChangeTimes->{{3.505239499622406*^9, 3.5052395002120347`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"71", ",", "2"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.505239504326231*^9}] }, Open ]],
Background image of page 2
Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", RowBox[{ RowBox[{"8", "!"}], "+", "1"}], "]"}]], "Input",
Background image of page 3

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 4
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 21

N!+1 - (* Content-type: application/mathematica *) (*...

This preview shows document pages 1 - 4. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online