​​Clear[x,pnp]​​​​pnp=2564855351​​​​Show[​​​​​​​​​​Plot[(((((pnp^2/x)+x^2))/x)/pnp),{x,0,60000}]​​​​​​]​​​​​​​​​​​​​​
2564855351
10000
20000
30000
40000
50000
60000
10
20
30
40
50
​​​​​​Plot[((pnp-(Sqrt[(x^2*pnp^4+2*pnp*x^5)+x^8])/pnp^4-(1-(x^2/(2*pnp)))*(pnp^2/x^2))),{x,40000,60000}]​​​​​​​​
45000
50000
55000
60000
5.0×
8
10
1.0×
9
10
1.5×
9
10
2.0×
9
10
​
​
​
2 different equations graphed. As the smaller Prime factor x approaches zero it is the same magnitude of the smaller Prime factor.
​
Below the same is done for a 2048. Does it work for large numbers as it did for 2564855351? Computation will tell.
​
​
​
​​​​​​​​Clear[x,pnp]​​​​pnp=2519590847565789349402718324004839857142928212620403202777713783604366202070​​7595556264018525880784406918290641249515082189298559149176184502808489120072​​8449926873928072877767359714183472702618963750149718246911650776133798590957​​0009733045974880842840179742910064245869181719511874612151517265463228221686​​9987549182422433637259085141865462043576798423387184774447920739934236584823​​8242811981638150106748104516603773060562016196762561338441436038339044149526​​3443219011465754445417842402092461651572335077870774981712577246796292638635​​6373289912154831438167899885040445364023527381951378636564391212010397122822​​120720357​​​​Show[​​​​​​​​​​Plot[(((((pnp^2/x)+x^2))/x)/pnp),{x,0,40861574600078048833983218761558688141}]​​​​​​]​​
2519590847565789349402718324004839857142928212620403202777713783604366202070
7595556264018525880784406918290641249515082189298559149176184502808489120072
8449926873928072877767359714183472702618963750149718246911650776133798590957
9733045974880842840179742910064245869181719511874612151517265463228221686
9987549182422433637259085141865462043576798423387184774447920739934236584823
8242811981638150106748104516603773060562016196762561338441436038339044149526
3443219011465754445417842402092461651572335077870774981712577246796292638635
6373289912154831438167899885040445364023527381951378636564391212010397122822
120720357
1×
37
10
2×
37
10
3×
37
10
4×
37
10
20
40
60
80
100
120
​​​​​​​​​​Clear[x,pnp]​​​​pnp=2519590847565789349402718324004839857142928212620403202777713783604366202070​​7595556264018525880784406918290641249515082189298559149176184502808489120072​​8449926873928072877767359714183472702618963750149718246911650776133798590957​​0009733045974880842840179742910064245869181719511874612151517265463228221686​​9987549182422433637259085141865462043576798423387184774447920739934236584823​​8242811981638150106748104516603773060562016196762561338441436038339044149526​​3443219011465754445417842402092461651572335077870774981712577246796292638635​​6373289912154831438167899885040445364023527381951378636564391212010397122822​​120720357​​​​​​Plot[((pnp-(Sqrt[(x^2*pnp^4+2*pnp*x^5)+x^8])/pnp^4-(1-(x^2/(2*pnp)))*(pnp^2/x^2))),{x,0,40861574600078048833983218761558688141}]
2519590847565789349402718324004839857142928212620403202777713783604366202070
7595556264018525880784406918290641249515082189298559149176184502808489120072
8449926873928072877767359714183472702618963750149718246911650776133798590957
9733045974880842840179742910064245869181719511874612151517265463228221686