mathematica 发表于 2017-5-25 09:32:50

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

Clear["Global`*"];(*Clear all variables*)
NMaximize[{(a2+1)(a3+1)(a5+1)(a7+1)(a11+1)(a13+1)(a17+1),
          2^a2*3^a3*5^a5*7^a7*11^a11*13^a13*17^a17<=10^7&&
          a2>=0&&
          a3>=0&&
          a5>=0&&
          a7>=0&&
          a11>=0&&
          a13>=0&&
          a17>=0&&
          Element
         },
          {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 发表于 2018-2-8 16:25:09

用机器把自己的愚蠢放大。 @zeroieme , 神回复,是不是犀利的有点过了,:*-^
页: 1 [2]
查看完整版本: 1千万以内因数数目最多的是哪个?