# (* Mathematica program *) # A=Select[Range[1637],SquareFreeQ]; # n = 1; B = {1}; While[n <1000, n++; sfn = A[[n]]; k = sfn; While[! SquareFreeQ[k sfn], k--]; AppendTo[B, k]]; # B 1 1 2 1 3 2 4 3 5 5 6 6 7 7 8 10 9 11 10 13 11 14 12 15 13 17 14 19 15 21 16 22 17 23 18 26 19 29 20 30 21 31 22 33 23 34 24 35 25 37 26 38 27 39 28 41 29 42 30 43 31 46 32 47 33 51 34 53 35 55 36 57 37 58 38 59 39 61 40 62 41 65 42 66 43 67 44 69 45 70 46 71 47 73 48 74 49 77 50 78 51 79 52 82 53 83 54 85 55 86 56 87 57 89 58 91 59 93 60 94 61 95 62 97 63 101 64 102 65 103 66 105 67 106 68 107 69 109 70 110 71 111 72 113 73 114 74 115 75 118 76 119 77 122 78 123 79 127 80 129 81 130 82 131 83 133 84 134 85 137 86 138 87 139 88 141 89 142 90 143 91 145 92 146 93 149 94 151 95 154 96 155 97 157 98 158 99 159 100 161 101 163 102 165 103 166 104 167 105 170 106 173 107 173 108 177 109 178 110 179 111 181 112 182 113 183 114 185 115 186 116 187 117 190 118 191 119 193 120 194 121 195 122 197 123 199 124 201 125 202 126 203 127 205 128 206 129 209 130 210 131 211 132 213 133 214 134 215 135 217 136 218 137 219 138 221 139 222 140 223 141 226 142 227 143 229 144 230 145 231 146 233 147 235 148 237 149 238 150 239 151 241 152 246 153 247 154 249 155 251 156 253 157 254 158 255 159 257 160 258 161 259 162 262 163 263 164 265 165 266 166 267 167 269 168 271 169 273 170 274 171 277 172 278 173 281 174 282 175 283 176 285 177 286 178 287 179 290 180 291 181 293 182 295 183 298 184 299 185 301 186 302 187 303 188 305 189 307 190 309 191 310 192 311 193 313 194 314 195 317 196 318 197 319 198 321 199 322 200 323 201 326 202 327 203 329 204 330 205 331 206 334 207 335 208 337 209 339 210 341 211 345 212 346 213 347 214 349 215 353 216 354 217 355 218 357 219 358 220 359 221 362 222 365 223 366 224 367 225 370 226 371 227 373 228 374 229 377 230 379 231 381 232 382 233 383 234 385 235 386 236 389 237 390 238 391 239 393 240 394 241 395 242 397 243 398 244 399 245 401 246 402 247 403 248 406 249 407 250 409 251 410 252 411 253 413 254 415 255 417 256 418 257 419 258 421 259 421 260 426 261 427 262 429 263 430 264 431 265 433 266 434 267 435 268 437 269 438 270 439 271 442 272 443 273 445 274 446 275 447 276 449 277 451 278 453 279 454 280 455 281 457 282 458 283 461 284 462 285 463 286 465 287 466 288 467 289 469 290 470 291 471 292 473 293 473 294 478 295 479 296 481 297 482 298 483 299 485 300 487 301 489 302 491 303 493 304 494 305 497 306 498 307 499 308 501 309 502 310 503 311 505 312 506 313 509 314 510 315 511 316 514 317 515 318 517 319 518 320 519 321 521 322 523 323 526 324 527 325 530 326 533 327 534 328 535 329 537 330 538 331 541 332 542 333 543 334 545 335 546 336 547 337 551 338 553 339 554 340 555 341 557 342 559 343 561 344 562 345 563 346 565 347 566 348 569 349 570 350 571 351 573 352 574 353 577 354 579 355 581 356 582 357 583 358 586 359 587 360 589 361 590 362 591 363 593 364 595 365 597 366 598 367 599 368 601 369 601 370 606 371 607 372 609 373 610 374 611 375 613 376 614 377 615 378 617 379 618 380 619 381 622 382 623 383 626 384 627 385 629 386 631 387 633 388 634 389 635 390 638 391 641 392 642 393 643 394 645 395 646 396 647 397 649 398 651 399 653 400 654 401 655 402 658 403 659 404 661 405 662 406 663 407 665 408 667 409 669 410 670 411 671 412 673 413 674 414 677 415 678 416 679 417 681 418 682 419 683 420 685 421 687 422 689 423 690 424 691 425 694 426 695 427 697 428 698 429 699 430 701 431 703 432 705 433 706 434 707 435 709 436 710 437 713 438 714 439 715 440 717 441 718 442 719 443 721 444 723 445 727 446 730 447 731 448 733 449 734 450 737 451 739 452 741 453 742 454 743 455 745 456 746 457 749 458 751 459 753 460 754 461 755 462 757 463 758 464 759 465 761 466 762 467 763 468 766 469 767 470 769 471 770 472 771 473 773 474 777 475 778 476 779 477 781 478 782 479 785 480 786 481 787 482 789 483 790 484 791 485 793 486 794 487 795 488 797 489 798 490 799 491 802 492 803 493 805 494 806 495 807 496 809 497 811 498 813 499 814 500 815 501 817 502 818 503 821 504 822 505 823 506 826 507 827 508 829 509 830 510 829 511 834 512 835 513 838 514 839 515 842 516 842 517 849 518 851 519 853 520 854 521 857 522 858 523 859 524 861 525 862 526 863 527 865 528 866 529 869 530 870 531 871 532 874 533 877 534 878 535 879 536 881 537 883 538 885 539 886 540 887 541 889 542 890 543 893 544 894 545 895 546 897 547 898 548 899 549 901 550 902 551 903 552 905 553 906 554 907 555 910 556 911 557 913 558 914 559 915 560 917 561 919 562 921 563 922 564 923 565 926 566 929 567 929 568 933 569 934 570 935 571 937 572 938 573 939 574 941 575 942 576 943 577 946 578 947 579 949 580 951 581 953 582 955 583 957 584 958 585 959 586 962 587 965 588 966 589 967 590 969 591 970 592 971 593 973 594 974 595 977 596 978 597 979 598 982 599 983 600 985 601 986 602 987 603 989 604 991 605 993 606 994 607 995 608 997 609 998 610 1001 611 1002 612 1003 613 1005 614 1006 615 1007 616 1009 617 1010 618 1011 619 1013 620 1015 621 1018 622 1019 623 1021 624 1022 625 1023 626 1027 627 1030 628 1031 629 1033 630 1034 631 1037 632 1038 633 1039 634 1041 635 1042 636 1043 637 1045 638 1046 639 1047 640 1049 641 1051 642 1054 643 1055 644 1057 645 1059 646 1061 647 1063 648 1065 649 1066 650 1067 651 1069 652 1070 653 1073 654 1073 655 1077 656 1079 657 1081 658 1082 659 1085 660 1086 661 1087 662 1090 663 1091 664 1093 665 1094 666 1095 667 1097 668 1099 669 1101 670 1102 671 1103 672 1105 673 1106 674 1109 675 1110 676 1111 677 1113 678 1114 679 1115 680 1117 681 1118 682 1119 683 1121 684 1122 685 1123 686 1126 687 1129 688 1130 689 1131 690 1133 691 1135 692 1137 693 1138 694 1139 695 1141 696 1142 697 1145 698 1146 699 1147 700 1149 701 1151 702 1153 703 1154 704 1155 705 1157 706 1158 707 1159 708 1162 709 1163 710 1165 711 1166 712 1167 713 1169 714 1171 715 1173 716 1174 717 1177 718 1178 719 1181 720 1181 721 1185 722 1186 723 1187 724 1189 725 1190 726 1191 727 1193 728 1194 729 1195 730 1198 731 1199 732 1201 733 1202 734 1203 735 1205 736 1207 737 1209 738 1211 739 1213 740 1214 741 1217 742 1218 743 1219 744 1221 745 1222 746 1223 747 1226 748 1227 749 1229 750 1230 751 1231 752 1234 753 1235 754 1237 755 1238 756 1239 757 1241 758 1243 759 1245 760 1246 761 1247 762 1249 763 1253 764 1254 765 1255 766 1257 767 1258 768 1259 769 1261 770 1262 771 1263 772 1265 773 1266 774 1267 775 1270 776 1271 777 1273 778 1277 779 1279 780 1281 781 1282 782 1283 783 1285 784 1286 785 1289 786 1290 787 1291 788 1293 789 1294 790 1295 791 1297 792 1298 793 1299 794 1301 795 1302 796 1303 797 1306 798 1307 799 1309 800 1310 801 1311 802 1313 803 1315 804 1317 805 1318 806 1319 807 1321 808 1321 809 1326 810 1327 811 1329 812 1330 813 1333 814 1334 815 1335 816 1337 817 1338 818 1339 819 1342 820 1343 821 1345 822 1346 823 1347 824 1349 825 1351 826 1353 827 1354 828 1355 829 1357 830 1358 831 1361 832 1362 833 1363 834 1365 835 1366 836 1367 837 1370 838 1371 839 1373 840 1373 841 1378 842 1379 843 1381 844 1382 845 1383 846 1385 847 1387 848 1389 849 1390 850 1391 851 1393 852 1394 853 1397 854 1398 855 1399 856 1401 857 1402 858 1403 859 1405 860 1406 861 1407 862 1409 863 1410 864 1411 865 1414 866 1415 867 1417 868 1418 869 1419 870 1423 871 1426 872 1427 873 1429 874 1430 875 1433 876 1434 877 1435 878 1437 879 1438 880 1439 881 1441 882 1442 883 1441 884 1446 885 1447 886 1451 887 1453 888 1454 889 1455 890 1457 891 1459 892 1461 893 1462 894 1463 895 1465 896 1466 897 1469 898 1471 899 1473 900 1474 901 1477 902 1478 903 1479 904 1481 905 1482 906 1483 907 1486 908 1487 909 1489 910 1490 911 1491 912 1493 913 1495 914 1497 915 1498 916 1499 917 1501 918 1502 919 1505 920 1506 921 1507 922 1509 923 1510 924 1511 925 1513 926 1514 927 1515 928 1517 929 1517 930 1522 931 1523 932 1526 933 1527 934 1529 935 1531 936 1533 937 1534 938 1535 939 1537 940 1538 941 1541 942 1542 943 1543 944 1545 945 1546 946 1547 947 1549 948 1551 949 1553 950 1554 951 1555 952 1558 953 1559 954 1561 955 1562 956 1563 957 1565 958 1567 959 1569 960 1570 961 1571 962 1574 963 1577 964 1578 965 1579 966 1581 967 1582 968 1583 969 1585 970 1586 971 1589 972 1590 973 1591 974 1594 975 1595 976 1597 977 1598 978 1599 979 1601 980 1603 981 1605 982 1606 983 1607 984 1609 985 1610 986 1613 987 1614 988 1615 989 1618 990 1619 991 1621 992 1622 993 1621 994 1626 995 1627 996 1630 997 1631 998 1633 999 1634 1000 1635