writer
2,661
edits
Changes
Jump to navigation
Jump to search
Line 13:
Line 13: + + + + − [3,7,31,127,8191,131071].$(""x*(x+1)/2"")"+ + +
ZCubes/Mersenne Primes and Perfect Numbers (view source)
Revision as of 08:44, 31 March 2020
, 08:44, 31 March 2020→Code
a.$(x=>[x,x-1n,(ISPRIME(x<>n-1n))])
a.$(x=>[x,x-1n,(ISPRIME(x<>n-1n))])
.filter(r=>r[0][2])
.filter(r=>r[0][2])
--> The above code displays the list of Mersenne Prime Numbers for the range upto 700. This calculation deals with large calculations hence an 'n' is added in code for more accuracy.
1..10000
1..10000
.filter(n=>SUM(PROPERDIVISORS(n))==n)
.filter(n=>SUM(PROPERDIVISORS(n))==n)
-->The above code calculates Perfect Numbers in range upto 10,000. Perfect number, a positive integer that is equal to the sum of its proper divisors.This gives the list of numbers 1,6,28,496 and 8,128.
<br/>Relationship between Mersenne Primes and Perfect Numbers:
<br/>If Mersenne Prime is 'x' then 'x*(x+1)/2' results into the Perfect Number.
[3,7,31,127,8191,131071].$("x*(x+1)/2")
<<[[Learn_ZCubes | Learn ZCubes ]]
<<[[Learn_ZCubes | Learn ZCubes ]]
<br/>
<br/>
© Copyright 1996-2020, ZCubes, Inc.
© Copyright 1996-2020, ZCubes, Inc.