# Maple code # f:= proc(n) local t, k; # t:= 3^n; # for k from 1 do t:= t/2; if isprime(floor(t)) then return k fi od: # end proc: # bfile:= "b074720.txt": # for n from 2 to 2000 do # fprintf(bfile,"%d %d\n",n,f(n)) # od: # fclose(bfile): 2 2 3 1 4 4 5 5 6 6 7 1 8 11 9 6 10 7 11 4 12 5 13 1 14 9 15 6 16 8 17 21 18 8 19 4 20 25 21 12 22 20 23 13 24 30 25 17 26 6 27 13 28 10 29 13 30 19 31 5 32 12 33 34 34 33 35 37 36 16 37 39 38 35 39 13 40 38 41 30 42 28 43 20 44 53 45 16 46 60 47 24 48 40 49 43 50 34 51 19 52 23 53 32 54 63 55 59 56 19 57 22 58 27 59 56 60 86 61 14 62 29 63 5 64 53 65 13 66 15 67 63 68 19 69 7 70 88 71 1 72 87 73 46 74 22 75 51 76 25 77 30 78 14 79 18 80 28 81 93 82 53 83 20 84 64 85 34 86 82 87 22 88 89 89 65 90 52 91 25 92 95 93 7 94 64 95 30 96 41 97 18 98 98 99 34 100 24 101 21 102 30 103 1 104 89 105 124 106 83 107 30 108 154 109 82 110 73 111 79 112 118 113 129 114 84 115 110 116 75 117 29 118 74 119 20 120 117 121 57 122 93 123 24 124 175 125 98 126 183 127 122 128 131 129 81 130 57 131 75 132 6 133 90 134 93 135 39 136 67 137 102 138 118 139 204 140 20 141 21 142 116 143 131 144 102 145 57 146 28 147 102 148 30 149 15 150 152 151 222 152 131 153 170 154 24 155 106 156 52 157 89 158 42 159 89 160 151 161 160 162 126 163 142 164 66 165 21 166 33 167 22 168 233 169 49 170 155 171 54 172 142 173 131 174 78 175 137 176 155 177 39 178 44 179 194 180 123 181 240 182 88 183 137 184 117 185 209 186 209 187 152 188 159 189 103 190 51 191 58 192 188 193 45 194 116 195 44 196 148 197 55 198 74 199 108 200 49 201 175 202 168 203 117 204 16 205 169 206 139 207 189 208 65 209 60 210 286 211 41 212 59 213 8 214 134 215 313 216 49 217 115 218 105 219 61 220 250 221 269 222 234 223 152 224 125 225 216 226 207 227 50 228 18 229 38 230 19 231 50 232 240 233 122 234 301 235 161 236 229 237 177 238 143 239 354 240 114 241 64 242 91 243 319 244 144 245 24 246 160 247 277 248 80 249 8 250 50 251 92 252 45 253 133 254 60 255 169 256 318 257 43 258 275 259 279 260 104 261 65 262 124 263 94 264 193 265 344 266 7 267 13 268 43 269 297 270 11 271 371 272 88 273 201 274 154 275 4 276 11 277 263 278 322 279 247 280 259 281 114 282 278 283 102 284 101 285 29 286 304 287 338 288 66 289 324 290 113 291 257 292 337 293 99 294 68 295 39 296 275 297 18 298 233 299 94 300 110 301 277 302 385 303 51 304 158 305 155 306 65 307 179 308 177 309 151 310 478 311 163 312 45 313 12 314 465 315 423 316 372 317 147 318 17 319 16 320 276 321 169 322 113 323 413 324 371 325 451 326 413 327 115 328 159 329 38 330 284 331 10 332 61 333 154 334 49 335 179 336 489 337 83 338 156 339 239 340 176 341 434 342 214 343 108 344 241 345 458 346 79 347 167 348 162 349 105 350 167 351 407 352 93 353 354 354 27 355 183 356 408 357 12 358 508 359 317 360 364 361 25 362 147 363 100 364 43 365 277 366 170 367 500 368 9 369 285 370 190 371 452 372 302 373 243 374 87 375 246 376 175 377 578 378 390 379 158 380 30 381 461 382 474 383 276 384 335 385 47 386 268 387 377 388 259 389 207 390 77 391 563 392 73 393 60 394 451 395 155 396 506 397 495 398 199 399 54 400 125 401 571 402 302 403 128 404 215 405 101 406 405 407 392 408 29 409 211 410 290 411 220 412 58 413 143 414 393 415 220 416 313 417 190 418 539 419 183 420 233 421 174 422 62 423 205 424 530 425 237 426 409 427 377 428 79 429 39 430 45 431 235 432 210 433 372 434 216 435 224 436 343 437 641 438 139 439 322 440 686 441 576 442 420 443 93 444 409 445 8 446 504 447 536 448 244 449 423 450 95 451 260 452 390 453 220 454 375 455 213 456 528 457 200 458 437 459 709 460 108 461 93 462 184 463 579 464 14 465 622 466 529 467 642 468 236 469 160 470 247 471 360 472 173 473 75 474 13 475 494 476 483 477 177 478 85 479 56 480 250 481 228 482 656 483 647 484 32 485 316 486 314 487 643 488 614 489 58 490 384 491 549 492 5 493 303 494 379 495 289 496 298 497 675 498 361 499 89 500 167 501 597 502 577 503 118 504 106 505 593 506 274 507 276 508 741 509 538 510 78 511 256 512 351 513 106 514 212 515 85 516 56 517 329 518 476 519 338 520 752 521 74 522 35 523 413 524 180 525 219 526 456 527 322 528 224 529 21 530 231 531 21 532 310 533 331 534 49 535 400 536 766 537 831 538 66 539 491 540 391 541 1 542 41 543 78 544 395 545 220 546 342 547 198 548 89 549 626 550 282 551 129 552 666 553 342 554 350 555 85 556 136 557 406 558 492 559 40 560 533 561 272 562 627 563 198 564 240 565 68 566 477 567 293 568 443 569 852 570 183 571 24 572 72 573 170 574 508 575 71 576 157 577 495 578 253 579 616 580 129 581 519 582 673 583 262 584 848 585 459 586 306 587 744 588 144 589 247 590 511 591 883 592 831 593 422 594 157 595 263 596 473 597 229 598 626 599 389 600 463 601 167 602 864 603 903 604 237 605 515 606 441 607 475 608 598 609 585 610 572 611 174 612 274 613 351 614 767 615 491 616 550 617 621 618 622 619 263 620 119 621 83 622 533 623 245 624 747 625 622 626 439 627 428 628 979 629 362 630 247 631 115 632 581 633 969 634 179 635 446 636 756 637 90 638 478 639 477 640 631 641 595 642 476 643 433 644 330 645 212 646 43 647 726 648 384 649 302 650 804 651 315 652 576 653 8 654 351 655 290 656 160 657 966 658 742 659 914 660 334 661 328 662 472 663 118 664 11 665 294 666 933 667 635 668 196 669 84 670 398 671 964 672 546 673 714 674 425 675 482 676 337 677 618 678 981 679 147 680 262 681 501 682 946 683 494 684 87 685 517 686 9 687 230 688 860 689 379 690 257 691 321 692 356 693 894 694 126 695 492 696 396 697 206 698 34 699 739 700 9 701 92 702 721 703 643 704 295 705 939 706 365 707 396 708 196 709 366 710 142 711 451 712 932 713 880 714 116 715 357 716 966 717 1045 718 41 719 284 720 933 721 1021 722 173 723 158 724 757 725 432 726 643 727 657 728 460 729 324 730 615 731 79 732 156 733 141 734 338 735 584 736 254 737 774 738 596 739 404 740 306 741 182 742 655 743 250 744 174 745 135 746 703 747 989 748 158 749 441 750 1039 751 993 752 772 753 357 754 194 755 116 756 698 757 283 758 249 759 776 760 719 761 860 762 969 763 324 764 5 765 1037 766 346 767 710 768 337 769 85 770 230 771 843 772 402 773 909 774 397 775 756 776 143 777 1016 778 676 779 1018 780 905 781 1086 782 313 783 509 784 835 785 21 786 159 787 454 788 729 789 972 790 1189 791 475 792 1113 793 861 794 495 795 137 796 108 797 232 798 688 799 87 800 451 801 781 802 570 803 1252 804 172 805 536 806 597 807 421 808 277 809 292 810 95 811 1158 812 496 813 747 814 530 815 378 816 775 817 487 818 819 819 859 820 935 821 1285 822 209 823 156 824 883 825 1242 826 453 827 978 828 851 829 1142 830 591 831 1022 832 870 833 726 834 1045 835 978 836 507 837 795 838 15 839 301 840 647 841 215 842 905 843 72 844 264 845 683 846 225 847 25 848 369 849 282 850 770 851 195 852 428 853 61 854 650 855 876 856 401 857 1301 858 675 859 1134 860 426 861 301 862 226 863 351 864 452 865 1116 866 301 867 820 868 384 869 49 870 980 871 274 872 601 873 404 874 443 875 446 876 1057 877 958 878 328 879 336 880 161 881 1267 882 156 883 351 884 574 885 712 886 652 887 850 888 52 889 1185 890 92 891 404 892 1238 893 450 894 337 895 325 896 14 897 456 898 198 899 1228 900 858 901 1144 902 311 903 353 904 241 905 906 906 769 907 384 908 39 909 234 910 87 911 277 912 1023 913 587 914 811 915 760 916 947 917 326 918 476 919 389 920 630 921 904 922 1278 923 1277 924 696 925 513 926 743 927 520 928 267 929 809 930 56 931 367 932 522 933 1363 934 997 935 388 936 940 937 1179 938 472 939 985 940 389 941 345 942 791 943 908 944 656 945 742 946 589 947 184 948 596 949 842 950 614 951 1068 952 626 953 1449 954 44 955 54 956 966 957 991 958 360 959 1010 960 763 961 1061 962 184 963 37 964 861 965 353 966 1206 967 829 968 241 969 187 970 1405 971 258 972 624 973 538 974 649 975 810 976 953 977 1416 978 874 979 911 980 866 981 30 982 104 983 661 984 65 985 1390 986 618 987 321 988 647 989 134 990 833 991 958 992 452 993 769 994 374 995 604 996 760 997 198 998 40 999 608 1000 249 1001 999 1002 964 1003 950 1004 524 1005 39 1006 336 1007 541 1008 298 1009 1151 1010 1120 1011 609 1012 893 1013 9 1014 1566 1015 889 1016 444 1017 294 1018 294 1019 170 1020 169 1021 801 1022 150 1023 484 1024 1375 1025 346 1026 1367 1027 1120 1028 116 1029 167 1030 575 1031 130 1032 458 1033 1113 1034 853 1035 448 1036 81 1037 1275 1038 839 1039 885 1040 820 1041 558 1042 204 1043 439 1044 70 1045 126 1046 1563 1047 485 1048 338 1049 1116 1050 6 1051 785 1052 694 1053 168 1054 790 1055 768 1056 1628 1057 1369 1058 32 1059 1072 1060 188 1061 511 1062 881 1063 273 1064 1300 1065 496 1066 544 1067 718 1068 1269 1069 579 1070 615 1071 1237 1072 1292 1073 368 1074 548 1075 233 1076 1459 1077 544 1078 845 1079 754 1080 969 1081 329 1082 1539 1083 1542 1084 18 1085 1114 1086 1519 1087 1366 1088 254 1089 411 1090 427 1091 1 1092 1009 1093 61 1094 734 1095 904 1096 1463 1097 727 1098 387 1099 357 1100 20 1101 186 1102 905 1103 51 1104 357 1105 111 1106 1428 1107 1476 1108 823 1109 182 1110 30 1111 312 1112 50 1113 170 1114 31 1115 408 1116 576 1117 1214 1118 1456 1119 556 1120 1087 1121 631 1122 10 1123 281 1124 864 1125 480 1126 50 1127 298 1128 198 1129 1464 1130 599 1131 1132 1132 481 1133 136 1134 306 1135 738 1136 1464 1137 750 1138 569 1139 40 1140 374 1141 1327 1142 432 1143 306 1144 172 1145 322 1146 578 1147 628 1148 806 1149 629 1150 543 1151 592 1152 85 1153 632 1154 877 1155 1255 1156 1402 1157 617 1158 483 1159 589 1160 536 1161 673 1162 551 1163 1189 1164 230 1165 191 1166 351 1167 1690 1168 697 1169 1355 1170 379 1171 990 1172 1568 1173 206 1174 208 1175 775 1176 1727 1177 84 1178 657 1179 1470 1180 594 1181 1344 1182 944 1183 201 1184 314 1185 1510 1186 1160 1187 1433 1188 526 1189 1754 1190 1090 1191 1702 1192 469 1193 874 1194 269 1195 1225 1196 227 1197 651 1198 660 1199 1162 1200 1016 1201 196 1202 1692 1203 1691 1204 994 1205 547 1206 515 1207 65 1208 197 1209 79 1210 1080 1211 975 1212 370 1213 1146 1214 797 1215 976 1216 913 1217 1840 1218 159 1219 654 1220 1077 1221 818 1222 1136 1223 790 1224 540 1225 479 1226 143 1227 371 1228 386 1229 1178 1230 629 1231 49 1232 988 1233 585 1234 539 1235 173 1236 269 1237 444 1238 753 1239 674 1240 469 1241 114 1242 1424 1243 633 1244 417 1245 1422 1246 597 1247 722 1248 813 1249 26 1250 1101 1251 1654 1252 1115 1253 805 1254 315 1255 1556 1256 209 1257 1072 1258 1352 1259 1251 1260 490 1261 1209 1262 1911 1263 1169 1264 694 1265 441 1266 586 1267 936 1268 52 1269 555 1270 309 1271 782 1272 184 1273 211 1274 627 1275 453 1276 199 1277 778 1278 1861 1279 793 1280 121 1281 1341 1282 231 1283 1017 1284 1627 1285 712 1286 1368 1287 261 1288 1399 1289 401 1290 1920 1291 1534 1292 985 1293 1269 1294 512 1295 218 1296 1048 1297 159 1298 807 1299 54 1300 222 1301 1288 1302 1452 1303 510 1304 206 1305 962 1306 75 1307 481 1308 1147 1309 1603 1310 440 1311 40 1312 1028 1313 311 1314 544 1315 674 1316 948 1317 195 1318 1189 1319 579 1320 752 1321 902 1322 945 1323 1128 1324 1029 1325 1117 1326 1678 1327 149 1328 467 1329 1233 1330 1319 1331 148 1332 220 1333 842 1334 1538 1335 166 1336 1409 1337 1820 1338 2059 1339 642 1340 1547 1341 261 1342 118 1343 761 1344 1151 1345 1180 1346 1275 1347 1219 1348 591 1349 1515 1350 1615 1351 832 1352 287 1353 1525 1354 1483 1355 202 1356 1390 1357 1463 1358 1607 1359 663 1360 513 1361 118 1362 1083 1363 1652 1364 2088 1365 805 1366 355 1367 1 1368 194 1369 991 1370 1646 1371 374 1372 632 1373 1517 1374 186 1375 1411 1376 718 1377 747 1378 676 1379 2017 1380 672 1381 1593 1382 834 1383 1266 1384 1349 1385 424 1386 538 1387 995 1388 1709 1389 2165 1390 1082 1391 1497 1392 97 1393 799 1394 1338 1395 110 1396 1341 1397 1338 1398 35 1399 1175 1400 102 1401 1625 1402 1978 1403 472 1404 675 1405 239 1406 1360 1407 121 1408 1882 1409 1333 1410 1661 1411 1287 1412 1473 1413 1117 1414 125 1415 1131 1416 1170 1417 1439 1418 95 1419 1066 1420 134 1421 238 1422 1913 1423 345 1424 781 1425 1440 1426 2210 1427 2100 1428 1196 1429 1695 1430 360 1431 653 1432 507 1433 2189 1434 1418 1435 961 1436 587 1437 317 1438 1800 1439 365 1440 184 1441 1315 1442 975 1443 1173 1444 84 1445 1805 1446 940 1447 1273 1448 602 1449 246 1450 119 1451 783 1452 1312 1453 591 1454 2111 1455 291 1456 1427 1457 1789 1458 1512 1459 948 1460 1356 1461 2042 1462 1544 1463 2104 1464 8 1465 1631 1466 155 1467 1734 1468 1068 1469 745 1470 883 1471 2094 1472 874 1473 484 1474 557 1475 1830 1476 121 1477 33 1478 1222 1479 1328 1480 415 1481 1524 1482 1855 1483 734 1484 28 1485 1402 1486 1081 1487 720 1488 1639 1489 181 1490 1958 1491 277 1492 100 1493 1990 1494 350 1495 1581 1496 1418 1497 1855 1498 124 1499 1143 1500 69 1501 1197 1502 1222 1503 953 1504 181 1505 27 1506 1591 1507 2344 1508 89 1509 1170 1510 1565 1511 1595 1512 561 1513 163 1514 548 1515 684 1516 65 1517 1019 1518 1125 1519 1441 1520 1978 1521 855 1522 1141 1523 490 1524 1324 1525 1740 1526 754 1527 518 1528 1897 1529 289 1530 614 1531 1041 1532 555 1533 1258 1534 1282 1535 1234 1536 364 1537 1229 1538 1019 1539 688 1540 318 1541 630 1542 1979 1543 1148 1544 550 1545 713 1546 701 1547 2340 1548 1541 1549 1953 1550 2225 1551 1511 1552 1838 1553 912 1554 1604 1555 758 1556 116 1557 1639 1558 459 1559 1718 1560 1575 1561 272 1562 976 1563 1566 1564 99 1565 1998 1566 1104 1567 926 1568 587 1569 662 1570 1103 1571 1207 1572 1276 1573 46 1574 1991 1575 1841 1576 150 1577 958 1578 571 1579 641 1580 1535 1581 50 1582 2164 1583 731 1584 251 1585 201 1586 147 1587 127 1588 1574 1589 831 1590 21 1591 1474 1592 859 1593 1849 1594 1211 1595 2450 1596 573 1597 287 1598 1671 1599 1503 1600 358 1601 960 1602 682 1603 593 1604 2054 1605 804 1606 468 1607 2257 1608 2317 1609 656 1610 756 1611 2012 1612 2119 1613 374 1614 852 1615 783 1616 286 1617 1284 1618 725 1619 721 1620 291 1621 182 1622 424 1623 326 1624 315 1625 776 1626 2309 1627 1 1628 501 1629 1974 1630 363 1631 960 1632 1606 1633 654 1634 56 1635 471 1636 150 1637 712 1638 227 1639 390 1640 1386 1641 964 1642 888 1643 1020 1644 1800 1645 324 1646 47 1647 353 1648 245 1649 320 1650 2205 1651 1843 1652 758 1653 1627 1654 513 1655 71 1656 444 1657 1151 1658 2305 1659 2093 1660 1714 1661 1047 1662 1433 1663 295 1664 1232 1665 155 1666 1079 1667 159 1668 2011 1669 519 1670 1472 1671 2600 1672 1457 1673 631 1674 339 1675 34 1676 2231 1677 586 1678 2020 1679 1135 1680 742 1681 2253 1682 1329 1683 743 1684 416 1685 1415 1686 1618 1687 162 1688 2539 1689 2459 1690 843 1691 1287 1692 75 1693 1178 1694 566 1695 918 1696 965 1697 169 1698 483 1699 1284 1700 1134 1701 2553 1702 1268 1703 630 1704 2230 1705 592 1706 277 1707 1246 1708 571 1709 1948 1710 2337 1711 1329 1712 600 1713 2643 1714 1671 1715 1303 1716 1805 1717 180 1718 1608 1719 145 1720 2358 1721 663 1722 761 1723 888 1724 934 1725 567 1726 845 1727 84 1728 2562 1729 1700 1730 1085 1731 599 1732 1212 1733 399 1734 194 1735 717 1736 1628 1737 64 1738 795 1739 621 1740 1261 1741 2409 1742 1336 1743 1198 1744 853 1745 118 1746 510 1747 151 1748 2460 1749 1384 1750 1532 1751 995 1752 2042 1753 397 1754 2361 1755 138 1756 302 1757 475 1758 940 1759 626 1760 707 1761 379 1762 2244 1763 1629 1764 1738 1765 12 1766 1213 1767 1728 1768 1288 1769 200 1770 1604 1771 23 1772 1152 1773 1900 1774 2549 1775 1810 1776 310 1777 114 1778 2047 1779 2243 1780 827 1781 1871 1782 974 1783 2146 1784 666 1785 829 1786 442 1787 983 1788 2677 1789 693 1790 1485 1791 512 1792 734 1793 1357 1794 755 1795 2424 1796 316 1797 394 1798 1808 1799 2244 1800 1775 1801 2644 1802 2310 1803 716 1804 286 1805 996 1806 301 1807 2765 1808 774 1809 981 1810 412 1811 2541 1812 1963 1813 1367 1814 1388 1815 849 1816 110 1817 256 1818 2113 1819 1729 1820 2754 1821 2563 1822 1642 1823 1156 1824 510 1825 2404 1826 578 1827 2171 1828 121 1829 1050 1830 2333 1831 1754 1832 957 1833 2716 1834 901 1835 171 1836 1167 1837 1498 1838 251 1839 1058 1840 1318 1841 1541 1842 1986 1843 685 1844 344 1845 2401 1846 2678 1847 1873 1848 649 1849 1748 1850 1098 1851 2302 1852 1584 1853 350 1854 596 1855 254 1856 2672 1857 2755 1858 1381 1859 1689 1860 1713 1861 1031 1862 2542 1863 246 1864 731 1865 2569 1866 698 1867 1075 1868 356 1869 2716 1870 2174 1871 818 1872 1461 1873 928 1874 1240 1875 42 1876 1897 1877 1294 1878 433 1879 510 1880 928 1881 1934 1882 955 1883 1852 1884 1335 1885 1299 1886 586 1887 1725 1888 576 1889 1729 1890 2550 1891 2914 1892 661 1893 543 1894 551 1895 1626 1896 2234 1897 893 1898 2031 1899 582 1900 1170 1901 2321 1902 398 1903 2583 1904 733 1905 1407 1906 1806 1907 2018 1908 807 1909 1743 1910 427 1911 1161 1912 255 1913 2567 1914 1657 1915 88 1916 130 1917 1405 1918 2990 1919 156 1920 1757 1921 463 1922 1448 1923 2114 1924 850 1925 2378 1926 499 1927 2738 1928 2910 1929 79 1930 1114 1931 557 1932 1384 1933 1425 1934 1596 1935 1992 1936 1018 1937 570 1938 524 1939 2499 1940 1341 1941 2096 1942 644 1943 1234 1944 1816 1945 1955 1946 651 1947 2196 1948 2046 1949 94 1950 1324 1951 1531 1952 410 1953 857 1954 268 1955 389 1956 1155 1957 102 1958 538 1959 1016 1960 678 1961 363 1962 1133 1963 613 1964 786 1965 1024 1966 1199 1967 1885 1968 1127 1969 682 1970 1676 1971 719 1972 1892 1973 1338 1974 2400 1975 281 1976 1141 1977 1045 1978 1505 1979 1097 1980 214 1981 1936 1982 1185 1983 401 1984 2636 1985 909 1986 1268 1987 2219 1988 244 1989 199 1990 705 1991 1187 1992 1209 1993 2500 1994 2834 1995 909 1996 990 1997 10 1998 2995 1999 326 2000 995