নিকটতম 7-স্বতন্ত্র-প্রধান পণ্য

Question

_{( আড্ডার মাধ্যমে )}

OEIS এন্ট্রি A123321 সাতটি পৃথক প্রাইমের পণ্য হিসাবে সংখ্যার ক্রম তালিকাভুক্ত করে। বংশবৃদ্ধির জন্য, আমরা এটিকে একটি 7DP নম্বর বলব । প্রথম কয়েকটি সংখ্যা এবং তার সাথে সম্পর্কিত বিভাজনগুলি নীচে রয়েছে:

510510 = 2 * 3 * 5 * 7 * 11 * 13 * 17
570570 = 2 * 3 * 5 * 7 * 11 * 13 * 19
690690 = 2 * 3 * 5 * 7 * 11 * 13 * 23
746130 = 2 * 3 * 5 * 7 * 11 * 17 * 19

এখানে চ্যালেঞ্জটি প্রদত্ত ইনপুট থেকে নিখুঁত দূরত্বের শর্তে নিকটতম 7DP নম্বর সন্ধান করা হবে।

ইনপুট

কোনও সুবিধাজনক বিন্যাসে একটি একক ধনাত্মক পূর্ণসংখ্যা n ।

আউটপুট

এন থেকে নিকটতম 7DP নম্বর , আবার কোনও সুবিধাজনক বিন্যাসে। যদি দুটি 7DP সংখ্যা নিকটতমের জন্য বাঁধা থাকে তবে আপনি উভয় বা উভয়ই আউটপুট করতে পারেন।

বিধি

• নম্বরগুলি আপনার ভাষার ডিফল্ট [int]ডেটাটাইপ (বা সমমানের) সাথে মানানসই বলে ধরে নেওয়া যেতে পারে ।
• হয় একটি সম্পূর্ণ প্রোগ্রাম বা একটি ফাংশন গ্রহণযোগ্য।
• স্ট্যান্ডার্ড লুফোলগুলি নিষিদ্ধ।
• এটি কোড-গল্ফ , তাই সাধারণ গল্ফিংয়ের সমস্ত নিয়ম প্রয়োগ হয় এবং সংক্ষিপ্ততম কোড জিততে পারে।

উদাহরণ

5 -> 510510
860782 -> 870870
1425060 -> 1438710 (or 1411410, or both)

Answer 1

পাইথন, 89 86 85 বাইট

f=lambda n,k=0:126^sum(1>>n%i<<7*(n/i%i<1)for i in range(2,n))and f(n+k,k%2*2+~k)or n

শুরুতে অ্যালগরিদমটি হ'ল (ভীতিজনক) এবং পুনরাবৃত্তিটি আসলেই সহায়তা করে না, তবে এটি দীর্ঘ সময় ধরে কাজ করে যতক্ষণ n 7DP সংখ্যার কাছে পর্যাপ্ত থাকে।

@ এক্সনরকে 3 বাইট বন্ধ করে দেওয়ার জন্য ধন্যবাদ!

এটি repl.it পরীক্ষা করুন ।

কিভাবে এটা কাজ করে

পাইথনের কোনও প্রাথমিকতা বা গুণক অন্তর্নির্মিত নেই, তবে আমরা তাদের বিভাজনকারীদের পরিমাণ এবং প্রকৃতি অনুসারে 7DP সংখ্যাগুলি সনাক্ত করতে পারি।

গুণনের নীতি দ্বারা, কোনও পূর্ণসংখ্যার বিভাজকের সংখ্যাটিকে তার প্রধান গুণকীয়করণের বর্ধিত এক্সপোশনগুলির পণ্য হিসাবে গণনা করা যেতে পারে। সুতরাং, σ ₀ (ঢ) ( ভাজক ফাংশন ) হল 2 ^মি যখনই এন একটি এমডিপি সংখ্যা।

σ ₀ (n) = 128 সুতরাং এটি একটি প্রয়োজনীয় শর্ত, তবে এটি পর্যাপ্ত নয়; উদাহরণস্বরূপ, σ ₀ (2 ¹²⁷ ) = 128 , তবে 2 ¹²⁷ স্পষ্টত কোনও 7DP সংখ্যা নয়। যাইহোক, যদি উভয় σ ₀ (n) = 128 এবং কোনও নিখুঁত বর্গ n সমানভাবে ভাগ করে না , তবে n হ'ল 7DP সংখ্যা।

ইনপুট এন এর জন্য , অ্যালগরিদমটি এন , এন - 1 , এন + 1 , এন - 2 , এন + 2 , ইত্যাদি পূর্ণসংখ্যার পরিদর্শন করে এবং প্রথমটি যা 7DP সংখ্যার হয় তা ফিরিয়ে দেয়।

যখন চ আর্গুমেন্ট এন দিয়ে ডাকা হয় , নিম্নলিখিতটি ঘটে:

• কোড

  126^sum(1>>n%i<<7*(n/i%i<1)for i in range(2,n))

  পরীক্ষার হলে এন হয় না একটি 7DP সংখ্যা নিম্নরূপ।

  সমস্ত পূর্ণসংখ্যার জন্য আমি যেমন 1 <i <n , 1>>n%i<<7*(n/i%i<1)মূল্যায়ন করি।

  • তাহলে এন দিয়ে বিভাজ্য আমি কিন্তু না আমি ² , 1>>n%iউৎপাদনের 1 এবং (n/i%i<1)উৎপাদনের 0 , ফলে
    1 · 2 ^{7 · 0} = 1 ।

  • তাহলে এন দিয়ে বিভাজ্য আমি ² , 1>>n%iএবং (n/i%i<1)উভয় ফলন 1 , ফলে 1 · 2 ^{7 · 1} = 128 ।

  • তাহলে এন দ্বারা বিভাজ্য নয় আমি , 1>>n%iউৎপাদনের 0 , ফলে 0 · 2 ^{7 · এক্স} = 0 ।

  
  ফলে পূর্ণসংখ্যার যোগফল হতে হবে 2 ^{মিটার} - 2 যদি এন একটি এমডিপি নম্বর (তার হয় 2 ^মি ভাজক, ব্যতীত 1 এবং এন ) এবং থেকে বড় 127 যদি এন একটি নিখুঁত বর্গক্ষেত্র ফ্যাক্টর হয়েছে। সুতরাং, যোগফল 126 হবে এবং কেবল n যদি 7DP সংখ্যা হয়।

• DP ডিপি সংখ্যার জন্য, যোগফলটি 126 , সুতরাং এটির 126 ফলন 0 দিয়ে XORing করা , যা মিথ্যা। সুতরাং, বা ল্যামডা অংশ মৃত্যুদন্ড কার্যকর করা হয়েছে চ আয় বর্তমান মান এন ।

• যদি এন একটি 7DP নম্বর না হয় তবে এক্সওর একটি শূন্য, সত্যবাদী মান প্রদান করবে। সুতরাং, ল্যাম্বদার এবং এর অংশটি নির্বাহ করা হয়।

  f(n+k,k%2*2+~k)

  যাও recursively কল চ আপডেট মান এন (পরবর্তী সম্ভাব্য 7DP নম্বর) ট (নতুন প্রার্থী এবং যে একের পর এক মধ্যে পার্থক্য)।

  তাহলে ট একটি এমনকি অ নেতিবাচক পূর্ণসংখ্যা, k%2*2উৎপাদ 0 এবং ~kউৎপাদনের - (ট + 1 টি) । উভয় ফলাফল এর সমষ্টি (ট + 1 টি) - যা একটি বিজোড়, নেতিবাচক পূর্ণসংখ্যা যে, 1 তুলনায় পরম মান বৃহত্তর ট ।

  তাহলে ট একটি বিজোড়, নেতিবাচক পূর্ণসংখ্যা, k%2*2উৎপাদ 2 এবং ~kউৎপাদনের - (ট + 1 টি) । উভয় ফলাফল এর সমষ্টি 2 - (ট + 1 টি) = - (ট - 1) যা একটি এমনকি অ নেতিবাচক পূর্ণসংখ্যা যে 1 তুলনায় পরম মান ইউনিট বৃহত্তর ট ।

  এর অর্থ এই যে ট মান লাগে 0, -1, 2, -3, 4, ⋯ ।

  যখন থেকে উপায়ে যোগ এন ₀ (প্রাথমিক মান এন ) ফলে পূর্ণসংখ্যা

  • এন ₀ + 0
  • ( এন ₀ + 0) - 1 = n ₀ - 1
  • ( এন ₀ - 1) + 2 = n ₀ + 1
  • ( এন ₀ + 1) - 3 = n ₀ - 2
  • ( এন ₀ - 2) + 4 = এন ₀ + 2
  • প্রভৃতি

  
  এমনটা নিশ্চিত প্রথম 7DP সংখ্যা আমরা সম্মুখীন পাসে হিসাবে এন ₀ সম্ভব।

Comments

বিভাজন গণনা সহ দুর্দান্ত ধারণা! আমি মনে করি আপনি শুরু করে kসরাসরি আপডেট করে বিকল্প হাঁটার গল্ফ করতে পারেন । f(n+k,k%2*2+~k)k=0

— xnor

মহান উন্নতি. ধন্যবাদ!

— ডেনিস

Answer 2

ব্র্যাচল্যাগ , 44 40 16 বাইট

_{ক্রস করা হয়েছে 44 এখনও নিয়মিত 44; (}

:I=+.>0,.$pPdPl7

উদাহরণ:

?- run_from_atom(':I=+.>0,.$pPdPl7',1425060,Z).
Z = 1438710 .

এটা কি এই ভাষাটি সবসময় চুষে পায় না? আমি জেলি এবং এমএটিএলকে মারলাম!

পরীক্ষার 5কেসটি দীর্ঘতম এবং আমার মেশিনে প্রায় 10 সেকেন্ড সময় নেয়।

এটি 12 বাইট হবে যদি $pএটি বাগ না করা হয় (আমাদের >0,.অংশটির প্রয়োজন হবে না )

ব্যাখ্যা

ব্র্যাচল্যাগ সমস্ত সংখ্যার গাণিতিকের জন্য ডিফল্টরূপে সীমাবদ্ধ লজিক প্রোগ্রামিং ব্যবহার করে। তদতিরিক্ত, অন্তর্নির্মিত লেবেল =সম্ভবত অসীম ডোমেনগুলিতে কাজ করে।

এটা তোলে ধারাবাহিকভাবে কোন সীমাবদ্ধতা (অর্থাত সঙ্গে একটি পরিবর্তনশীল unifies (-inf, inf)) যেমন: 0, 1, -1, 2, -2, 3, …।

অতএব, আমরা Iএকীভূত প্রথম সংখ্যাটি (-inf, inf)(স্বয়ংক্রিয় ব্যাকট্র্যাকিং ব্যবহার করে) সন্ধান করে নিকটতম 7DP নম্বর পেতে পারি , যার Input + Iজন্য 7DP নম্বর।

:I=                Label variables in [Input, I]. I has no constraints and Input is known
   +.              Unify Output with Input + I
     >0,           Output > 0 (wouldn't be needed if $p failed for numbers less than 1)
        .$pP       Unify P with the list of prime factors of Output
            dP     Check that P with duplicates removed is still P
              l7   Check that the length of P is 7

Comments

আমি জেলি এবং এমএটিএলকে মারলাম! তবে কেবল 0 বাইট দ্বারা :

— লুইস মেন্ডো

@ লুইস মেন্ডো যদি আমি বাগটি ঠিক করি তবে এটি 13 বাইট হবে $p। তাত্ত্বিকভাবে আমার দরকার নেই >0,, তবে আমার বাস্তবায়ন বগি: পি

— ফ্যাটালাইজ

@ ডেভিডসি হ্যাঁ, কারণ এটি ইনপুট থেকে শুরু হয় এবং তারপরে সমস্ত সংখ্যার চেষ্টা করে: Input+1, Input-1, Input+2, Input-2, Input+3, ... সুতরাং সেই পদ্ধতির সাথে পাওয়া প্রথম 7DP সবচেয়ে কাছের হবে।

— ই

চ্যালেঞ্জ পোস্ট হওয়ার পরে @ ম্যাট ফিক্সিং বাগগুলি উত্তরটি প্রতিদ্বন্দ্বিতা করে, সুতরাং আমি এটি 16 এ রেখে দেব, যদিও এখন এটি 12 বাইট হতে পারে ( >0,.প্রয়োজন নেই)

— ফ্যাটালাইজ

কোডগলফ.সটাকেক্সচেঞ্জ /a/111998/59995 ক্রসড আউট 444 এখনও 444 we যখন আমরা ক্রস-আউট 4444 দেখি তখন আমি মুগ্ধ

— হব

Answer 3

জেলি, 17 বাইট

Pµạ³,
×⁹ÆRœc7Ç€ṂṪ

তত্ত্বের সাথে কাজ করে তবে সম্পূর্ণ হতে অনেক বছর সময় লাগে।

---

এখানে এমন একটি সংস্করণ রয়েছে যা প্রদত্ত ইনপুটগুলির পক্ষে আসলে কাজ করে তবে তাত্ত্বিকভাবে বড় ইনপুটগুলির জন্য ব্যর্থ হয়:

Pµạ³,
50ÆRœc7Ç€ṂṪ

এখানে চেষ্টা করুন। এটি 50 টি পর্যন্ত সমস্ত প্রাইম জেনারেট করে, তারপরে সেই তালিকায় সমস্ত 7 সংমিশ্রণগুলি এবং তারপরে তাদের সমস্ত পণ্য সন্ধান করে। শেষ অবধি, এটি কেবলমাত্র সেই তালিকা থেকে প্রদত্ত আর্গুমেন্টের নিকটতম উপাদান খুঁজে পায়।

অবশ্যই, একবার আমাদের 7DP- এ 50 টিরও বেশি প্রাইম থাকে তবে এটি ব্যর্থ হবে। তাত্ত্বিক সংস্করণে আপ সব মৌলিক উত্পন্ন 256n একটি ইনপুট জন্য এন , কিন্তু অন্যথায় একই ভাবে কাজ করে।

প্রমাণ

দিন p(x)এর পরের প্রধানটি বোঝাতেx । এক্স এর নিকটতম 7DP পণ্যটির জন্য একটি (অত্যন্ত আলগা) উপরের আবদ্ধ হ'ল:

p(x) * p(p(x)) * p(p(p(x))) * ... * p(p(p(p(p(p(p(x)))))))

সুতরাং আমাদের কেবল [2… পি (পি (পি (পি (পি (পি (এক্স)))))]] তে প্রাইমগুলি পরীক্ষা করতে হবে । বার্ট্র্যান্ডের পোষ্টুলেট বলে যে পি (x) ≤ 2x , তাই সমস্ত প্রাইম পর্যন্ত পরীক্ষা করা যথেষ্ট 128x ।

Comments

×⁹ÆRœc7P€µạ³ỤḢịবা ×⁹ÆRœc7P€µạ³NMị( সমস্ত সমাধানের অ্যারে মুদ্রণ ) কয়েক বাইট সংরক্ষণ করে। এছাড়াও, দক্ষতা উন্নত ×⁹করতে পরিবর্তন করা +⁴যেতে পারে।

— ডেনিস

Answer 4

এমএটিএল , 21 17 16 14 13 বাইট

4 টি বাইট মুছে ফেলার একটি পরামর্শের জন্য ডেনিসকে ধন্যবাদ এবং আরও একটি যা আরও 1 বাইট সংরক্ষণ করেছে!

t17*Zq7XN!pYk

এটি তত্ত্ব হিসাবে কাজ করে, তবে উপরের ইনপুটগুলির জন্য মেমরির বাইরে চলে যায় 6 (অনলাইন সংকলক) ।

আরও কার্যকর সংস্করণে 21 বাইট ব্যবহার করা হয় এবং প্রায় এক সেকেন্ডে সমস্ত পরীক্ষার কেস গণনা করা হয়:

t3e4/k16+_YqZq7XN!pYk

এটি অনলাইন চেষ্টা করুন!

• মেমরি-অদক্ষ সংস্করণ
• স্মৃতি-দক্ষ সংস্করণ version
• মেমরি-দক্ষ সংস্করণ, সমস্ত পরীক্ষার কেস

ব্যাখ্যা

স্মৃতি-দক্ষ সংস্করণ version

উদাহরণ হিসাবে ইনপুট নিন N = 860782। এম = অবধি প্রাইমগুলি বিবেচনা করা যথেষ্ট 29, যা প্রথম প্রাইম যা 2*3*5*7*11*13এন দ্বারা অতিক্রম করেছে । এই উদাহরণে 2*3*5*7*11*13*29 = 870870,। পরের প্রধানমন্ত্রী হলেন 31। প্রধান বা বৃহত্তর সাথে জড়িত যে কোনও পণ্য কমপক্ষে হবে 2*3*5*7*11*13*31 = 930930এবং তাই এটি সমাধান না হওয়ার গ্যারান্টিযুক্ত কারণ এটি এন870870 ছাড়িয়ে গেছে ।

এম চেয়ে প্রথম প্রধানমন্ত্রী বৃহত্তর হিসেবে নির্ণয় করা হয় max(N/(2*3*5*7*11*13), 16)। maxফাংশন নিশ্চিত অন্তত জন্য ব্যবহার করা হয় 17বাছাই করা হয়। কয়েকটি বাইট সংরক্ষণ করতে, কোড এর 2*3*5*7*11*13 = 30030দ্বারা প্রতিস্থাপন করে 30000এবং maxসংযোজন করে ফাংশন করে। এই পরিবর্তনগুলি বৈধ কারণ তারা একটি বৃহত্তর মান দেয়।

t      % Take input implicitly. Duplicate
3e4/k  % Divide input by 30000 and round down (rounding here is only needed
       % due to a bug in the "next prime" function)
16+    % Add 16
_Yq    % Next prime
Zq     % Prime numbers up to that value
7XN    % Combinations of those primes taken 7 at a time. Gives a 2D array
       % with each combination on a different row
!p     % Product of each row
Yk     % Output product that is closest to the input. Implicitly display

মেমরি-অদক্ষ সংস্করণ

আরও বাইট সংখ্যা হ্রাস করতে বিভাগ অপসারণ করা যেতে পারে; প্রকৃতপক্ষে, এটি 17( গুণ , @ ডেনিস) দ্বারা গুণ করা যথেষ্ট । এটি নিশ্চিত করে যে পরবর্তী প্রাইম অন্তর্ভুক্ত রয়েছে ( বার্ট্র্যান্ডের পোস্টুলেট দ্বারা ) এবং ফলাফলটি কমপক্ষে 17। এটি তত্ত্বের সাথে কাজ করে তবে প্রায় বড় ইনপুটগুলির জন্য মেমরির বাইরে চলে যায়6 ।

কোড, বিভাগে

3e4/k  % Divide input by 30000 and round down (rounding here is only needed
       % due to a bug in the "next prime" function)
16+    % Add 16
_Yq    % Next prime

দ্বারা প্রতিস্থাপিত হয়

17*    % Multiply by 17

Answer 5

পাইকে, 32 বাইট

#PDl 7q.ID}lRlqi*(#)DF-X,)R],She

এখানে চেষ্টা করুন!

নোট করুন এটি অনলাইনে কাজ করে না - এটি সময়সাপেক্ষে। এই সংস্করণ কেবল 2 স্বতন্ত্র প্রাইমগুলির জন্য পরীক্ষা করে এবং দ্রুত কাজ করা উচিত। লক্ষ্য থেকে দূরে একই দূরত্বের 2 টি সংখ্যা থাকা অবস্থায়, এটি নীচেরটি পছন্দ করে।

এটি সমস্ত সংখ্যার মধ্য দিয়ে যায় যতক্ষণ না এটি কোনও ইনপুটের চেয়ে বড় এবং 7DP হয় finds প্রতিটি সংখ্যার জন্য, এটি 7DP না হলে এটি থেকে মুক্তি পেয়ে যায়। এরপরে এটির সাথে বড় আকারের ইনপুট পর্যন্ত 7DP তালিকার তালিকা রয়েছে। তারপরে এটি ইনপুটটির নিকটে থাকাটিকে বেছে নেয়।

Answer 6

জুলিয়া, 59 বাইট

!n=sort(map(prod,combinations(17n|>primes,7))-n,by=abs)[]+n

এটা খুব অদক্ষ, তবে এটি অনুশীলনে প্রথম পরীক্ষার ক্ষেত্রে এবং তত্ত্বের ক্ষেত্রে অন্যদের জন্য কাজ করে।

মোট 64৪ বাইটের জন্য আরও পাঁচটি বাইট ব্যয়ে - দক্ষতা নাটকীয়ভাবে উন্নত করা যেতে পারে।

!n=sort(map(prod,combinations(n>>14+17|>primes,7))-n,by=abs)[]+n

এটি অনলাইন চেষ্টা করুন!

পটভূমি

@ লুইসমেডোর উত্তরে উল্লিখিত হিসাবে , নিকটতম 7DP সংখ্যার জন্য আমাদের প্রাইমগুলির সেটটি বিবেচনা করতে হবে তা বেশ ছোট। এটিতে 7DP নম্বর রয়েছে যা ইনপুট এন এর চেয়ে বড় হবে সেটটি যথেষ্ট হবে, যদি এটির মধ্যে কেবল তখনই সত্য হবে যদি এটিতে প্রাইম পি ≥ 17 যেমন 30300 পি = 2 · 3 · 5 · 7 · 11 · 13 · p থাকে । N।

ইন অন্তত একটি মৌলিক সংখ্যা ধারণকারী ব্যবধান উপর প্রমাণ করে যে ব্যবধান এর [x, 1.5x) অন্তত একটি মৌলিক সংখ্যা যখনই রয়েছে এক্স ≥ 8 । যেহেতু 30030/16384 ≈ 1.83 , তার মানে সেখানে একটি মৌলিক হতে হবে পি মধ্যে (N / 30030 N / 16384) যখনই এন> 8 · 30300 = 242400 ।

অবশেষে, যখন এন <510510 , পি = 17 স্পষ্টভাবে যথেষ্ট, তাই আমাদের কেবল এন / 16384 + 17 পর্যন্ত প্রাইমগুলি বিবেচনা করতে হবে ।

দক্ষতার ব্যয়ে, আমরা পরিবর্তে 17n পর্যন্ত প্রাইমগুলি বিবেচনা করতে পারি । এই কাজ যখন এন = 1 চেয়ে অতি বড় N / 16384 + + 17 বড় মানের জন্য এন ।

কিভাবে এটা কাজ করে

17n|>primesএবং n>>14+17|>primes(বিটশিফ্টটি 2 ¹⁴ = 16384 দ্বারা বিভাজনের সমতুল্য ) পূর্ববর্তী অনুচ্ছেদে উল্লিখিত প্রধান রেঞ্জগুলি গণনা করুন। তারপরে, combinations(...,7)এই ব্যাপ্তিতে সাতটি পৃথক মৌলিক সংখ্যার সমস্ত অ্যারে গণনা করে এবং prodসেগুলির উপরে ম্যাপিং তাদের পণ্যগুলি গণনা করে, অর্থাত্ DP টি জিডি নম্বর যা থেকে আমরা উত্তরটি বেছে নেব।

এরপরে, প্রতিটি 7DP নম্বরের এন-n বিয়োগ করে , তারপরে তাদের পার্থক্যগুলিকে তাদের পরম মান অনুসারে বাছাই করে। পরিশেষে, আমরা প্রথম পার্থক্য নির্বাচন এবং যোগ করে গনা সংশ্লিষ্ট 7DP সংখ্যা এন সঙ্গেsort(...,by=abs)[]+n ।

Answer 7

পাইথ, 30 বাইট

L&{IPbq7lPby#.W!syMH,hhZa0teZ,

এটি অনলাইন চেষ্টা করুন!

পরীক্ষা স্যুট.

(5 চালাতে খুব বেশি সময় নেয়)

ব্যাখ্যা

L&{IPbq7lPby#.W!syMH,hhZa0teZ,

L&{IPbq7lPb     Defines a function y, whose argument is b:
 &                  Return if both the following are true:
  {IPb                  the prime factorization contains no duplicate; and:
      q7lPb             the number of prime factors is 7

           y#.W!syMH,hhZa0teZ,   The main programme. Input as Q.
                             ,QQ Implicit arguments, yield [Q,Q].
             .W                  While
               !syMH                   both numbers do not satisfy y:
                    ,hhZ             increment the first number
                          teZ        and decrement the second number
                        a0           while making it non-negative.

Answer 8

গণিত 136 80 75 বাইট

এই সহজবোধ্য পদ্ধতির থেকে বাহিরের দিকে কাজ করছেন n।

nযদি মৌলিক সংখ্যাগুলির সংখ্যা 7 ( PrimeNu@#==7) হয় তবে এটি একটি 7-স্বতন্ত্র-প্রাইম পণ্য এবং এর মধ্যে কোনওটিই একাধিকবার প্রদর্শিত হয় না ( SquareFreeQ@#&)।

g@n_:=(k=1;While[!(PrimeNu@#==7&&SquareFreeQ@#&)⌊z=n-⌊k/2](-1)^k⌋,k++];z)

আমার আগের জমা (136 বাইট) উপরে প্রথম 7-স্বতন্ত্র-প্রধান পণ্য উভয়ই খুঁজে পেয়েছে nএবং যদি তা বিদ্যমান থাকে তবে নীচে প্রথম 7-স্বতন্ত্র-প্রধান পণ্য n। এটি তখন কেবল নির্ধারণ করে যে কোনটি নিকটে ছিলn । পণ্যগুলি ন্যায়সঙ্গত হলে এটি উভয়ই ফিরিয়ে দেয়।

বর্তমান সংস্করণটি এন -1, এন + 1, এন -2, এন + 2 ... এটি প্রথম 7-স্বতন্ত্র-প্রধান পণ্যটিতে পৌঁছা পর্যন্ত পরীক্ষা করে। এই আরও কার্যকর সংস্করণ ডেনিস গ্রহণ করা পদ্ধতির গ্রহণ করে।

মূল অগ্রিম ⌊k/2](-1)^k⌋সিরিজটি ফিরে আসতে ব্যবহার করছিল , 0, 1, -1, 2, -2 ... শূন্যটি nনিজেই 7-স্বতন্ত্র-প্রধান পণ্য কিনা তা পরীক্ষা করতে ব্যবহৃত হয় । এই কারণে, Floor(যেটি ⌊...⌋) পরিবর্তে ব্যবহৃত হয় Ceiling।

---

g[5]
g[860782]
g[1425060]

510510

870870

1438710

Answer 9

05 এ বি 1 ই , 10 বাইট

°Åp7.ÆPs.x

এটি অনলাইন চেষ্টা করুন!

প্রথম 10 ** ইনপুট প্রাইমগুলির মধ্যে 7 এর সমস্ত সংমিশ্রণ চেষ্টা করে। 1 এর চেয়ে বড় ইনপুটগুলির জন্য মেমরি শেষ হয়ে যায়।

সম্ভবত আরও দক্ষ 14 বাইট সংস্করণ:

5°/7+Åp7.ÆPs.x

এটি অনলাইন চেষ্টা করুন!

প্রথম (ইনপুট / 100000 + 7) প্রাইম ব্যবহার করে।