An abundance of integers!

Question

An Abundant number is any number where the sum of its proper divisors is greater than the original number. For example, the proper divisors of 12 are:

1, 2, 3, 4, 6

And summing these results in 16. Since 16 is larger than 12, 12 is abundant. Note that this does not include "Perfect numbers", e.g. numbers that are equal to the sum of its proper divisors, such as 6 and 28.

Your task for today is to write a program or function that determines if a number is abundant or not. Your program should take a single integer as input, and output a truthy/falsy value depending on whether it is abundant or not. You can assume that the input will always be valid and greater than 0, so for bad inputs, undefined behavior is fine.

You may take your input and output in any reasonable format, for example STDIN/STDOUT, files, or arguments/return values would all be acceptable.

For reference, here are the abundant numbers up to 100:

12,
18,
20,
24,
30,
36,
40,
42,
48,
54,
56,
60,
66,
70,
72,
78,
80,
84,
88,
90,
96,
100

And more can be found on A005101

Since this is code-golf, standard loopholes are denied, and try to write the shortest possible code you can in whichever language you happen to choose!

"the first odd abundant is 945 = 3^3*5*7, the 232nd abundant number!" — mbomb007, Feb 21, 2017 at 14:29
The asymptotic density of abundant numbers is somewhere within the interval [0.24761748, 0.24764422]. Calculated using the source code included in this paper. — Deadcode, Jan 25, 2019 at 22:20

shadowplay86 · Accepted Answer · 2017-02-21 17:52:02Z

0

C, 68 bytes

int s,x;main(i){scanf("%d",&x);while(++i<x)s+=x%i^0?0:i;return s>x;}

answered Feb 21, 2017 at 17:52

shadowplay86

1

3

\$\begingroup\$ Welcome to the site! I think you could save some bytes by taking input from function arguments, rather than implementing main with scanf. For example int f(int s,int x){while(++i<x)s+=x%i^0?0:i;return s>x;} Also, I'm not an expert at C golfing, but I think some compilers default to int functions with int arguments, so you could do f(s,x){while(++i<x)s+=x%i^0?0:i;return s>x;}, but you'd have to find the right compiler and test it first. \$\endgroup\$
– DJMcMayhem
Feb 21, 2017 at 17:59

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

Java 7, 69 68 bytes

Object c(int n){int s=0,i=1;for(;++i<=n/2;s+=n%i<1?i:0);return s>n;}

Explanation:

Object c(int n){                       // Boolean method with integer parameter
   int s = 0,                          // sum initialization
       i = 1;                          // counter initialization (starts at 2: i=1 and ++i becomes i=2)
   for(; ++i <= n/2; s += n % i < 1    // loop while (i <= n/2)
                           ? i         //   if (n % i == 0)
                           : 0);       //     r = r + i
   return s > n;                       // return sum > input
 }

Test code:

Try it here.

class M{
  static Object c(int n){int s=0,i=1;for(;++i<=n/2;s+=n%i<1?i:0);return s>n;}
  
  public static void main(String[] a){
    for(int i = 0; i <= 100; i++){
      System.out.print(i+": "+c(i) + ";  ");
    }
  }
}

Output:

0: false;  1: false;  2: false;  3: false;  4: false;  5: false;  6: false;  7: false;  8: false;  9: false;  10: false;  
11: false;  12: true;  13: false;  14: false;  15: false;  16: false;  17: false;  18: true;  19: false;  
20: true;  21: false;  22: false;  23: false;  24: true;  25: false;  26: false;  27: false;  28: false;  29: false;  
30: true;  31: false;  32: false;  33: false;  34: false;  35: false;  36: true;  37: false;  38: false;  39: false;  
40: true;  41: false;  42: true;  43: false;  44: false;  45: false;  46: false;  47: false;  48: true;  49: false;  
50: false;  51: false;  52: false;  53: false;  54: true;  55: false;  56: true;  57: false;  58: false;  59: false;  
60: true;  61: false;  62: false;  63: false;  64: false;  65: false;  66: true;  67: false;  68: false;  69: false;  
70: true;  71: false;  72: true;  73: false;  74: false;  75: false;  76: false;  77: false;  78: true;  79: false;  
80: true;  81: false;  82: false;  83: false;  84: true;  85: false;  86: false;  87: false;  88: true;  89: false;  
90: true;  91: false;  92: false;  93: false;  94: false;  95: false;  96: true;  97: false;  98: false;  99: false;  100: true;

Sorry, I was looking at the main code in that part but the golfed code above. Reading failure. — user18932, Feb 22, 2017 at 2:45
I am most likely overlooking something obvious, though I am curious: Why did you choose to use Object as opposed to bool? — Jonathan Frech, Jan 22, 2019 at 23:14
@JonathanFrech In Java it's boolean, so it's 1 byte longer than Object :) Although nowadays I would just use a Java 8+ lambda, so Object c(int n) would be n->. — Kevin Cruijssen, Jan 23, 2019 at 7:46

waf9000 · Accepted Answer · 2019-01-23 22:19:36Z

0

Racket, 46 bytes

That's 46 bytes including the (require math).

(λ(n)(>(-(sum(divisors n))n)n))

The function produces booleans.

Try it online!

It's pretty simple, uses the divisors function to produce a list of all divisors of n. Since the list includes n itself, we need to remove it after summing.

edited Jan 23, 2019 at 22:19

answered Jan 23, 2019 at 21:29

waf9000

1313 bronze badges

\$\begingroup\$ Hello and welcome to PPCG. Nice first post; however, I would think that you ought to include the byte count for your (require math) import. \$\endgroup\$
– Jonathan Frech
Jan 23, 2019 at 21:45
\$\begingroup\$ Sorry! I was unsure about what exactly to add to the byte count. \$\endgroup\$
– waf9000
Jan 23, 2019 at 22:20
\$\begingroup\$ No problem. Usually, one counts everything the function or program truly needs -- excluding boiler code only written for testing. However, on edge cases one sometimes has to resort to the current consensus -- written and talked about on meta. In practice, you will often be notified by comment if someone disagrees with your byte count. \$\endgroup\$
– Jonathan Frech
Jan 23, 2019 at 22:25

Add a comment |

Benjamin Urquhart · Accepted Answer · 2019-03-12 02:06:22Z

Java 8, 66 bytes

n->java.util.stream.IntStream.range(1,n).filter(i->n%i==0).sum()>n

Try it online!

Explanation

n->                                       // define a lambda function
    java.util.stream.IntStream.range(1,n) // create a stream of integers from 1 to n
    .filter(i->n%i==0)                    // filter out non-factors
    .sum()                                // sum the factors
>n                                        // compare the sum to the original number n
                                          // implicit return

Edit: Looks like someone already did this 2 years ago and got 1 byte shorter

Community · Accepted Answer · 2020-06-17 09:04:33Z

0

Javascript,72bytes

var n=prompt(),div=0,i=1;while(++i<=n/2){div+=n%i?0:i}console.log(div>n)

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Mar 13, 2019 at 4:52

Jeyanth

1334 bronze badges

\$\begingroup\$ As @SriotchilismO'Zaic points out, this appears to be a snippet which is not compliant with our current I/O consensus. Please fix your post accordingly. \$\endgroup\$
– Jonathan Frech
Mar 13, 2019 at 8:32
\$\begingroup\$ As @JonathanFrech specified, modified the changes and further refined the code. \$\endgroup\$
– Jeyanth
Mar 13, 2019 at 9:58

Add a comment |

Adam · Accepted Answer · 2019-03-13 14:31:49Z

Kotlin, 37 bytes

{i->(2..i-1).filter{i%it==0}.sum()>i}

Expanded:

{ i -> (2..i - 1).filter { i % it == 0 }.sum() > i }

Explanation:

  {i->                      start lambda with parameter i
    (2..i-1)                create a range from 2 until i - 1 (potential divisors)
      .filter{i%it==0}      it's a divisor if remainder = 0; filter divisors
        .sum()              add all divisors
          >i                compare to the original number

Try it online!

absoluteAquarian · Accepted Answer · 2019-03-13 16:36:16Z

TI-BASIC (TI-84), 23 bytes

:2Ans<sum(seq(Ans/Xnot(remainder(Ans,X)),X,1,Ans,1

This answer is very similar to my answer here.
Input is in Ans.
Output is in Ans and is automatically printed out when the program completes.

Explanation:
(TI-BASIC doesn't have comments, so just assume that ; makes a comment)

:2Ans=sum(seq(Ans/Xnot(remainder(Ans,X)),X,1,Ans    ;Full program

 2Ans                                               ;double the input
          seq(                                      ;generate a list
                                         X,          ;using the variable X,
                                           1,        ;starting at 1,
                                             Ans     ;and ending at the input
                                                     ;with an implied increment of 1
              Ans/X                                 ;from the input divided by X
                   not(                ),           ;multiplied by the negated result of
                       remainder(Ans,X)              ;the input modulo X
                                                     ;(result: 0 or 1)
      sum(                                          ;sum up the elements in the list
     <                                              ;is the sum greater than double the input?

Example:

Note: The byte count of a program is evaluated using the value in [MEM]>[2]>[7] (36 bytes) then subtracting the length of the program's name, CDGF2, (5 bytes) and an extra 8 bytes used for storing the program:

36 - 5 - 8 = 23 bytes

I counted 50 characters, so presumably 50 bytes... what am I missing? — Adam, Mar 13, 2019 at 14:33
@Adam all of the functions in TI-BASIC are 1-byte tokens. Therefore, sum(, seq(, remainder(, and not( would all be considered as 1 byte each. Ans is also a 1-byte token. — absoluteAquarian, Mar 13, 2019 at 14:40
Actually, I should clarify that the remainder( function is a 2-byte token, not 1-byte. — absoluteAquarian, Mar 13, 2019 at 16:23

DLosc · Accepted Answer · 2019-03-13 22:30:37Z

0

tinylisp, 78 bytes

(load library
(q((N)(l N(sum(filter(partial divides?(q D)(list(q _)N))(range N

Try it online!

Start with a list of each D from 0 through N - 1; filter it for the values of D that exactly divide N. Sum the results. Iff N is less than that sum, N is abundant.

answered Mar 13, 2019 at 22:30

DLosc

38k5 gold badges67 silver badges131 bronze badges

Add a comment |

TiKevin83 · Accepted Answer · 2019-03-14 14:16:08Z

TI-BASIC, 21 bytes

seq(I,I,1,A-1
A<sum(Ansnot(fpart(A/Ans

TI-BASIC usually has a builtin for this kind of thing, but nothing fits that well here. Takes input from the A variable and outputs 1 or 0 if the number is or isn't abundant.

seq( generates a list of numbers from a function. Here it executes the function I on the I variable from one to one less than the input. Then working backward from the next line, we divide our input by the list we generated (stored in Ans) and take the fractional part so we have a new list of remainders for each potential divisor. We then build a list of booleans by taking not( on the remainder list and multiply that by the original list in Ans implicitly to get a list of proper divisors. Then we just sum the list of proper divisors and compare that to the input.

This was 24 bytes, golfed down to 21 using not( instead of *(0=

Axuary · Accepted Answer · 2021-03-08 20:58:07Z

0

Excel, 46 bytes

=LET(s,SEQUENCE(A3-1),SUM((MOD(A3,s)=0)*s)>A3)

Works for numbers up to 2^20 + 1 (1,048,577).

This 90 byte version works for numbers up to (2^20 + 1) ^ 2 - 1 (1,099,513,724,928).

=LET(s,SEQUENCE(SQRT(A2)),m,(MOD(A2,s)=0)*s,g,IFERROR(A2/m,0),SUM(m,g)-A2-SUM((m=g)*m)>A2)

answered Mar 8, 2021 at 20:58

Axuary

3,4065 silver badges11 bronze badges

Add a comment |

The Thonnu · Accepted Answer · 2023-06-11 13:37:14Z

0

Thunno 2, 4 bytes

FṫS<

Attempt This Online!

Explanation

FṫS<  # Implicit input      ->  12
F     # Factors             ->  [1, 2, 3, 4, 6, 12]
 ṫ    # Tail remove         ->  [1, 2, 3, 4, 6]
  S   # Sum the list        ->  16
   <  # Compare with input  ->  1
      # Implicit output

answered Jun 11 at 13:37

The Thonnu

17.8k3 gold badges14 silver badges74 bronze badges

Add a comment |

Stack Exchange Network

An abundance of integers!

71 Answers 71

C, 68 bytes

Java 7, 69 68 bytes

Racket, 46 bytes

Java 8, 66 bytes

Explanation

Javascript,72bytes

Kotlin, 37 bytes

TI-BASIC (TI-84), 23 bytes

tinylisp, 78 bytes

TI-BASIC, 21 bytes

Excel, 46 bytes

Thunno 2, 4 bytes

Explanation

Your Answer

Not the answer you're looking for? Browse other questions tagged
code-golf
math
sequence
decision-problem
or ask your own question.

Linked

Hot Network Questions

An abundance of integers!

71 Answers 71

C, 68 bytes

Java 7, 69 68 bytes

Racket, 46 bytes

Java 8, 66 bytes

Explanation

Javascript,72bytes

Kotlin, 37 bytes

TI-BASIC (TI-84), 23 bytes

tinylisp, 78 bytes

TI-BASIC, 21 bytes

Excel, 46 bytes

Thunno 2, 4 bytes

Explanation

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golfmathsequencedecision-problem or ask your own question.

Linked

Related

Hot Network Questions

Not the answer you're looking for? Browse other questions tagged
code-golf
math
sequence
decision-problem
or ask your own question.