次のように定義された数の無限シーケンスがあるとします。

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
...

シーケンスはの約数の合計で、n1とを含みnます。

x入力として正の整数を指定し、nより大きい結果を生成する最小数を計算しxます。

テストケース

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

期待される出力

プログラムは、次のように両方 nとその除数の合計を返す必要があります。

$ ./challenge 100
48,124

ルール

これはコードゴルフなので、各言語のバイト単位の最短コードが優先されます。

Brachylog、9バイト

∧;S?hf+S>

このプログラムは、「出力変数」から入力.を受け取り、「入力変数」に出力します?。 オンラインでお試しください！

説明

∧;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.

暗黙的な変数Nは昇順で列挙されるため、その有効な最小値が出力に使用されます。

ゼリー、18 12 11 10バイト

1Æs>¥#ḢṄÆs

オンラインでお試しください！

Xcoder氏のおかげで-1バイト！

使い方

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

Wolfram言語（Mathematica）、53バ​​イト

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

オンラインでお試しください！

2からx + 1までのすべての値を試行します。xは入力です。

（Selectは、機能するすべての値のリストを返しますが、関数{#,f@#}&はこれらをすべて入力として受け取り、最初の入力を除くすべての入力を無視します。）

R、71バイト

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

オンラインでお試しください！

殻、12 11バイト

§eVḟ>⁰moΣḊN

-1バイト、@ Zgarbに感謝！

オンラインでお試しください！

R、73バイト

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

オンラインでお試しください！

duckmayrによってアウトゴルフ。

Japt、15バイト

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

それを試してみてください

説明

integerの暗黙的な入力U。[]配列ラッパーです。最初の要素@ }aは、真理値を返すまで継続的に実行され、毎回（0から始まる）整数を渡し、その整数の最終値を出力する関数です。â現在の整数の除数（X）を取得してx合計し、その結果がvariableに割り当てられますV。が未満<かどうかを確認します。配列の2番目の要素はjust です。UVV

Clojure、127バイト

(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))))

オンラインでお試しください！

-4バイトの@steadyboxに感謝します！

ルビー、58バイト

ラムダが許可されているかどうかわからないため、完全なプログラム。/ shrug

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

オンラインでお試しください！

説明

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バイト

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>

編集：@Arnauldのおかげで3バイト保存されました。

05AB1E、11バイト

>LʒÑO‹}нDÑO

オンラインでお試しください！

メタコンセンサスごとに許可されているように、出力をスタックに残します。)視覚化のために追加しましたが、プログラムは暗黙的にスタックの最上部も印刷します。

APL（Dyalog）、32バイト

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

オンラインでお試しください！

⍵o⍺⍵。

SOGL V0.12、14のバイト

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

ここで試してみてください！

説明：

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バイト

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);}

オンラインでお試しください！

MATL、12バイト

`@Z\sG>~}@6M

オンラインでお試しください！

説明

`      % 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)

ガイア、11バイト

dΣ@>
↑#(:dΣ

オンラインでお試しください！

メタコンセンサスごとに許可されているように、出力をスタックに残します。€.視覚化のために追加しましたが、プログラムは暗黙的にスタックの最上部も印刷します。

Haskell、59バイト

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

-1バイト、@ nimiのおかげ！

オンラインでお試しください！

Ohm v2、11バイト

£^DVΣD³>‽;«

オンラインでお試しください！

ファクター、88

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

ブルートフォース検索。それは、二重引用符（ラムダ）だcallとそれをxスタック、葉の上nおよびf(n)スタック上に。

一言で：

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

Python 3、163バイト

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バイト

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))

オンラインでお試しください！

前回のpython 3の試みに対するJonathan Frechのコメントのおかげで、Python構文の知識を大幅に拡張しました。-iのi + 1トリックを考えたことがなかったので、2つの文字が節約されました。

しかし、その答えは1）最小限ではなく、2）x = 1では機能しません（簡潔にするために簡単にできるオフバイワンエラーのため、他の誰もがこのエッジの答えを確認することをお勧めします場合！）。

簡単な説明： sum(i+1for i in range(y)if y%-~i<1)と同等ですsum(i for i in range(1,y+1)if y%i<1) 2文字、保存されます。フレッシュさん、ありがとう。

d=lambda y:sum(i+1for i in range(y)if y%-~i<1) したがって、yの約数を返します。

f=lambda x:min((j,d(j))for j in range(x+1)if x<=d(j))私が本当に仕事をした場所です。タプルの比較は辞書順で機能するため、jと比較するのと同じくらい簡単にj、d（j）を比較できます。これにより、最小のjを見つけて変数に保存し、/ then /を計算する必要がなくなります。別の操作でタプル。また、x<=d(j)d（1）が1であるため、xが1の場合は何も得られないため、<ではなく、<を持っている必要があります。これは、私たちが必要range(x+1)としない理由でもありますrange(x)です。

以前はdでタプルを返していましたが、fで添字を付ける必要があるため、さらに3文字が必要です。

Python 2、81バイト

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

オンラインでお試しください！

Java（OpenJDK 8）、91バイト

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"";}

オンラインでお試しください！（3番目のテストケースのタイムアウト）

Perl 5、60 + 1（-p）= 61バイト

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

オンラインでお試しください！

出力フォーマット：

合計 - N

Clojure、102バイト

#(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バイト

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

Perl 6、48バイト

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

オンラインでお試しください！