จำนวนนอตนายกที่มีการข้าม n


9

ปมที่สำคัญคือ

ปมที่ไม่สำคัญซึ่งไม่สามารถเขียนเป็นผลรวมของปมที่ไม่ใช่ปมสองอัน

คำอธิบายของknot-sum : ใส่นอตสองตัวที่อยู่ติดกัน

ป้อนคำอธิบายรูปภาพที่นี่

... จากนั้นให้ลากสองเส้นระหว่างเส้นเหล่านั้นไปยังเส้นเดียวกันในแต่ละด้านแล้วเอาส่วนที่อยู่ระหว่างบรรทัดที่คุณเพิ่งวาด การประกอบของสองนอตนี้จะเป็นปมใหม่ที่ไม่ใช่นายก

ป้อนคำอธิบายรูปภาพที่นี่

นี่คือนอตที่สำคัญทั้งหมดที่มีการข้าม 7 ครั้งหรือน้อยกว่า (Unknot ไม่ใช่ไพร์ม):

ป้อนคำอธิบายรูปภาพที่นี่

คุณจำเป็นต้องส่งออกจำนวน knots เฉพาะที่ไม่ซ้ำกันสำหรับจำนวนการข้ามที่กำหนด

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


1
บางทีบางคนอาจพบว่าห้องสมุด Mathematica นี้มีประโยชน์
mbomb007

คำตอบ:


2

Mathematica + KnotTheory` , 13 ไบต์

NumberOfKnots

ฉันไม่ทราบว่ามีฟังก์ชันในตัวนี้เมื่อฉันแสดงความคิดเห็นว่าแพคเกจอาจมีประโยชน์ ทุกคนมีโอกาสเท่ากันที่จะค้นพบมันตั้งแต่ฉันแสดงความคิดเห็นเกี่ยวกับห้องสมุด ผมพบว่ามันอยู่ในรายชื่อของคุณสมบัติเอกสารเบายังฉันจะไม่ยอมรับคำตอบนี้เนื่องจากฉันต้องการเห็นคำตอบของคนอื่น


1
คุณเห็นว่าเอกสารประกอบนั้นแย่มากคุณแน่ใจว่าสิ่งนี้ใช้ได้กับตัวเลขที่มากกว่า 16 หรือไม่?
Ad Hoc Garf Hunter

@WeatWizard ไม่ฉันไม่แน่ใจว่าจะบอกได้อย่างไร มันจะใช้เวลานานเกินไปที่จะทำงานจนเสร็จ มีวิธีค้นหาว่ามีการใช้งานอย่างไร
mbomb007

1
คุณลองใช้งานแล้วหรือยัง มันอาจส่งคืนข้อผิดพลาด ฉันไม่สามารถเรียกใช้ mathematica ได้ในขณะนี้ แต่ฉันจะตรวจสอบว่ามันค้างเมื่อคุณพยายามเรียกใช้
Ad Hoc Garf Hunter

@Weateat ตัวช่วยสร้างฉันไม่สามารถตรวจสอบได้เช่นกัน แจ้งให้เราทราบหากคุณลอง
mbomb007

จริง ๆ แล้วฉันดูที่ซอร์สโค้ดเพื่อค้นหา แต่ฉันไม่พบคำจำกัดความ พื้นที่เก็บข้อมูลเป็นแบบสาธารณะ katlas.math.toronto.edu/svn/KnotTheory/trunk/KnotTheory
mbomb007
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.