หมายเลขคอมโพสิตสูงที่เหนือกว่าเป็นจำนวนเต็มโดยอัตราส่วนของจำนวนตัวหารต่อจำนวนกำลังของตัวเลขนั้นสูงที่สุดเท่าที่จะเป็นไปได้ แสดงสิ่งนี้เป็นสูตร:

ให้ d (n) เป็นจำนวนตัวหารของ n รวมถึงตัวเลขด้วย สำหรับจำนวนเต็ม n ที่ระบุหากมีจำนวน e เช่นนั้น d (n) / n ^ e มากกว่าหรือเท่ากับ d (k) / k ^ e สำหรับจำนวนเต็ม k ทุกตัวดังนั้น n จึงเป็นจำนวนที่ประกอบกันมาก

หากต้องการข้อมูลเพิ่มเติมโปรดดูหมายเลขคอมโพสิตที่สูงเป็นพิเศษที่ Wikipedia หรือA002201ที่ OEIS

นี่คือค่าเริ่มต้น:

2, 6, 12, 60, 120, 360, 2520, 5040, 55440, 720720, 1441440, 4324320, 21621600, 367567200, 6983776800, 13967553600, 321253732800, 2248776129600, 65214507758400, 195643523275200, 6064949221531200

ความท้าทายของคุณคือการใช้ดัชนี n และส่งออกหมายเลขที่ n ในลำดับนี้

คุณอาจใช้การจัดทำดัชนี 0 หรือ 1 และคุณอาจสร้างโปรแกรมที่ถูกต้องจนถึงข้อ จำกัด ของชนิดข้อมูลของภาษาของคุณตราบใดที่มันสามารถจัดการ 10 ค่าแรกอย่างน้อยที่สุด

นี่คือรหัสกอล์ฟ ช่องโหว่มาตรฐานใช้

Mathematica ขนาด 277 ไบต์

(A=AppendTo;p[f_]:=Module[{p=f[[1]],k=f[[2]]},N[Log[(k+2)/(k+1)]/Log[p]]];m=#;f={{2,1},{3,0}};o=1;l={2};x=Table[p[f[[i]]],{i,o+1}];For[n=2,n<=m,n++,i=Position[x,Max[x]][[1,1]];A[l,f[[i,1]]];f[[i,2]]++;If[i>o,o++;A[f,{Prime[i+1],0}];A[x,p[f[[-1]]]]];x[[i]]=p[f[[i]]]];Times@@l)&

อินพุต

[21]

เอาท์พุต

6064949221531200

อินพุต

[50]

เอาท์พุต

247899128073275948560051200231228551175691632580942972608000