(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 7492, 164]*) (*NotebookOutlinePosition[ 8143, 187]*) (* CellTagsIndexPosition[ 8099, 183]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["NaiveNotSimpleQ", "Subsection"], Cell["\<\ Following is the code which determines if a naive application of \ the Sylow Theorems to a finite group of a given order n determines simplicity \ or not. If the function returns True then any group of that order is not \ simple, if it returns false then the function fails to determine simplicity \ and the status is undetermined.\ \>", "Text", CellFrame->True, Background->GrayLevel[0.833326]], Cell[BoxData[ \(NaiveNotSimpleQ[n_] := If[Length[FactorInteger[n]] \[GreaterEqual] 2, Module[{P = \(Transpose[FactorInteger[n]]\)[\([1]\)], D = Map[Divisors[\((n/#[\([\)\(1\)\(]\)]^#[\([\)\(2\)\(]\)])\)] \ &, FactorInteger[n]]}, Union[Select[ Table[Select[ D[\([\)\(i\)\(]\)], \((Mod[#, P[\([\)\(i\)\(]\)]] \[Equal] 1)\) &], {i, \ 1, \ Length[P]}], \ # \[Equal] {1} &]] \[Equal] {{1}}], \ \(FactorInteger[n]\)[\([1, 2]\)] > 1]\)], "Input"], Cell["\<\ Here is a table of the integers up to 1000 determined to have \ nontrivial normal subgroups by this method.\ \>", "Text", CellFrame->True, Background->GrayLevel[0.833326]], Cell[CellGroupData[{ Cell[BoxData[ \(L = Select[Table[i, \ {i, \ 2, \ 1000}], \ NaiveNotSimpleQ[#] &]\)], "Input"], Cell[BoxData[ \({4, 6, 8, 9, 10, 14, 15, 16, 18, 20, 21, 22, 25, 26, 27, 28, 32, 33, 34, 35, 38, 39, 40, 42, 44, 45, 46, 49, 50, 51, 52, 54, 55, 57, 58, 62, 63, 64, 65, 66, 68, 69, 70, 74, 75, 76, 77, 78, 81, 82, 84, 85, 86, 87, 88, 91, 92, 93, 94, 95, 98, 99, 100, 102, 104, 106, 110, 111, 114, 115, 116, 117, 118, 119, 121, 122, 123, 124, 125, 126, 128, 129, 130, 133, 134, 135, 136, 138, 140, 141, 142, 143, 145, 146, 147, 148, 152, 153, 154, 155, 156, 158, 159, 161, 162, 164, 165, 166, 169, 170, 171, 172, 174, 175, 176, 177, 178, 182, 183, 184, 185, 186, 187, 188, 189, 190, 194, 195, 196, 198, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 212, 213, 214, 215, 217, 218, 219, 220, 221, 222, 225, 226, 228, 230, 231, 232, 234, 235, 236, 237, 238, 242, 243, 244, 245, 246, 247, 248, 249, 250, 253, 254, 255, 256, 258, 259, 260, 261, 262, 265, 266, 267, 268, 272, 273, 274, 275, 276, 278, 279, 282, 284, 285, 286, 287, 289, 290, 291, 292, 294, 295, 296, 297, 298, 299, 301, 302, 303, 304, 305, 308, 309, 310, 312, 314, 316, 318, 319, 321, 322, 323, 325, 326, 327, 328, 329, 330, 332, 333, 334, 335, 338, 339, 340, 341, 342, 343, 344, 345, 346, 348, 350, 352, 354, 355, 356, 357, 358, 361, 362, 363, 364, 365, 366, 368, 369, 370, 371, 372, 374, 375, 376, 377, 378, 381, 382, 385, 386, 387, 388, 390, 391, 393, 394, 395, 398, 399, 402, 403, 404, 405, 406, 407, 408, 410, 411, 412, 413, 414, 415, 416, 417, 418, 422, 423, 424, 425, 426, 427, 428, 429, 430, 434, 435, 436, 437, 438, 440, 441, 442, 444, 445, 446, 447, 451, 452, 453, 454, 455, 456, 458, 459, 460, 462, 464, 465, 466, 468, 469, 470, 471, 472, 473, 474, 475, 476, 477, 478, 481, 482, 483, 484, 485, 486, 488, 489, 490, 492, 493, 494, 496, 497, 498, 500, 501, 502, 505, 506, 507, 508, 510, 511, 512, 513, 514, 515, 516, 517, 518, 519, 522, 524, 526, 527, 529, 530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 542, 543, 544, 545, 548, 549, 550, 551, 553, 554, 555, 556, 558, 559, 561, 562, 564, 565, 566, 567, 568, 570, 572, 573, 574, 575, 578, 579, 580, 581, 582, 583, 584, 585, 586, 588, 589, 590, 591, 592, 594, 595, 596, 597, 598, 602, 603, 604, 605, 606, 608, 609, 610, 611, 614, 615, 618, 620, 621, 622, 623, 624, 625, 626, 627, 628, 629, 632, 633, 634, 635, 636, 637, 638, 639, 642, 644, 645, 646, 649, 650, 651, 652, 654, 655, 656, 657, 658, 662, 663, 664, 665, 666, 667, 668, 669, 670, 671, 674, 675, 676, 678, 679, 680, 681, 682, 684, 685, 686, 687, 688, 689, 690, 692, 693, 694, 695, 696, 697, 698, 699, 700, 703, 704, 705, 706, 707, 708, 710, 711, 712, 713, 714, 715, 716, 717, 718, 721, 722, 723, 724, 725, 726, 729, 730, 731, 732, 734, 736, 737, 738, 740, 741, 742, 744, 745, 746, 747, 748, 749, 752, 753, 754, 755, 758, 759, 762, 763, 764, 765, 766, 767, 770, 771, 772, 774, 775, 776, 777, 778, 779, 780, 781, 782, 783, 785, 786, 788, 789, 790, 791, 793, 794, 795, 796, 798, 799, 801, 802, 803, 804, 805, 806, 807, 808, 812, 813, 814, 815, 816, 817, 818, 819, 820, 822, 824, 825, 826, 828, 830, 831, 832, 833, 834, 835, 836, 837, 838, 841, 842, 843, 844, 845, 846, 847, 848, 849, 850, 851, 852, 854, 855, 856, 860, 861, 862, 865, 866, 867, 868, 869, 871, 872, 873, 874, 875, 876, 878, 879, 880, 882, 884, 885, 886, 888, 889, 890, 891, 892, 893, 894, 895, 897, 898, 899, 901, 902, 903, 904, 905, 906, 908, 909, 910, 912, 913, 914, 915, 916, 917, 920, 921, 922, 923, 925, 926, 927, 928, 930, 931, 932, 933, 934, 935, 936, 938, 939, 940, 942, 943, 944, 946, 948, 949, 950, 951, 952, 954, 955, 956, 957, 958, 959, 961, 962, 963, 964, 965, 966, 968, 969, 970, 973, 974, 975, 976, 978, 979, 980, 981, 982, 984, 985, 986, 987, 988, 989, 993, 994, 995, 996, 998, 999, 1000}\)], "Output"] }, Open ]], Cell["The ratio of the orders selected is", "Text", CellFrame->True, Background->GrayLevel[0.833326]], Cell[CellGroupData[{ Cell[BoxData[ \(Length[L]/1000 // N\)], "Input"], Cell[BoxData[ \(0.739`\)], "Output"] }, Open ]], Cell["Pretty good!", "Text", CellFrame->True, Background->GrayLevel[0.833326]] }, Open ]] }, FrontEndVersion->"5.2 for X", ScreenRectangle->{{0, 1280}, {0, 1024}}, WindowSize->{1274, 946}, WindowMargins->{{0, Automatic}, {Automatic, 27}}, ShowSelection->True ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 37, 0, 38, "Subsection"], Cell[1816, 55, 410, 8, 66, "Text"], Cell[2229, 65, 569, 11, 59, "Input"], Cell[2801, 78, 185, 5, 48, "Text"], Cell[CellGroupData[{ Cell[3011, 87, 104, 2, 27, "Input"], Cell[3118, 91, 4021, 52, 379, "Output"] }, Open ]], Cell[7154, 146, 105, 2, 48, "Text"], Cell[CellGroupData[{ Cell[7284, 152, 52, 1, 27, "Input"], Cell[7339, 155, 40, 1, 27, "Output"] }, Open ]], Cell[7394, 159, 82, 2, 48, "Text"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************) ->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 34, 0, 38, "Subsection"], Cell[1813, 55, 406, 8, 66, "Text"], Cell[2222, 65, 448, 9, 43, "Input"], Cell[2673, 76, 162, 5, 48, "Text"], Cell[CellGroupData[{ Cell[2860, 85, 101, 2, 27, "Input"], Cell[2964, 89, 4916, 64, 459, "Output"] }, Open ]], Cell[7895, 156, 105, 2, 48, "Text"], Cell[CellGroupData[{ Cell[8025, 162, 52, 1, 27, "Input"], Cell[8080, 165, 40, 1, 27, "Output"] }, Open ]], Cell[8135, 169, 82, 2, 48, "Text"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************) ticNomeQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["MachineNumberQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`MachineNumberQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["StringFreeQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`StringFreeQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["EvenQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`EvenQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["MatchLocalNameQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`MatchLocalNameQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["StringMatchQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`StringMatchQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["ExactNumberQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`ExactNumberQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["MatchQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`MatchQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["StringQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`StringQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["FreeQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`FreeQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["MatrixQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`MatrixQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["SyntaxQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`SyntaxQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["HypergeometricPFQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`HypergeometricPFQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["MemberQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`MemberQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["TensorQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`TensorQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["InexactNumberQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`InexactNumberQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["NameQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`NameQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["TrueQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`TrueQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["IntegerQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`IntegerQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["NumberQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`NumberQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["UnsameQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`UnsameQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["IntervalMemberQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`IntervalMemberQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["NumericQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`NumericQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["UpperCaseQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`UpperCaseQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["InverseEllipticNomeQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`InverseEllipticNomeQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["OddQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`OddQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["ValueQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`ValueQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["LegendreQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`LegendreQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["OptionQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`OptionQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["VectorQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`VectorQ"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["LetterQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`LetterQ"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["OrderedQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "System`OrderedQ"}, ButtonFrame->"None", ButtonNote->"System`"], ""} }, RowMinHeight->{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1.05}]}, { StyleBox["Global`", FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"]}, {GridBox[{ { ButtonBox[ StyleBox["ElementQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "Global`ElementQ"}, ButtonFrame->"None", ButtonNote->"Global`"], ButtonBox[ StyleBox["NaiveSimpleQ", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381653206-4750466", "Global`NaiveSimpleQ"}, ButtonFrame->"None", ButtonNote->"Global`"], "", "", ""} }, RowMinHeight->1.05]} }, RowSpacings->{2, 3, 2, 3}, ColumnsEqual->True]], "Print", CellMargins->{{20, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, CellFrameMargins->{{Inherited, Inherited}, {14, 14}}, Background->RGBColor[0.964706, 0.929412, 0.839216], ButtonBoxOptions->{Active->True}, GridBoxOptions->{ColumnAlignments->{Left}}], Cell[BoxData[ RowBox[{"\<\"OrderedQ[h[e1, e2, ... ]] gives True if the ei are in \ canonical order, and False otherwise.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"OrderedQ", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3381653206-4750466"], Cell[BoxData[ InterpretationBox[GridBox[{ {\(Attributes[OrderedQ] = {Protected}\)} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], Definition[ "System`OrderedQ"], Editable->False]], "Print", CellTags->"Info3381653206-4750466"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ElementQ[{1}, \ {1, \ 2, \ 3}]\)], "Input"], Cell[BoxData[ RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \ error: new symbol name \\\"\\!\\(ElementQ\\)\\\" is similar to existing \ symbol \\\"\\!\\(Element\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"], Cell[BoxData[ \(ElementQ[{1}, {1, 2, 3}]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(?? Select\)], "Input"], Cell[BoxData[ RowBox[{"\<\"Select[list, crit] picks out all elements ei of list for \ which crit[ei] is True. Select[list, crit, n] picks out the first n elements \ for which crit[ei] is True.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"Select", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3381652671-7915476"], Cell[BoxData[ InterpretationBox[GridBox[{ {\(Attributes[Select] = {Protected}\)} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], Definition[ "Select"], Editable->False]], "Print", CellTags->"Info3381652671-7915476"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Union[{1, \ 1, \ 1, \ 1}]\)], "Input"], Cell[BoxData[ \({1}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(?? *Factor*\)], "Input"], Cell[BoxData[GridBox[{ { StyleBox["System`", FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"]}, {GridBox[{ { ButtonBox[ StyleBox["DampingFactor", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`DampingFactor"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["FactorInteger", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`FactorInteger"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["FactorTermsList", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`FactorTermsList"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["Factor", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`Factor"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["FactorList", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`FactorList"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["NProductExtraFactors", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`NProductExtraFactors"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["FactorComplete", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`FactorComplete"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["FactorSquareFree", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`FactorSquareFree"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["NProductFactors", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`NProductFactors"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["Factorial", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`Factorial"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["FactorSquareFreeList", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`FactorSquareFreeList"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["TrigFactor", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`TrigFactor"}, ButtonFrame->"None", ButtonNote->"System`"]}, { ButtonBox[ StyleBox["Factorial2", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`Factorial2"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["FactorTerms", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`FactorTerms"}, ButtonFrame->"None", ButtonNote->"System`"], ButtonBox[ StyleBox["TrigFactorList", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "System`TrigFactorList"}, ButtonFrame->"None", ButtonNote->"System`"]} }, RowMinHeight->{1, 1, 1, 1, 1.05}]}, { StyleBox["Global`", FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"]}, {GridBox[{ { ButtonBox[ StyleBox["Factors", "Hyperlink"], ButtonFunction:>( Internal`PutInformation[ #, LongForm -> True]&), ButtonEvaluator->Automatic, ButtonData:>{"Info3381652126-9897605", "Global`Factors"}, ButtonFrame->"None", ButtonNote->"Global`"], "", "", "", "", "", "", ""} }, RowMinHeight->1.05]} }, RowSpacings->{2, 3, 2, 3}, ColumnsEqual->True]], "Print", CellMargins->{{20, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, CellFrameMargins->{{Inherited, Inherited}, {14, 14}}, Background->RGBColor[0.964706, 0.929412, 0.839216], ButtonBoxOptions->{Active->True}, GridBoxOptions->{ColumnAlignments->{Left}}], Cell[BoxData[ RowBox[{"\<\"FactorInteger[n] gives a list of the prime factors of the \ integer n, together with their exponents.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"FactorInteger", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3381652126-9897605"], Cell[BoxData[ InterpretationBox[GridBox[{ {\(Attributes[FactorInteger] = {Listable, Protected}\)}, {" "}, {GridBox[{ {\(Options[FactorInteger] = {FactorComplete \[Rule] True, GaussianIntegers \[Rule] False}\)} }, GridBaseline->{Baseline, {1, 1}}, ColumnWidths->0.999, ColumnAlignments->{Left}]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], Definition[ "System`FactorInteger"], Editable->False]], "Print", CellTags->"Info3381652126-9897605"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FactorList[12]\)], "Input"], Cell[BoxData[ \({{12, 1}}\)], "Output"] }, Open ]] }, FrontEndVersion->"5.2 for X", ScreenRectangle->{{0, 1280}, {0, 1024}}, WindowSize->{520, 600}, WindowMargins->{{150, Automatic}, {Automatic, 52}}, ShowSelection->True ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{ "Info3381653206-4750466"->{ Cell[25124, 675, 348, 9, 39, "Print", CellTags->"Info3381653206-4750466"], Cell[25475, 686, 296, 8, 23, "Print", CellTags->"Info3381653206-4750466"]}, "Info3381652671-7915476"->{ Cell[26380, 718, 418, 10, 71, "Print", CellTags->"Info3381652671-7915476"], Cell[26801, 730, 285, 8, 23, "Print", CellTags->"Info3381652671-7915476"]}, "Info3381652126-9897605"->{ Cell[35705, 971, 361, 9, 39, "Print", CellTags->"Info3381652126-9897605"], Cell[36069, 982, 630, 16, 76, "Print", CellTags->"Info3381652126-9897605"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3381653206-4750466", 37460, 1026}, {"Info3381652671-7915476", 37661, 1031}, {"Info3381652126-9897605", 37863, 1036} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 510, 11, 139, "Input"], Cell[2289, 66, 38, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2364, 72, 49, 1, 27, "Input"], Cell[2416, 75, 38, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2491, 81, 49, 1, 27, "Input"], Cell[2543, 84, 42, 1, 27, "Output"] }, Open ]], Cell[2600, 88, 136, 3, 43, "Input"], Cell[CellGroupData[{ Cell[2761, 95, 74, 1, 27, "Input"], Cell[2838, 98, 40, 1, 27, "Output"] }, Open ]], Cell[2893, 102, 44, 1, 27, "Input"], Cell[CellGroupData[{ Cell[2962, 107, 151, 3, 43, "Input"], Cell[3116, 112, 56, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3209, 118, 43, 1, 27, "Input"], Cell[3255, 121, 35, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3327, 127, 104, 2, 27, "Input"], Cell[3434, 131, 39, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3510, 137, 38, 1, 27, "Input"], Cell[3551, 140, 21570, 533, 387, "Print"], Cell[25124, 675, 348, 9, 39, "Print", CellTags->"Info3381653206-4750466"], Cell[25475, 686, 296, 8, 23, "Print", CellTags->"Info3381653206-4750466"] }, Open ]], Cell[CellGroupData[{ Cell[25808, 699, 63, 1, 27, "Input"], Cell[25874, 702, 363, 5, 46, "Message"], Cell[26240, 709, 58, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26335, 715, 42, 1, 27, "Input"], Cell[26380, 718, 418, 10, 71, "Print", CellTags->"Info3381652671-7915476"], Cell[26801, 730, 285, 8, 23, "Print", CellTags->"Info3381652671-7915476"] }, Open ]], Cell[CellGroupData[{ Cell[27123, 743, 58, 1, 27, "Input"], Cell[27184, 746, 37, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27258, 752, 44, 1, 27, "Input"], Cell[27305, 755, 8397, 214, 207, "Print"], Cell[35705, 971, 361, 9, 39, "Print", CellTags->"Info3381652126-9897605"], Cell[36069, 982, 630, 16, 76, "Print", CellTags->"Info3381652126-9897605"] }, Open ]], Cell[CellGroupData[{ Cell[36736, 1003, 47, 1, 27, "Input"], Cell[36786, 1006, 43, 1, 27, "Output"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)