![]() |
![]() |
#23 | |
Feb 2019
China
59 Posts |
![]() Quote:
my code to find F36 factor Code:
Clear["Global`*"]; n=36;(*the nth fermat number*) Do[p=k*2^(n+2)+1;(*probable factor*) If[PrimeQ[p],(*factor must be a prime*) aa=Mod[PowerMod[2,2^n,p]+1,p];(*nth fermat number mod p*) If[aa==0,(*if p is a divisor of fermat number*) Print[{k,p}]; Break[]]], {k,1,100}] Code:
{10,2748779069441} Last fiddled with by bbb120 on 2020-11-07 at 01:11 |
|
![]() |
![]() |
![]() |
#24 | |
Feb 2017
Nowhere
2×7×11×29 Posts |
![]() Quote:
Code:
? n=1;d=2^38;for(k=1,10000000,n+=d;if(gcd(n,210)==1,r=Mod(2,n);for(i=1,36,r=r^2);if(r==-1,print(k" "n)))) 10 2748779069441 3759613 1033434552359452673 For m = 36, we find (results here listed in form odd k, n such that k*2n + 1 divides Fm, when, who). 5, 39, 1886, P. Seelhoff 3759613, 38, 02 Jan 1981, G. B. Gostin & P. B. McLaughlin Note well the dates, and the first "who" on that second find. I will pass on seeking the hardware that was used. It should be clear that the most important component is the gray grease in peoples' skulls. Last fiddled with by Dr Sardonicus on 2020-11-07 at 14:54 Reason: Insert missing comma, right paren |
|
![]() |
![]() |
![]() |
#25 | |
Mar 2019
149 Posts |
![]() Quote:
|
|
![]() |
![]() |
![]() |
#26 |
"Gary"
Aug 2015
Texas
26 Posts |
![]()
Phil and I each discovered the F36 factor independently, and then collaborated on the Math Comp paper. I used a Motorola MC6800 processor based system where the hardware, OS, assembler and Fermat search program were all home-made. It was a fun extension of a project I started in grad school.
|
![]() |
![]() |
![]() |
#27 |
Apr 2010
Over the rainbow
253710 Posts |
![]()
Fermat factor are of the form k*2^n+1
You have to either chose a low k, and a large n or the opposite. A very high k and a reasonnable n. either are unlikely. |
![]() |
![]() |
![]() |
#28 | |
"Robert Gerbicz"
Oct 2005
Hungary
2·36 Posts |
![]() Quote:
And if it is prime then check if this divides a Fermat number or not. Last fiddled with by R. Gerbicz on 2020-11-07 at 19:54 |
|
![]() |
![]() |
![]() |
#29 | ||
"Serge"
Mar 2008
Phi(4,2^7658614+1)/2
2×3×5×313 Posts |
Quote:
![]() By the way, -- this reminds my doubts when I heard that there was a theory that the Fermat div probability was not merely ~1/k, and some folks invested a few billion-trillion GHz-hours in demonstrating that ...it probably may not be so. But that's probably a good topic for another, separate thread. Quote:
|
||
![]() |
![]() |
![]() |
#30 |
"Mike"
Aug 2002
22×2,011 Posts |
![]() |
![]() |
![]() |
![]() |
#31 | |
Feb 2019
China
59 Posts |
![]() Quote:
my mathematica code can get factor correctly, and it is efficiently ,maybe not the most efficiently. |
|
![]() |
![]() |
![]() |
#32 | |
Mar 2019
14910 Posts |
![]() Quote:
Of course, you're encouraged to read, understand, and potentially optimize the code for those programs too! |
|
![]() |
![]() |
![]() |
#33 |
Feb 2019
China
738 Posts |
![]()
do you find any factor of fermat number ?
|
![]() |
![]() |
![]() |
Thread Tools | |
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
I think I need to factor some more | JuanTutors | Factoring | 11 | 2019-08-03 18:57 |
What a (TF) factor!!... | lycorn | PrimeNet | 11 | 2013-01-12 12:07 |
big factor | lfm | Data | 15 | 2010-03-30 21:18 |
New Factor of F11 (?) | ChriS | Factoring | 3 | 2006-05-29 17:57 |
Shortest time to complete a 2^67 trial factor (no factor) | dsouza123 | Software | 12 | 2003-08-21 18:38 |