ให้คุณมีลำดับหมายเลขที่ไม่สิ้นสุดกำหนดดังนี้:

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

ลำดับคือผลรวมของตัวหารของnรวมทั้งที่ 1 nและ

ป.ร. ให้ไว้เป็นจำนวนเต็มบวกxเป็น input คำนวณจำนวนต่ำสุดซึ่งจะผลิตมากขึ้นกว่าผลnx

กรณีทดสอบ

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

ผลผลิตที่คาดหวัง

โปรแกรมของคุณควรส่งคืนทั้งสอง nและผลรวมของตัวหารเช่น:

$ ./challenge 100
48,124

กฎระเบียบ

นี่คือ code-golf ดังนั้นโค้ดที่สั้นที่สุดเป็นไบต์ในแต่ละภาษาจะชนะ

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

ลองออนไลน์!

-1 ไบต์ขอบคุณMr. Xcoder !

มันทำงานอย่างไร

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

ลองออนไลน์!

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

ลองออนไลน์!

Outgolfed โดยduckmayr

Japt 15 ไบต์

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

ลองมัน

คำอธิบาย

Uการป้อนข้อมูลโดยนัยของจำนวนเต็ม []เป็น wrapper อาร์เรย์ของเรา สำหรับองค์ประกอบแรก@ }aคือฟังก์ชั่นที่ทำงานอย่างต่อเนื่องจนกว่ามันจะส่งกลับค่าความจริงผ่านตัวเองจำนวนเต็มที่เพิ่มขึ้น (เริ่มต้นที่ 0) ในแต่ละครั้งและส่งออกมูลค่าสุดท้ายของจำนวนเต็มนั้น âได้รับหารของจำนวนเต็มปัจจุบัน ( X) สรุปพวกเขาและผลที่ได้รับมอบหมายให้ตัวแปรx ตรวจสอบว่ามีค่าน้อยกว่า องค์ประกอบที่สองในอาร์เรย์นั้นก็เป็นเพียงแค่V<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))))

ลองออนไลน์!

ขอบคุณ @steadybox สำหรับ -4 ไบต์!

ทับทิม 58 ไบต์

โปรแกรมเต็มเพราะฉันไม่แน่ใจว่าได้รับอนุญาต lambdas หรือไม่ /ยัก

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>

แก้ไข: บันทึกแล้ว 3 ไบต์ขอบคุณ @Arnauld

05AB1E , 11 ไบต์

>LʒÑO‹}нDÑO

ลองออนไลน์!

ใบเอาท์พุทในกองที่ได้รับอนุญาตต่อฉันทามติ meta ฉันเพิ่ม)เพื่อการสร้างภาพ แต่โปรแกรมก็พิมพ์ด้านบนของกองโดยปริยาย

APL (Dyalog) 32 ไบต์

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

ลองออนไลน์!

⍵o⍺⍵

SOGL V0.12, 14 bytes

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

Try it Here!

Explanation:

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 bytes

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

Try it online!

MATL, 12 bytes

`@Z\sG>~}@6M

Try it online!

Explanation

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

dΣ@>
↑#(:dΣ

Try it online!

Leaves the output on the stack, as allowed per meta consensus. I added €. for the sake of visualization, but the program also implicitly prints the top of the stack.

Haskell, 59 bytes

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

-1 byte, thanks to @nimi!

Try it online!

Ohm v2, 11 bytes

£^DVΣD³>‽;«

Try it online!

Factor, 88

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

Brute-force search. It's a quotation (lambda), call it with x on the stack, leaves n and f(n) on the stack.

As a word:

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

Python 3, 163 bytes

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 bytes

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

Try it online!

Thanks to Jonathan Frech's comment on the previous python 3 attempt, I have just greatly expanded my knowledge of python syntax. I'd never have thought of the -~i for i+1 trick, which saves two characters.

However, that answer is 1) not minimal and 2) doesn't work for x=1 (due to an off-by-one error which is easy to make while going for brevity; I suggest everyone else check their answers for this edge case!).

Quick explanation: sum(i+1for i in range(y)if y%-~i<1) is equivalent to sum(i for i in range(1,y+1)if y%i<1) but saves two characters. Thanks again to Mr. Frech.

d=lambda y:sum(i+1for i in range(y)if y%-~i<1) therefore returns the divisors of y.

f=lambda x:min((j,d(j))for j in range(x+1)if x<=d(j)) is where I really did work. Since comparing a tuple works in dictionary order, we can compare j,d(j) as easily as we can compare j, and this lets us not have to find the minimal j, store it in a variable, and /then/ compute the tuple in a separate operation. Also, we have to have the <=, not <, in x<=d(j), because d(1) is 1 so if x is 1 you get nothing. This is also why we need range(x+1) and not range(x).

I'd previously had d return the tuple, but then I have to subscript it in f, so that takes three more characters.

Python 2, 81 bytes

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

Try it online!

Java (OpenJDK 8), 91 bytes

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

Try it online! (timeout on third test case)

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

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

Try it online!

Output format:

sum-n

Clojure, 102 bytes

#(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 bytes

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

Perl 6, 48 bytes

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

Try it online!