বিআইইউ নম্বর (বা সংক্ষিপ্ত সংখ্যা)

Question

কিভাবে তাদের স্পট

ধনাত্মক পূর্ণসংখ্যার কে। এর বিভাজনগুলি সন্ধান করুন । প্রতিটি বিভাজকের পৃথক প্রধান কারণগুলি সন্ধান করুন । একসাথে এই সমস্ত কারণের যোগফল। যদি এই সংখ্যা (যোগফল) কে কে বিভাজক হয় (যোগফল কে কে বিভক্ত করে ) তবে এই সংখ্যাটি কে, বিআইইউ নম্বর

উদাহরণ

আসুন নেওয়া সংখ্যা 54
সব পাবেন ভাজক: [1, 2, 3, 6, 9, 18, 27, 54]
এটি স্বতন্ত্র মৌলিক উত্পাদক প্রতিটি ভাজক এর
উল্লেখ্য: ক্ষেত্রে জন্য 1আমরা স্বতন্ত্র মৌলিক উত্পাদক হিসাবে গ্রহণ1

1  -> 1  
2  -> 2  
3  -> 3  
6  -> 2,3  
9  -> 3  
18 -> 2,3  
27 -> 3  
54 -> 2,3 

এখন আমরা এই সমস্ত মৌলিক উপাদানগুলির যোগফল
1+2+3+2+3+3+2+3+3+2+3=27
2754 কে বিভাজক করি (কোনও অবশিষ্ট নেই)
সুতরাং, 54 এটি একটি বিআইইউ সংখ্যা ।

আরেকটি (দ্রুত) উদাহরণস্বরূপ k=55
: ভাজক [1,5,11,55]
স্বতন্ত্র মৌলিক উত্পাদক যোগফল: 1+5+11+5+11=33
33 হয় না 55 একটি ভাজক, যে কেন 55হয় না একটি BIU সংখ্যা ।

বিআইইউ নম্বর

এর মধ্যে প্রথম 20 টি এখানে রয়েছে:

1,21,54,290,735,1428,1485,1652,2262,2376,2580,2838,2862,3003,3875,4221,4745, 5525,6750,7050 ...

তবে এই তালিকাটি চলছে এবং অনেকগুলি বিআইইউ নম্বর রয়েছে যা আপনার দ্বারা আবিষ্কারের জন্য অপেক্ষা করছে!

চ্যালেঞ্জ

একটি পূর্ণসংখ্যা দেওয়া n>0যেমন ইনপুট , আউটপুট n তম BIU সংখ্যা

পরীক্ষার কেস

ইনপুট-> আউটপুট

1->1  
2->21   
42->23595  
100->118300    
200->415777    
300->800175    

এটি কোডগল্ফ .বাইটের মধ্যে সবচেয়ে ছোট উত্তর!

Comments

তবে 1প্রধান নয় ...

— স্টিফেন

@ স্টিফেন আমাকে কেন বলেছিল "" 1-র ক্ষেত্রে আমরা স্বতন্ত্র প্রধান উপাদান 1 হিসাবে বিবেচনা করি "। এটি আমার চ্যালেঞ্জ এবং এটি এই চ্যালেঞ্জের একটি নিয়ম I আমি বলিনি যে 1 প্রধান 1

নম্বরগুলিকে কেন "বিআইইউ" বলা হয়?

— মিশা লাভরভ

আমি নিশ্চিত নই তবে আমি মনে করি যে এটি উভকামী বুদ্ধিজীবী ইউনিকর্নদের তাদের প্রতিদিনের জীবনে ব্যবহার করা উচিত (আমাদের মহাবিশ্বে নয় ...)

ডাউনভোটার্স, লজ্জা পাবেন না। আমাদের বাকিদের সাথে আপনার চিন্তাভাবনাগুলি ভাগ করুন।

Answer 1

জেলি , 16 15 বাইট

ÆDÆfQ€SS‘ḍ
1Ç#Ṫ

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

বিল্টিনদের জন্য ওহু (তবে তারা কখনও কখনও রহস্যজনকভাবে আমার কাছ থেকে লুকিয়ে থাকেন তাই @ হাইপার নিউট্রিনোকে ধন্যবাদ -1 বাইট )

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

ÆDÆfQ€SS‘ḍ - define helper function: is input a BIU number?
ÆD             - divisors
  Æf           - list of prime factors
    Q€         - now distinct prime factors
      SS       - sum, then sum again ('' counts as 0)
        ‘      - add one (to account for '')
         ḍ     - does this divide the input?

1Ç#Ṫ - main link, input n
  #     - starting at 
1          - 1
        - get the first n integers which meet:
 Ç         - helper link
   Ṫ    - tail

Comments

এর ÆfQ€পরিবর্তে -1 বাইট ব্যবহার করুনÆFḢ€€

— হাইপারনিউটারিনো

but they mysteriously hide from me sometime"জেলি হ'ল অ্যাটম লুক এবং প্রোগ্রামার

— সন্ধানের

আমি মনে করি আপনি এর সাথে 1 বাইট সংরক্ষণ করতে পারবেন ÆDÆFSSḢ‘ḍ।

— আর্নল্ড

Answer 2

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

µNNÑfOO>Ö

Teh ব্যবহার 05AB1E এনকোডিং। এটি অনলাইন চেষ্টা করুন!

Answer 3

গণিত, 85 বাইট

If[#<2,1,n=#0[#-1];While[Count[(d=Divisors)@++n,1+Tr@Cases[d/@d@n,_?PrimeQ,2]]<1];n]&

Answer 4

হুশ , 13 বাইট

!fṠ¦ö→ΣṁoupḊN

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

Explantaion

  Ṡ¦ö→ΣṁoupḊ    Predicate: returns 1 if BIU, else 0.
           Ḋ    List of divisors
       ṁ        Map and then concatenate
        oup     unique prime factors
      Σ         Sum
    ö→          Add one
  Ṡ¦            Is the argument divisible by this result
 f          N   Filter the natural numbers by that predicate
!               Index

Answer 5

আসলে , 16 বাইট

u⌠;÷♂y♂iΣu@%Y⌡╓N

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

ব্যাখ্যা:

u⌠;÷♂y♂iΣu@%Y⌡╓N
u⌠;÷♂y♂iΣu@%Y⌡╓   first n+1 numbers x starting with x=0 where
   ÷                divisors
    ♂y              prime factors of divisors
      ♂iΣu          sum of prime factors of divisors, plus 1
  ;       @%        x mod sum
            Y       is 0
               N  last number in list

Answer 6

পাইথ , 22 বাইট

e.f|qZ1!%Zhssm{Pd*M{yP

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

এটি আমার প্রথম পাইথ সলিউশন, আমি আড্ডায় কিছু অতি সদয় ব্যবহারকারীর সুপারিশের জন্য এটি শিখতে শুরু করেছি: -) ... সমাধানের জন্য আমাকে প্রায় এক ঘন্টা সময় নিয়েছে।

ব্যাখ্যা

ef | qZ1!% Zhssm {Pd * M {yP - পুরো প্রোগ্রাম। প্রশ্ন = ইনপুট

 .f - ভেরিয়েবল জেড ব্যবহার করে প্রথম প্রশ্ন সত্যের ফলাফলের সাথে পূর্ণসংখ্যার সাথে সম্পর্কিত
     qZ1 - জেড কি 1 এর সমান?
   | - লজিকাল ওআর।
                   {yP - প্রধান উপাদান, পাওয়ারসেট, নকল।
                 * এম - প্রত্যেকের পণ্য পান। এই খণ্ড এবং is বিভক্তকারীদের জন্য।
              m} Pd - প্রত্যেকটির অনন্য প্রাথমিক কারণগুলি পান।
           ss - সমতল এবং যোগফল।
          এইচ - বৃদ্ধি (যে 1, বাহ পরিচালনা করতে)
       % জেড - উপরের যোগফলের মাধ্যমে বর্তমান পূর্ণসংখ্যাটি মোডুলো।
      ! - যৌক্তিক অবহেলা। 0 -> সত্য,> 0 -> মিথ্যা।
ই - শেষ উপাদান।

Answer 7

হাস্কেল , 115 বাইট

এখানে সমস্ত তালিকা বোঝাপড়া সম্ভবত গল্ফ করা যেতে পারে, তবে আমি নিশ্চিত না কীভাবে। গল্ফিং পরামর্শ স্বাগত! এটি অনলাইন চেষ্টা করুন!

x!y=rem x y<1
b n=[a|a<-[1..],a!(1+sum[sum[z|z<-[2..m],m!z,and[not$z!x|x<-[2..z-1]]]|m<-[x|x<-[2..a],a!x]])]!!(n-1)

Ungolfing

এই উত্তরটি আসলে তিনটি ফাংশন মেশানো hed

divisors a = [x | x <- [2..a], rem a x == 0]
sumPrimeDivs m = sum [z | z <- [2..m], rem m z == 0, and [rem z x /= 0 | x <- [2..z-1]]]
biu n = [a | a <- [1..], rem a (1 + sum [sumPrimeDivs m | m <- divisors a]) == 0] !! (n-1)

Answer 8

জাপট , 22 21 বাইট

@¥(J±XvXâ ®k âÃxx Ä}a

এটা পরীক্ষা করো

আমি মনে করি যে gফাংশন পদ্ধতিটি একটি সংক্ষিপ্ত সমাধানের দিকে নিয়ে যাওয়া উচিত তবে এটি কীভাবে কাজ করে তা আমি বুঝতে পারি না!

---

ব্যাখ্যা

পূর্ণসংখ্যার অন্তর্নিহিত ইনপুট U।

@                  }a

থেকে শুরু করে 0, নিম্নলিখিত Xসংখ্যাটি বর্তমান নম্বর হিসাবে নিম্নলিখিত ফাংশনটি দিয়ে পাস করার পরে সত্যটি ফিরে আসে return

Xâ ®   Ã

এর বিভাজকগুলি ( â) পান Xএবং প্রতিটি ফাংশনের মাধ্যমে পাস করুন।

k â

kবর্তমান উপাদানটির কারণগুলি ( ) পান এবং সদৃশগুলি ( â) সরিয়ে দিন ।

xx

প্রথমে প্রতিটি উপ-অ্যারেতে একই কাজ করার পরে অ্যারেটি হ্রাস করুন।

Ä

যোগ 1ফলাফলের জন্য।

Xv

XNumber সংখ্যা দ্বারা বিভাজ্য কিনা তা পরীক্ষা করুন ।

J±

বৃদ্ধি J(প্রাথমিকভাবে -1) সেই পরীক্ষার ফলাফল দ্বারা।

¥

সঙ্গে সমতা জন্য পরীক্ষা করুন U।