BIU नंबर (या Sumdivized नंबर)

Question

उन्हें कैसे हाजिर किया जाए

एक सकारात्मक पूर्णांक k लें। इसके भाजक ज्ञात कीजिए । खोजें प्रत्येक भाजक के विशिष्ट अभाज्य गुणकों । इन सभी कारकों को एक साथ जोड़ो। यदि यह संख्या (योग) k का विभाजक है ( यदि योग k को विभाजित करता है ) तो, यह संख्या k, एक BIU संख्या है

उदाहरण

चलो संख्या लेते हैं 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
27विभाजित 54 (पत्ते नहीं शेष)
तो, 54 है एक BIU संख्या ।

एक अन्य (त्वरित) के लिए उदाहरण k=55
: divisors [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 ...

लेकिन यह सूची आगे बढ़ती है और कई BIU नंबर हैं जो आपके द्वारा अवरोही होने की प्रतीक्षा कर रहे हैं!

चुनौती

इनपुट केn>0 रूप में एक पूर्णांक को देखते हुए , nth BIU नंबर को आउटपुट करता है

परीक्षण के मामलों

इनपुट-> आउटपुट

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

यह कोडगॉल्फ है। बाइट्स जीत में सबसे मजबूत जवाब!

Comments

लेकिन 1प्राइम नहीं है ...

— स्टीफन

@ स्टीफन ने कहा कि "1 के मामले के लिए हम अलग-अलग प्रमुख कारक 1 के रूप में लेते हैं"। यह मेरी चुनौती है और यह इस चुनौती के नियमों में से एक है। मैंने यह नहीं कहा कि 1 अभाज्य है।

संख्याओं को "बीआईयू" क्यों कहा जाता है?

— मिशा लावरोव

मुझे यकीन नहीं है, लेकिन मुझे लगता है कि यह उनके रोजमर्रा के जीवन में उपयोग करते हुए उभयलिंगी बौद्धिक इकसिंगों के साथ करना है (हमारे ब्रह्मांड में नहीं ...)

डाउनवोटर्स, शर्मीली मत बनो। अपने विचार हमें बाकी लोगों के साथ साझा करें।

Answer 1

जेली , 16 15 बाइट्स

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

इसे ऑनलाइन आज़माएं!

बिल्डरों के लिए वोहू (लेकिन वे रहस्यमय तरीके से मुझसे छिपते हैं कभी-कभी 1 बाइट @HyperNeutrino के लिए धन्यवाद )

यह काम किस प्रकार करता है

Æ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

-1 बाइट का उपयोग ÆfQ€करने के बजायÆFḢ€€

— हाइपरएन्यूट्रीनो

but they mysteriously hide from me sometime"जेली परमाणु छिपाने का एक खेल है और प्रोग्रामर की तलाश है" ~ i cri everytim

— HyperNeutrino

मुझे लगता है कि आप 1 बाइट बचा सकते हैं ÆDÆFSSḢ‘ḍ।

— अरनुलद

Answer 2

05AB1E , 9 बाइट्स

µNNÑfOO>Ö

ते 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 - सत्य चर परिणाम वाला पहला Q पूर्णांक, एक चर Z का उपयोग करते हुए।
     qZ1 - Z 1 के बराबर है?
   | - तार्किक या।
                   {yP - प्रमुख कारक, शक्तियां, डुप्लीकेट।
                 * एम - प्रत्येक का उत्पाद प्राप्त करें। यह चंक और ^ भाजक के लिए हैं।
              m} Pd - प्रत्येक के अद्वितीय प्रमुख कारक प्राप्त करें।
           ss - समतल और योग।
          एच - वृद्धि (उस 1, बाह को संभालने के लिए)
       % Z - उपरोक्त योग से वर्तमान पूर्णांक को मोडुलो करें।
      ! - तार्किक निषेध। ० -> सत्य,> ० -> मिथ्या।
ई - अंतिम तत्व।

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

यह जवाब वास्तव में एक साथ मैश किए हुए तीन कार्य हैं।

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वर्तमान संख्या है।

Xâ ®   Ã

डिवोर्स ( â) प्राप्त करें Xऔर प्रत्येक को फंक्शन के माध्यम से पास करें।

k â

kवर्तमान तत्व के कारक ( ) प्राप्त करें और डुप्लिकेट को हटा दें ( â)।

xx

प्रत्येक उप-सरणी में समान करने के बाद सरणी को जोड़कर कम करें।

Ä

1परिणाम में जोड़ें ।

Xv

टेस्ट अगर Xउस संख्या से विभाज्य है।

J±

उस परीक्षण के परिणाम से वृद्धि J(शुरू में -1)।

¥

के साथ समानता के लिए जाँच करें U।