Wolfram Function Repository
Instant-use add-on functions for the Wolfram Language
Function Repository Resource:
Deficient
Compute the nth deficient number
Contributed by:
Wolfram|Alpha Math Team
ResourceFunction["DeficientNumber"][n] computes the nth deficient number. |
Details and Options
A deficient number is a number whose sum of proper divisors is less than the number itself. The proper divisors of an integer n are the positive integers less than n that divide n.
If a number's divisor sum is greater than or equal to its value, then it is called abundant or perfect, respectively.
Examples
Basic Examples (2)
Compute the fifth deficient number:
| In[1]:= | ![ResourceFunction["DeficientNumber"][5]](https://www.wolframcloud.com/obj/resourcesystem/images/a9a/a9a8be34-80d3-4d4c-befd-d88aae6b6f87/0efd60423a316ea9.png){kind=small} |
| Out[1]= |  |
Compute the first 20 deficient numbers:
| In[2]:= | ![ResourceFunction["DeficientNumber"] /@ Range[20]](https://www.wolframcloud.com/obj/resourcesystem/images/a9a/a9a8be34-80d3-4d4c-befd-d88aae6b6f87/4424f6065b5598fb.png){kind=small} |
| Out[2]= |  |
Publisher
Version History
- 1.0.0 – 13 October 2020
Related Resources
Related Symbols
Author Notes
To view the full source code for DeficientNumber, evaluate the following:
| In[1]:= | ![SystemOpen[
FileNameJoin[{DirectoryName[FindFile["ResourceFunctionHelpers`"]], "Numbertypes.wl"}]]](https://www.wolframcloud.com/obj/resourcesystem/images/a9a/a9a8be34-80d3-4d4c-befd-d88aae6b6f87/151e7979b99ec32f.png){kind=small} |
License Information
This work is licensed under a Creative Commons Attribution 4.0 International License