pe16.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1742,         54]
NotebookOptionsPosition[      1044,         34]
NotebookOutlinePosition[      1667,         53]
CellTagsIndexPosition[      1624,         50]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Total", "@", 
  RowBox[{"IntegerDigits", "[", 
   RowBox[{"2", "^", "1000"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8477736508180623`*^9, 3.8477736508190603`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"b68862d0-8aaa-4033-9ebc-283f011424e3"],

Cell[BoxData["1366"], "Output",
 CellChangeTimes->{{3.847773655500432*^9, 3.8477736795338154`*^9}},
 CellLabel->"Out[3]=",ExpressionUUID->"86e6b7b9-d1b7-4b6c-acfb-ee1263dfa92c"]
}, Open  ]]
},
WindowSize->{557, 586},
WindowMargins->{{Automatic, 383}, {208, Automatic}},
TaggingRules->Association["TryRealOnly" -> False],
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (July 9, 2021)",
StyleDefinitions->FrontEnd`FileName[{$RootDirectory, "C:", "Users", "stary", 
   "AppData", "Roaming", "Mathematica", "SystemFiles", "FrontEnd", 
   "StyleSheets"}, "OD.nb", CharacterEncoding -> "UTF-8"],
ExpressionUUID->"de6e0804-eb95-4490-b124-0eb8660e4a60"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 268, 5, 38, "Input",ExpressionUUID->"b68862d0-8aaa-4033-9ebc-283f011424e3"],
Cell[851, 29, 177, 2, 67, "Output",ExpressionUUID->"86e6b7b9-d1b7-4b6c-acfb-ee1263dfa92c"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)