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.

OEIS - A002863

Mathematica + KnotTheory` , 13 byte

NumberOfKnots

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.