اعداد کامل

اعداد کامل

در نظریه اعداد، عدد کامل، یک عدد صحیح مثبت است که برابر با مجموع مقسوم‌علیه‌های سرهٔ مثبت خود (همهٔ مقسوم‌علیه‌های مثبتش غیر از خود عدد) باشد. همچنین به طور هم ارز، یک عدد کامل، عددی است که نصف مجموع همهٔ مقسوم‌علیه‌های مثبت خود باشد. (ویکی پدیا)

نخستین عدد کامل ۶ است. زیرا ۱+۲+۳=۶ یا به طور هم ارز، ۶=۲ / (۱+۲+۳+۶). بعد از آن ۲۸ و بعد از آن به ترتیب ۴۹۶ و ۸۱۲۸ قرار دارند.

الگوریتم کلی اعداد اول: 

Function IsPerfectNumber (Num) As Boolean

SumOfDivisors <-- 1

Counter <-- 2

MaxCounter <-- Num / 2

while Counter <= MaxCounter do

if Num mod Counter = 0 then

SumOfDivisors <-- SumOfDivisors + Counter

if SumOfDivisors > Num then

return false

Counter <-- Counter + 1

if SumOfDivisors = Num then

return true

return false