1千万以内因数数目最多的是哪个？

mathematica

zeroieme 发表于 2017-5-24 16:08
读完大学依然是小学生的思维，不是愚蠢是什么。

1. Clear["Global`*"];(*Clear all variables*)
   
2. NMaximize[{(a2+1)(a3+1)(a5+1)(a7+1)(a11+1)(a13+1)(a17+1),
   
3.           2^a2*3^a3*5^a5*7^a7*11^a11*13^a13*17^a17<=10^7&&
   
4.           a2>=0&&
   
5.           a3>=0&&
   
6.           a5>=0&&
   
7.           a7>=0&&
   
8.           a11>=0&&
   
9.           a13>=0&&
   
10.           a17>=0&&
    
11.           Element[a2|a3|a5|a7|a11|a13|a17,Integers]
    
12.          },
    
13.           {a2,a3,a5,a7,a11,a13,a17},MaxIterations->500,WorkingPrecision->30]
    

复制代码

给你大学生的思维!

运行结果如下
{448.000000000000000000000000000, {a2 -> 6, a3 -> 3, a5 -> 1, a7 -> 1,
   a11 -> 1, a13 -> 1, a17 -> 0}}
a17等于零,所以没问题

wayne

用机器把自己的愚蠢放大。

@zeroieme , 神回复，是不是犀利的有点过了，