Mengingat Anda memiliki urutan angka tak terbatas yang didefinisikan sebagai berikut:

1: 1 = 1
2: 1 + 2 = 3
3: 1 + 3 = 4
4: 1 + 2 + 4 = 7
5: 1 + 5 = 6
6: 1 + 2 + 3 + 6 = 12
7: 1 + 7 = 8
...

Urutannya adalah jumlah dari pembagi n, termasuk 1 dan n.

Diberikan bilangan bulat positif xsebagai input, hitung angka terendah nyang akan menghasilkan hasil lebih besar dari x.

Uji kasus

f(100) = 48, ∑ = 124
f(25000) = 7200, ∑ = 25389
f(5000000) = 1164240, ∑ = 5088960

Output yang Diharapkan

Program Anda harus mengembalikan keduanya n dan jumlah pembagi nya, seperti:

$ ./challenge 100
48,124

Aturan

Ini adalah kode-golf sehingga kode terpendek dalam byte, dalam setiap bahasa menang.

Brachylog , 9 byte

∧;S?hf+S>

Program ini mengambil input dari "variabel output" ., dan output ke "variabel input" ?. Cobalah online!

Penjelasan

∧;S?hf+S>
∧;S        There is a pair [N,S]
   ?       which equals the output
    h      such that its first element's
     f     factors'
      +    sum
       S   equals S,
        >  and is greater than the input.

Variabel implisit Ndisebutkan dalam urutan meningkat, sehingga nilai hukum terendah digunakan untuk output.

Jelly , 18 12 11 10 byte

1Æs>¥#ḢṄÆs

Cobalah online!

-1 byte terima kasih kepada Tn. Xcoder !

Bagaimana itu bekerja

1Æs>¥#ḢṄÆs - Main link. Argument: n (integer)
1   ¥#     - Find the first n integers where...
 Æs        -   the divisor sum
   >       -   is greater than the input
       Ṅ   - Print...
      Ḣ    -   the first element
        Æs - then print the divisor sum

Bahasa Wolfram (Mathematica) , 53 byte

{#,f@#}&@@Select[Range[x=#]+1,(f=Tr@*Divisors)@#>x&]&

Cobalah online!

Mencoba semua nilai antara 2 dan x +1, di mana x adalah input.

( SelectMengembalikan daftar semua nilai yang bekerja, tetapi fungsi {#,f@#}&mengambil semua ini sebagai input, dan kemudian mengabaikan semua inputnya tetapi yang pertama.)

R , 71 byte

function(x)for(n in 1:x){z=sum(which(n%%1:n==0));if(z>x)return(c(n,z))}

Cobalah online!

Sekam , 12 11 byte

§eVḟ>⁰moΣḊN

-1 byte, terima kasih kepada @Zgarb!

Cobalah online!

R , 73 byte

n=scan();while(1){d=(x=1:T)[!T%%x];if(sum(d)>n)break;T=T+1};cat(T,sum(d))

Cobalah online!

Dikalahkan oleh duckmayr .

Japt , 15 byte

[@<(V=Xâ x}a V]

Cobalah

Penjelasan

Input bilangan bulat implisit U. []adalah pembungkus array kami. Untuk elemen pertama, @ }aadalah fungsi yang berjalan terus menerus hingga mengembalikan nilai yang sebenarnya, memberikan dirinya bilangan bulat yang bertambah (mulai dari 0) setiap kali, dan menghasilkan nilai akhir dari bilangan bulat itu. âmendapatkan pembagi dari integer saat ini ( X), xmenjumlahkannya dan hasilnya ditugaskan ke variabel V. <memeriksa apakah Ukurang dari V. Elemen kedua dalam array adalah adil V.

Clojure , 127 byte

(defn f[n](reduce +(filter #(zero?(rem n %))(range 1(inc n)))))
(defn e[n](loop[i 1 n n](if(>(f i)n){i,(f i)}(recur(inc i)n))))

Cobalah online!

terima kasih kepada @steadybox untuk -4 byte!

Ruby , 58 byte

Program penuh karena saya tidak yakin apakah lambda diizinkan. /mengangkat bahu

gets
$.+=1until$_.to_i.<v=(1..$.).sum{|n|$.%n<1?n:0}
p$.,v

Cobalah online!

Penjelasan

gets     # read line ($_ is used instead of v= because it cuts a space)
$.+=1    # $. is "lines read" variable which starts at 1 because we read 1 line
    until     # repeat as long as the next part is not true
$_.to_i  # input, as numeric
  .<v=   # is <, but invoked as function to lower operator prescedence
  (1..$.)        # Range of 1 to n
  .sum{|n|       # .sum maps values into new ones and adds them together
     $.%n<1?n:0  # Factor -> add to sum, non-factor -> 0
  }
p$.,v    # output n and sum

JavaScript (ES6), 61 58 byte

f=(n,i=1,s=j=0)=>j++<i?f(n,i,i%j?s:s+j):s>n?[i,s]:f(n,++i)

<input type=number min=0 oninput=o.textContent=f(this.value)><pre id=o>

Sunting: Disimpan 3 byte berkat @Arnauld.

05AB1E , 11 byte

>LʒÑO‹}нDÑO

Cobalah online!

Meninggalkan output pada stack, sebagaimana diizinkan per konsensus meta . Saya menambahkan )demi visualisasi, tetapi program ini juga secara implisit mencetak bagian atas tumpukan.

APL (Dyalog) , 32 byte

{⍺<o←+/o/⍨0=⍵|⍨o←⍳⍵:⍵,o⋄⍺∇⍵+1}∘0

Cobalah online!

⍵o⍺⍵.

SOGL V0.12 , 14 byte

1[:Λ∑:A.>?ao←I

Coba Di Sini!

Penjelasan:

1               push 1
 [              while ToS != 0
  :Λ              get the divisors
    ∑             sum
     :A           save on variable A without popping
       .>?  ←     if greater than the input
          ao        output the variable A
            ←       and stop the program, implicitly outputting ToS - the counter
             I    increment the counter

C,  79  78 byte

i,n,s;f(x){for(i=n=s=0;x>s;s+=n%++i?0:i)i-n||(++n,i=s=0);printf("%d %d",n,s);}

Cobalah online!

MATL , 12 byte

`@Z\sG>~}@6M

Cobalah online!

Penjelasan

`      % Do...while
  @    %   Push iteration index (1-based)
  Z\   %   Array of divisors
  s    %   Sum of array
  G    %   Push input
  >~   %   Greater than; logical negate. This is the loop condition
}      % Finally (execute on loop exit)
  @    %   Push latest iteration index
  6M   %   Push latest sum of divisors again
       % End (implicit). Run new iteration if top of the stack is true
       % Display stack (implicit)

Gaia , 11 byte

dΣ@>
↑#(:dΣ

Cobalah online!

Meninggalkan output pada stack, sebagaimana diizinkan per konsensus meta . Saya menambahkan €.demi visualisasi, tetapi program ini juga secara implisit mencetak bagian atas tumpukan.

Haskell , 59 byte

f x=[(i,s)|i<-[1..],s<-[sum[d|d<-[1..i],i`mod`d<1]],s>x]!!0

-1 byte, terima kasih kepada @nimi!

Cobalah online!

Ohm v2 , 11 byte

£^DVΣD³>‽;«

Cobalah online!

Factor , 88

USE: math.primes.factors [ 0 0 [ drop 1 + dup divisors sum pick over > ] loop rot drop ]

Pencarian dengan kekerasan. Ini kutipan (lambda), calldengan xdi tumpukan, daun ndanf(n) di tumpukan.

Sebagai sebuah kata:

: f(n)>x ( x -- n f(n) )
  0 0 [ drop 1 + dup divisors sum pick over > ] loop rot drop ;

Python 3, 163 byte

def f(x):
    def d(x):return[i for i in range(1,x+1) if x%i==0]
    return min(i for i in range(x) if sum(d(i)) >x),sum(d(min(i for i in range(x) if sum(d(i)) >x)))

Python 3 , 100 byte

d=lambda y:sum(i+1for i in range(y)if y%-~i<1)
f=lambda x:min((j,d(j))for j in range(x+1)if x<=d(j))

Cobalah online!

Terima kasih kepada Jonathan Frech komentar pada upaya python 3 sebelumnya, saya baru saja memperluas pengetahuan saya tentang sintaksis python. Saya tidak pernah memikirkan trik ~ ~ untuk i + 1, yang menyimpan dua karakter.

Namun, jawaban itu adalah 1) tidak minimal dan 2) tidak bekerja untuk x = 1 (karena kesalahan satu per satu yang mudah dibuat saat pergi untuk singkatnya, saya sarankan semua orang memeriksa jawaban mereka untuk tepi ini kasus!).

Penjelasan cepat: sum(i+1for i in range(y)if y%-~i<1)setara dengan sum(i for i in range(1,y+1)if y%i<1)tetapi menyimpan dua karakter. Sekali lagi terima kasih kepada Tn. Frech.

d=lambda y:sum(i+1for i in range(y)if y%-~i<1) Oleh karena itu mengembalikan pembagi y.

f=lambda x:min((j,d(j))for j in range(x+1)if x<=d(j))adalah tempat saya benar-benar bekerja. Karena membandingkan tuple berfungsi dalam urutan kamus, kita dapat membandingkan j, d (j) semudah kita membandingkan j, dan ini memungkinkan kita tidak harus menemukan j minimal, menyimpannya dalam variabel, dan / kemudian / menghitung tuple dalam operasi terpisah. Juga, kita harus memiliki <=, bukan <, dalam x<=d(j), karena d (1) adalah 1 jadi jika x adalah 1 Anda tidak mendapatkan apa-apa. Ini juga mengapa kita perlu range(x+1)dan tidakrange(x) .

Sebelumnya saya harus mengembalikan tuple, tetapi kemudian saya harus menyalinnya dalam f, sehingga dibutuhkan tiga karakter lagi.

Python 2 , 81 byte

def f(n):
 a=b=0
 while b<n:
	a+=1;i=b=0
	while i<a:i+=1;b+=i*(a%i<1)
 return a,b

Cobalah online!

Java (OpenJDK 8) , 91 byte

i->{for(int j=0;j++<i;)for(int k=0,l=0;k++<j;)if((l+=j%k<1?k:0)>i)return k+","+l;return"";}

Cobalah online! (batas waktu pada test case ketiga)

Perl 5 , 60 + 1 ( -p) = 61 byte

$"=$_;until($_>$"){$_=$/=0;$\--;$_+=$\%$/?0:$/until++$/>-$\}

Cobalah online!

Format output:

jumlah - n

Clojure, 102 byte

#(loop[i 1](let[s(apply +(for[j(range 1(inc i)):when(=(mod i j)0)]j))](if(> s %)[i s](recur(inc i)))))

PHP, 69 byte

for(;$argv[1]>=$t;)for($t=$j=++$i;--$j;)$t+=$i%$j?0:$j;echo$i,',',$t;

Perl 6 , 48 byte

{first :kv,*>$_,map {sum grep $_%%*,1..$_},0..*}

Cobalah online!