সুপিরিয়র হাইলি কমপোজেট নাম্বার


12

একটি উচ্চতর সংমিশ্রিত সংখ্যাটি একটি পূর্ণসংখ্যা যেখানে সংখ্যার কিছু পাওয়ারের সাথে তার বিভাজকের গণনার অনুপাত যতটা সম্ভব উচ্চতর হয়। সূত্র হিসাবে এটি প্রকাশ:

D (n) n এর বিভাজকের সংখ্যা হওয়া উচিত, নিজেই সংখ্যাটি সহ। প্রদত্ত পূর্ণসংখ্যার n এর জন্য, যদি কোনও সংখ্যক ই থাকে যেমন d (n) / n ^ e প্রতিটি পূর্ণসংখ্যার k এর জন্য d (k) / k ^ e এর চেয়ে বড় বা তার সমান হয়, তবে n একটি উচ্চ যৌগিক সংখ্যা।

আরও তথ্যের জন্য, উইকিপিডিয়ায় সুপিরিয়র হাই কমপোজিট নম্বর , বা ওআইআইএস-A002201 দেখুন

এখানে প্রাথমিক মানগুলি:

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

আপনার চ্যালেঞ্জটি হ'ল একটি সূচক এন নেওয়া, এবং এই অনুক্রমের নবম সংখ্যা আউটপুট।

আপনি 0 বা 1 ইনডেক্সিং ব্যবহার করতে পারেন এবং আপনি এমন একটি প্রোগ্রাম তৈরি করতে পারেন যা আপনার ভাষার ডেটা টাইপের (স) সীমা অবধি ঠিক থাকে, যতক্ষণ না এটি সর্বনিম্ন প্রথম 10 টি মানকে পরিচালনা করতে পারে।

এটি কোড গল্ফ। স্ট্যান্ডার্ড লুফোলস প্রযোজ্য।

উত্তর:


3

গণিত, 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

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.