# Computed 2018-09-11 in GP/PARI CALCULATOR Version 2.9.4 (released) amd64 running linux (x86-64/GMP-6.1.2 kernel) 64-bit version, compiled: Dec 19 2017, gcc version 7.3.0 (Ubuntu 7.3.0-1ubuntu1), threading engine: pthread # with the following program: # # allocatemem(2^30); # default(parisizemax,2^31); # strong_divisors_reversed(n) = vecsort(select(x -> (x>1), divisors(n)), , 4); # A318670aux(orgn,n,parts,from=1,ss=List([])) = { my(k = #parts, s=0, newss); if(lcm(Vec(ss))==orgn,s++); for(i=from,k,if(parts[i]<=n, newss = List(ss); listput(newss,parts[i]); s += A318670aux(orgn,n-parts[i],parts,i+1,newss))); (s) }; # A318670(n) = if(1==n,n,A318670aux(n,n,strong_divisors_reversed(n))); \\ ~~~~ # for(n=1,1259,write("b318670.txt", n, " ", A318670(n))); 1 1 2 1 3 1 4 1 5 1 6 2 7 1 8 1 9 1 10 2 11 1 12 5 13 1 14 2 15 2 16 1 17 1 18 6 19 1 20 6 21 2 22 2 23 1 24 17 25 1 26 2 27 1 28 7 29 1 30 34 31 1 32 1 33 2 34 2 35 2 36 44 37 1 38 2 39 2 40 23 41 1 42 36 43 1 44 7 45 7 46 2 47 1 48 65 49 1 50 7 51 2 52 7 53 1 54 21 55 2 56 25 57 2 58 2 59 1 60 471 61 1 62 2 63 7 64 1 65 2 66 39 67 1 68 7 69 2 70 44 71 1 72 355 73 1 74 2 75 7 76 7 77 2 78 39 79 1 80 89 81 1 82 2 83 1 84 531 85 2 86 2 87 2 88 27 89 1 90 559 91 2 92 7 93 2 94 2 95 2 96 257 97 1 98 7 99 7 100 61 101 1 102 39 103 1 104 28 105 46 106 2 107 1 108 390 109 1 110 46 111 2 112 99 113 1 114 39 115 2 116 7 117 7 118 2 119 2 120 6488 121 1 122 2 123 2 124 7 125 1 126 610 127 1 128 1 129 2 130 46 131 1 132 586 133 2 134 2 135 29 136 29 137 1 138 39 139 1 140 653 141 2 142 2 143 2 144 2897 145 2 146 2 147 7 148 7 149 1 150 607 151 1 152 29 153 7 154 46 155 2 156 601 157 1 158 2 159 2 160 356 161 2 162 82 163 1 164 7 165 46 166 2 167 1 168 7555 169 1 170 46 171 7 172 7 173 1 174 39 175 7 176 109 177 2 178 2 179 1 180 28181 181 1 182 46 183 2 184 29 185 2 186 39 187 2 188 7 189 29 190 46 191 1 192 1025 193 1 194 2 195 46 196 70 197 1 198 652 199 1 200 523 201 2 202 2 203 2 204 614 205 2 206 2 207 7 208 111 209 2 210 9986 211 1 212 7 213 2 214 2 215 2 216 6548 217 2 218 2 219 2 220 707 221 2 222 39 223 1 224 399 225 73 226 2 227 1 228 620 229 1 230 46 231 46 232 29 233 1 234 662 235 2 236 7 237 2 238 46 239 1 240 93712 241 1 242 7 243 1 244 7 245 7 246 39 247 2 248 29 249 2 250 29 251 1 252 32750 253 2 254 2 255 46 256 1 257 1 258 39 259 2 260 721 261 7 262 2 263 1 264 8518 265 2 266 46 267 2 268 7 269 1 270 8842 271 1 272 114 273 46 274 2 275 7 276 630 277 1 278 2 279 7 280 9725 281 1 282 39 283 1 284 7 285 46 286 46 287 2 288 23415 289 1 290 46 291 2 292 7 293 1 294 663 295 2 296 29 297 29 298 2 299 2 300 32630 301 2 302 2 303 2 304 115 305 2 306 672 307 1 308 757 309 2 310 46 311 1 312 8779 313 1 314 2 315 851 316 7 317 1 318 39 319 2 320 1428 321 2 322 46 323 2 324 3326 325 7 326 2 327 2 328 29 329 2 330 10986 331 1 332 7 333 7 334 2 335 2 336 111488 337 1 338 7 339 2 340 733 341 2 342 677 343 1 344 29 345 46 346 2 347 1 348 636 349 1 350 799 351 29 352 437 353 1 354 39 355 2 356 7 357 46 358 2 359 1 360 1469657 361 1 362 2 363 7 364 768 365 2 366 39 367 1 368 117 369 7 370 46 371 2 372 636 373 1 374 46 375 29 376 29 377 2 378 9837 379 1 380 737 381 2 382 2 383 1 384 4097 385 46 386 2 387 7 388 7 389 1 390 11246 391 2 392 582 393 2 394 2 395 2 396 36910 397 1 398 2 399 46 400 4295 401 1 402 39 403 2 404 7 405 121 406 46 407 2 408 9135 409 1 410 46 411 2 412 7 413 2 414 681 415 2 416 448 417 2 418 46 419 1 420 1664678 421 1 422 2 423 7 424 29 425 7 426 39 427 2 428 7 429 46 430 46 431 1 432 107887 433 1 434 46 435 46 436 7 437 2 438 39 439 1 440 10599 441 73 442 46 443 1 444 636 445 2 446 2 447 2 448 1601 449 1 450 39403 451 2 452 7 453 2 454 2 455 46 456 9251 457 1 458 2 459 29 460 742 461 1 462 11886 463 1 464 120 465 46 466 2 467 1 468 38043 469 2 470 46 471 2 472 29 473 2 474 39 475 7 476 784 477 7 478 2 479 1 480 1411362 481 2 482 2 483 46 484 73 485 2 486 331 487 1 488 29 489 2 490 813 491 1 492 636 493 2 494 46 495 851 496 121 497 2 498 39 499 1 500 566 501 2 502 2 503 1 504 1772220 505 2 506 46 507 7 508 7 509 1 510 11569 511 2 512 1 513 29 514 2 515 2 516 636 517 2 518 46 519 2 520 10838 521 1 522 687 523 1 524 7 525 851 526 2 527 2 528 127779 529 1 530 46 531 7 532 789 533 2 534 39 535 2 536 29 537 2 538 2 539 7 540 1715407 541 1 542 2 543 2 544 461 545 2 546 12080 547 1 548 7 549 7 550 843 551 2 552 9407 553 2 554 2 555 46 556 7 557 1 558 688 559 2 560 147579 561 46 562 2 563 1 564 636 565 2 566 2 567 121 568 29 569 1 570 11669 571 1 572 828 573 2 574 46 575 7 576 188310 577 1 578 7 579 2 580 747 581 2 582 39 583 2 584 29 585 851 586 2 587 1 588 38219 589 2 590 46 591 2 592 121 593 1 594 10535 595 46 596 7 597 2 598 46 599 1 600 1761822 601 1 602 46 603 7 604 7 605 7 606 39 607 1 608 466 609 46 610 46 611 2 612 39539 613 1 614 2 615 46 616 11492 617 1 618 39 619 1 620 749 621 29 622 2 623 2 624 132157 625 1 626 2 627 46 628 7 629 2 630 2128266 631 1 632 29 633 2 634 2 635 2 636 636 637 7 638 46 639 7 640 5723 641 1 642 39 643 1 644 797 645 46 646 46 647 1 648 113018 649 2 650 850 651 46 652 7 653 1 654 39 655 2 656 121 657 7 658 46 659 1 660 1955056 661 1 662 2 663 46 664 29 665 46 666 692 667 2 668 7 669 2 670 46 671 2 672 1700115 673 1 674 2 675 673 676 73 677 1 678 39 679 2 680 11160 681 2 682 46 683 1 684 40023 685 2 686 29 687 2 688 121 689 2 690 11811 691 1 692 7 693 851 694 2 695 2 696 9571 697 2 698 2 699 2 700 45746 701 1 702 10736 703 2 704 1758 705 46 706 2 707 2 708 636 709 1 710 46 711 7 712 29 713 2 714 12351 715 46 716 7 717 2 718 2 719 1 720 82362534 721 2 722 7 723 2 724 7 725 7 726 709 727 1 728 11721 729 1 730 46 731 2 732 636 733 1 734 2 735 851 736 473 737 2 738 693 739 1 740 754 741 46 742 46 743 1 744 9601 745 2 746 2 747 7 748 845 749 2 750 10089 751 1 752 121 753 2 754 46 755 2 756 2021455 757 1 758 2 759 46 760 11260 761 1 762 39 763 2 764 7 765 851 766 2 767 2 768 16385 769 1 770 14224 771 2 772 7 773 1 774 693 775 7 776 29 777 46 778 2 779 2 780 2036103 781 2 782 46 783 29 784 4826 785 2 786 39 787 1 788 7 789 2 790 46 791 2 792 2059141 793 2 794 2 795 46 796 7 797 1 798 12445 799 2 800 34870 801 7 802 2 803 2 804 636 805 46 806 46 807 2 808 29 809 1 810 140233 811 1 812 805 813 2 814 46 815 2 816 137824 817 2 818 2 819 851 820 756 821 1 822 39 823 1 824 29 825 851 826 46 827 1 828 40785 829 1 830 46 831 2 832 1800 833 7 834 39 835 2 836 847 837 29 838 2 839 1 840 316003332 841 1 842 2 843 2 844 7 845 7 846 693 847 7 848 121 849 2 850 851 851 2 852 636 853 1 854 46 855 851 856 29 857 1 858 12753 859 1 860 756 861 46 862 2 863 1 864 1751393 865 2 866 2 867 7 868 806 869 2 870 11926 871 2 872 29 873 7 874 46 875 29 876 636 877 1 878 2 879 2 880 162311 881 1 882 44529 883 1 884 851 885 46 886 2 887 1 888 9681 889 2 890 46 891 121 892 7 893 2 894 39 895 2 896 6419 897 46 898 2 899 2 900 14213148 901 2 902 46 903 46 904 29 905 2 906 39 907 1 908 7 909 7 910 14466 911 1 912 139772 913 2 914 2 915 46 916 7 917 2 918 10981 919 1 920 11408 921 2 922 2 923 2 924 2259100 925 7 926 2 927 7 928 479 929 1 930 11959 931 7 932 7 933 2 934 2 935 46 936 2136604 937 1 938 46 939 2 940 756 941 1 942 39 943 2 944 121 945 14119 946 46 947 1 948 636 949 2 950 851 951 2 952 12033 953 1 954 693 955 2 956 7 957 46 958 2 959 2 960 21848519 961 1 962 46 963 7 964 7 965 2 966 12572 967 1 968 632 969 46 970 46 971 1 972 27597 973 2 974 2 975 851 976 121 977 1 978 39 979 2 980 46875 981 7 982 2 983 1 984 9736 985 2 986 46 987 46 988 851 989 2 990 2423591 991 1 992 481 993 2 994 46 995 2 996 636 997 1 998 2 999 29 1000 9865 1001 46 1002 39 1003 2 1004 7 1005 46 1006 2 1007 2 1008 101586322 1009 1 1010 46 1011 2 1012 851 1013 1 1014 724 1015 46 1016 29 1017 7 1018 2 1019 1 1020 2142874 1021 1 1022 46 1023 46 1024 1 1025 7 1026 11060 1027 2 1028 7 1029 29 1030 46 1031 1 1032 9761 1033 1 1034 46 1035 851 1036 810 1037 2 1038 39 1039 1 1040 166268 1041 2 1042 2 1043 2 1044 41532 1045 46 1046 2 1047 2 1048 29 1049 1 1050 2427235 1051 1 1052 7 1053 121 1054 46 1055 2 1056 1966493 1057 2 1058 7 1059 2 1060 756 1061 1 1062 693 1063 1 1064 12132 1065 46 1066 46 1067 2 1068 636 1069 1 1070 46 1071 851 1072 121 1073 2 1074 39 1075 7 1076 7 1077 2 1078 851 1079 2 1080 351761679 1081 2 1082 2 1083 7 1084 7 1085 46 1086 39 1087 1 1088 1855 1089 73 1090 46 1091 1 1092 2337144 1093 1 1094 2 1095 46 1096 29 1097 1 1098 693 1099 2 1100 49684 1101 2 1102 46 1103 1 1104 142640 1105 46 1106 46 1107 29 1108 7 1109 1 1110 12025 1111 2 1112 29 1113 46 1114 2 1115 2 1116 41691 1117 1 1118 46 1119 2 1120 2288363 1121 2 1122 12981 1123 1 1124 7 1125 673 1126 2 1127 7 1128 9816 1129 1 1130 46 1131 46 1132 7 1133 2 1134 157025 1135 2 1136 121 1137 2 1138 2 1139 2 1140 2179455 1141 2 1142 2 1143 7 1144 12502 1145 2 1146 39 1147 2 1148 812 1149 2 1150 851 1151 1 1152 1510529 1153 1 1154 2 1155 15914 1156 73 1157 2 1158 39 1159 2 1160 11559 1161 29 1162 46 1163 1 1164 636 1165 2 1166 46 1167 2 1168 121 1169 2 1170 2502635 1171 1 1172 7 1173 46 1174 2 1175 7 1176 2153455 1177 2 1178 46 1179 7 1180 756 1181 1 1182 39 1183 7 1184 484 1185 46 1186 2 1187 1 1188 2300072 1189 2 1190 14744 1191 2 1192 29 1193 1 1194 39 1195 2 1196 851 1197 851 1198 2 1199 2 1200 101076849 1201 1 1202 2 1203 2 1204 813 1205 2 1206 693 1207 2 1208 29 1209 46 1210 851 1211 2 1212 636 1213 1 1214 2 1215 497 1216 1874 1217 1 1218 12684 1219 2 1220 756 1221 46 1222 46 1223 1 1224 2236733 1225 73 1226 2 1227 2 1228 7 1229 1 1230 12055 1231 1 1232 177118 1233 7 1234 2 1235 46 1236 636 1237 1 1238 2 1239 46 1240 11590 1241 2 1242 11149 1243 2 1244 7 1245 46 1246 46 1247 2 1248 2038234 1249 1 1250 121 1251 7 1252 7 1253 2 1254 13056 1255 2 1256 29 1257 2 1258 46 1259 1