Алгебра в программе Mathematica


Пример 7



Пример 7




Конец я опустил, потому что в полученном результате 21 892 цифры.

IntegerPart[Log[10,nn]] .21891

Это результат, которого еще никому не удалось достигнуть! Хотя вычисленное нами число имеет вид р4М -N2, оно не совершенное, так как сумма всех его делителей, не считая самого числа, является числом, имеющим 21 893 цифры.

IntegerPart[Log[10,DivisorSigma[l,nn]-nn]] 21892

Значит, сумма всех делителей этого числа, не считая самого числа, больше самого числа. Число, сумма всех делителей которого, не считая самого числа, больше самого числа, называется избыточным. Иными словами, число п называется избыточным, если о(n)>2n. Честно говоря, несколько удивительно то, что это число оказалось избыточным. Сейчас объясню, почему. Давайте найдем все избыточные нечетные числа, меньшие 100 000. Вот нужная нам программа.








Начало  Назад  Вперед


Книжный магазин