Sebuah simpul utama adalah:
simpul non-trivial yang tidak dapat ditulis sebagai simpul dari dua simpul non-trivial.
Penjelasan dari simpul-jumlah : letakkan dua simpul yang berdekatan,
... lalu gambar dua garis di antara mereka, ke untaian yang sama di setiap sisi, dan lepaskan bagian di antara garis yang baru saja Anda gambar. Komposisi dua simpul ini akan membentuk simpul baru yang bukan prime.
Berikut ini semua simpul utama dengan 7 atau lebih sedikit penyeberangan (Unknot bukan prime):
Anda perlu menampilkan jumlah simpul utama unik untuk jumlah penyeberangan tertentu.
1 0
2 0
3 1
4 1
5 2
6 3
7 7
8 21
9 49
10 165
11 552
12 2176
13 9988
14 46972
15 253293
16 1388705
Saya tidak berpikir nilainya dikenal untuk input lebih besar dari 16, tetapi jika diberi input seperti itu, kode Anda akan perlu menemukan hasil yang benar diberikan waktu yang cukup.
sumber
Jawaban:
Mathematica + KnotTheory` , 13 byte
Saya tidak tahu fungsi bawaan ini ada ketika saya berkomentar bahwa paket itu mungkin berguna. Semua orang memiliki kesempatan yang sama untuk menemukannya, karena saya berkomentar tentang perpustakaan. Saya menemukannya dalam daftar Fitur yang Didokumentasikan Secara Ringan . Namun, saya tidak akan menerima jawaban ini, karena saya ingin melihat jawaban oleh orang lain.
sumber