题目

Mathematica 用什么命令解这个方程?
用什么命令解这个方程?
例如:
输入:3x1+5x2+7x3==48;
输出:x1=3 x2=5 x3=2
(其中,x1,x2,x3,x4都是素数)

提问时间：2020-10-09

答案

Mathematica 没有现成的命令可以直接求解此类问题,自己得动手写,下面是一个例子,当然可以解决这个问题,但效率并不高.
Select[Tuples[Prime@Range@PrimePi@48,3],{3,5,7}.# == 48 &]