다음과 같이 정의 된 숫자의 무한 시퀀스가 ​​있다고 가정합니다.

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

규칙

이것은 코드 골프이므로 각 언어에서 가장 짧은 바이트 단위의 코드가 이깁니다.

답변

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

1Æs>¥#ḢṄÆs

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

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

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

§eVḟ>⁰moΣḊN

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

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