# This b-file was computed by Antti Karttunen, 2024-02-19 # 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: # # isconnected(facs) = { my(siz=length(facs)); if(1==siz,1,my(m=matrix(siz,siz,i,j,(gcd(facs[i],facs[j])!=1))^siz); for(n=1,siz,if(0==vecmin(m[n,]),return(0))); (1)); }; # A286518aux(n, parts, from=1, ss=List([])) = { my(k = #parts, s=0, newss); if(lcm(Vec(ss))==n && isconnected(ss), s++); for(i=from, k, newss = List(ss); listput(newss, parts[i]); s += A286518aux(n, parts, i+1, newss)); (s) }; # A286518(n) = if(1==n, n, A286518aux(n, divisors(n))); \\ ~~~~ # for(n=1,4096,write("b286518.txt", n, " ", A286518(n))); 1 1 2 1 3 1 4 2 5 1 6 4 7 1 8 4 9 2 10 4 11 1 12 20 13 1 14 4 15 4 16 8 17 1 18 20 19 1 20 20 21 4 22 4 23 1 24 88 25 2 26 4 27 4 28 20 29 1 30 96 31 1 32 16 33 4 34 4 35 4 36 196 37 1 38 4 39 4 40 88 41 1 42 96 43 1 44 20 45 20 46 4 47 1 48 368 49 2 50 20 51 4 52 20 53 1 54 88 55 4 56 88 57 4 58 4 59 1 60 1824 61 1 62 4 63 20 64 32 65 4 66 96 67 1 68 20 69 4 70 96 71 1 72 1688 73 1 74 4 75 20 76 20 77 4 78 96 79 1 80 368 81 8 82 4 83 1 84 1824 85 4 86 4 87 4 88 88 89 1 90 1824 91 4 92 20 93 4 94 4 95 4 96 1504 97 1 98 20 99 20 100 196 101 1 102 96 103 1 104 88 105 96 106 4 107 1 108 1688 109 1 110 96 111 4 112 368 113 1 114 96 115 4 116 20 117 20 118 4 119 4 120 30336 121 2 122 4 123 4 124 20 125 4 126 1824 127 1 128 64 129 4 130 96 131 1 132 1824 133 4 134 4 135 88 136 88 137 1 138 96 139 1 140 1824 141 4 142 4 143 4 144 13936 145 4 146 4 147 20 148 20 149 1 150 1824 151 1 152 88 153 20 154 96 155 4 156 1824 157 1 158 4 159 4 160 1504 161 4 162 368 163 1 164 20 165 96 166 4 167 1 168 30336 169 2 170 96 171 20 172 20 173 1 174 96 175 20 176 368 177 4 178 4 179 1 180 126624 181 1 182 96 183 4 184 88 185 4 186 96 187 4 188 20 189 88 190 96 191 1 192 6080 193 1 194 4 195 96 196 196 197 1 198 1824 199 1 200 1688 201 4 202 4 203 4 204 1824 205 4 206 4 207 20 208 368 209 4 210 31840 211 1 212 20 213 4 214 4 215 4 216 28912 217 4 218 4 219 4 220 1824 221 4 222 96 223 1 224 1504 225 196 226 4 227 1 228 1824 229 1 230 96 231 96 232 88 233 1 234 1824 235 4 236 20 237 4 238 96 239 1 240 489984 241 1 242 20 243 16 244 20 245 20 246 96 247 4 248 88 249 4 250 88 251 1 252 126624 253 4 254 4 255 96 256 128 257 1 258 96 259 4 260 1824 261 20 262 4 263 1 264 30336 265 4 266 96 267 4 268 20 269 1 270 30336 271 1 272 368 273 96 274 4 275 20 276 1824 277 1 278 4 279 20 280 30336 281 1 282 96 283 1 284 20 285 96 286 96 287 4 288 113120 289 2 290 96 291 4 292 20 293 1 294 1824 295 4 296 88 297 88 298 4 299 4 300 126624 301 4 302 4 303 4 304 368 305 4 306 1824 307 1 308 1824 309 4 310 96 311 1 312 30336 313 1 314 4 315 1824 316 20 317 1 318 96 319 4 320 6080 321 4 322 96 323 4 324 13936 325 20 326 4 327 4 328 88 329 4 330 31840 331 1 332 20 333 20 334 4 335 4 336 489984 337 1 338 20 339 4 340 1824 341 4 342 1824 343 4 344 88 345 96 346 4 347 1 348 1824 349 1 350 1824 351 88 352 1504 353 1 354 96 355 4 356 20 357 96 358 4 359 1 360 8223168 361 2 362 4 363 20 364 1824 365 4 366 96 367 1 368 368 369 20 370 96 371 4 372 1824 373 1 374 96 375 88 376 88 377 4 378 30336 379 1 380 1824 381 4 382 4 383 1 384 24448 385 96 386 4 387 20 388 20 389 1 390 31840 391 4 392 1688 393 4 394 4 395 4 396 126624 397 1 398 4 399 96 400 13936 401 1 402 96 403 4 404 20 405 368 406 96 407 4 408 30336 409 1 410 96 411 4 412 20 413 4 414 1824 415 4 416 1504 417 4 418 96 419 1 420 8344160 421 1 422 4 423 20 424 88 425 20 426 96 427 4 428 20 429 96 430 96 431 1 432 477152 433 1 434 96 435 96 436 20 437 4 438 96 439 1 440 30336 441 196 442 96 443 1 444 1824 445 4 446 4 447 4 448 6080 449 1 450 126624 451 4 452 20 453 4 454 4 455 96 456 30336 457 1 458 4 459 88 460 1824 461 1 462 31840 463 1 464 368 465 96 466 4 467 1 468 126624 469 4 470 96 471 4 472 88 473 4 474 96 475 20 476 1824 477 20 478 4 479 1 480 7858176 481 4 482 4 483 96 484 196 485 4 486 1504 487 1 488 88 489 4 490 1824 491 1 492 1824 493 4 494 96 495 1824 496 368 497 4 498 96 499 1 500 1688 501 4 502 4 503 1 504 8223168 505 4 506 96 507 20 508 20 509 1 510 31840 511 4 512 256 513 88 514 4 515 4 516 1824 517 4 518 96 519 4 520 30336 521 1 522 1824 523 1 524 20 525 1824 526 4 527 4 528 489984 529 2 530 96 531 20 532 1824 533 4 534 96 535 4 536 88 537 4 538 4 539 20 540 8223168 541 1 542 4 543 4 544 1504 545 4 546 31840 547 1 548 20 549 20 550 1824 551 4 552 30336 553 4 554 4 555 96 556 20 557 1 558 1824 559 4 560 489984 561 96 562 4 563 1 564 1824 565 4 566 4 567 368 568 88 569 1 570 31840 571 1 572 1824 573 4 574 96 575 20 576 911296 577 1 578 20 579 4 580 1824 581 4 582 96 583 4 584 88 585 1824 586 4 587 1 588 126624 589 4 590 96 591 4 592 368 593 1 594 30336 595 96 596 20 597 4 598 96 599 1 600 8223168 601 1 602 96 603 20 604 20 605 20 606 96 607 1 608 1504 609 96 610 96 611 4 612 126624 613 1 614 4 615 96 616 30336 617 1 618 96 619 1 620 1824 621 88 622 4 623 4 624 489984 625 8 626 4 627 96 628 20 629 4 630 8344160 631 1 632 88 633 4 634 4 635 4 636 1824 637 20 638 96 639 20 640 24448 641 1 642 96 643 1 644 1824 645 96 646 96 647 1 648 477152 649 4 650 1824 651 96 652 20 653 1 654 96 655 4 656 368 657 20 658 96 659 1 660 8344160 661 1 662 4 663 96 664 88 665 96 666 1824 667 4 668 20 669 4 670 96 671 4 672 7858176 673 1 674 4 675 1688 676 196 677 1 678 96 679 4 680 30336 681 4 682 96 683 1 684 126624 685 4 686 88 687 4 688 368 689 4 690 31840 691 1 692 20 693 1824 694 4 695 4 696 30336 697 4 698 4 699 4 700 126624 701 1 702 30336 703 4 704 6080 705 96 706 4 707 4 708 1824 709 1 710 96 711 20 712 88 713 4 714 31840 715 96 716 20 717 4 718 4 719 1