Problem-40.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[      3171,         99]
NotebookOptionsPosition[      2917,         86]
NotebookOutlinePosition[      3260,        101]
CellTagsIndexPosition[      3217,         98]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"len", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"i", "*", "0"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", " ", ",", " ", "1000100"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", " ", "=", " ", "1"}], " ", ",", " ", 
   RowBox[{"len", " ", "\[LessEqual]", " ", "1000000"}], " ", ",", " ", 
   RowBox[{"i", " ", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"l", " ", "=", " ", 
     RowBox[{"IntegerDigits", "[", "i", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"sz", " ", "=", " ", 
     RowBox[{"Length", "[", "l", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"j", " ", "=", " ", "1"}], " ", ",", " ", 
      RowBox[{"j", " ", "\[LessEqual]", " ", "sz"}], " ", ",", " ", 
      RowBox[{"j", " ", "++"}], " ", ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"[", "len", "]"}], "]"}], " ", "=", " ", 
        RowBox[{"l", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}], ";", 
       RowBox[{"len", " ", "++"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"f", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"f", "[", 
    RowBox[{"[", "10", "]"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"f", "[", 
    RowBox[{"[", "100", "]"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"f", "[", 
    RowBox[{"[", "1000", "]"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"f", "[", 
    RowBox[{"[", "10000", "]"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"f", "[", 
    RowBox[{"[", "100000", "]"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"f", "[", 
    RowBox[{"[", "1000000", "]"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.49442444407714*^9, 3.49442463011178*^9}, {
  3.4944246968495975`*^9, 3.494424711426431*^9}}]
},
WindowSize->{607, 549},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2368, 64, 312, "Input"]
}
]
*)

(* End of internal cache information *)