Problem-41.nb

(* 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[      3726,        107]
NotebookOptionsPosition[      3408,         91]
NotebookOutlinePosition[      3746,        106]
CellTagsIndexPosition[      3703,        103]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"ans", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", " ", "=", " ", "9"}], " ", ",", " ", 
   RowBox[{"i", " ", "\[GreaterEqual]", " ", "4"}], " ", ",", " ", 
   RowBox[{"i", " ", "--"}], " ", ",", " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f", "  ", "=", " ", 
     RowBox[{"Table", "[", " ", 
      RowBox[{"x", " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"x", " ", ",", " ", "i"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"p", " ", "=", " ", 
     RowBox[{"Permutations", "[", "f", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"sz", " ", "=", " ", 
     RowBox[{"Length", "[", "p", "]"}]}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"j", " ", "=", " ", "1"}], " ", ",", " ", 
      RowBox[{"j", " ", "\[LessEqual]", " ", "sz"}], " ", ",", " ", 
      RowBox[{"j", " ", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"d", " ", "=", "  ", 
        RowBox[{"p", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"len", " ", "=", " ", 
        RowBox[{"Length", "[", " ", "d", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"t", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", 
       RowBox[{"s", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"k", " ", "=", " ", "1"}], " ", ",", " ", 
         RowBox[{"k", " ", "\[LessEqual]", " ", "len"}], " ", ",", " ", 
         RowBox[{"k", " ", "++"}], ",", 
         RowBox[{
          RowBox[{"s", " ", "+=", " ", 
           RowBox[{
            RowBox[{"d", "[", 
             RowBox[{"[", "k", "]"}], "]"}], " ", "*", " ", "t"}]}], ";", 
          RowBox[{"t", " ", "*=", "10"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", " ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"PrimeQ", "[", "s", "]"}], " ", "\[Equal]", " ", "True"}],
            " ", ")"}], "&&", " ", 
          RowBox[{"s", " ", ">", " ", "ans"}]}], " ", ",", " ", 
         RowBox[{"ans", " ", "=", " ", "s"}]}], "]"}], ";"}]}], " ", 
     "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"ans", " ", "\[NotEqual]", " ", "0"}], " ", ",", " ", "Break"}],
      "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "ans", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.494424910791834*^9, 3.494425272050497*^9}, {
  3.4944253341530495`*^9, 3.494425436011875*^9}}],

Cell[BoxData["7652413"], "Print",
 CellChangeTimes->{3.495158668840292*^9}]
}, Open  ]]
},
WindowSize->{607, 549},
WindowMargins->{{240, Automatic}, {47, Automatic}},
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 2747, 63, 407, "Input"],
Cell[3317, 87, 75, 1, 24, "Print"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)