Прем'єр вузол є:

нетривіальний вузол, який не можна записати як суму вузлів двох нетривіальних вузлів.

Пояснення суми вузлів : покладіть два вузли поруч,

... потім намалюйте дві лінії між ними, до того ж пасма з кожної сторони, і видаліть частину між лініями, які ви тільки що намалювали. Цей склад з двох вузлів утворить новий, непростий вузол.

Тут усі основні вузли із 7 або меншими перетинами (Unknot не є простим):

Потрібно вивести кількість унікальних простих вузлів для заданої кількості перетинів.

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

Я не думаю, що значення відомі для вхідних даних, більших за 16, але якщо дано таке введення, вашому коду потрібно буде знайти правильний результат з урахуванням достатнього часу.

OEIS - A002863

Mathematica + KnotTheory` , 13 байт

NumberOfKnots

Я не знав, що ця вбудована функція існує, коли я коментував, що пакет може бути корисним. Всі інші мали рівні шанси знайти його, оскільки я коментував бібліотеку. Я знайшов це у списку легкодокументованих функцій . Але я не прийму цієї відповіді, оскільки хочу бачити відповіді інших людей.