水一个PowerMod

hbghlyj · Posted at 2023-1-3 22:11:14

$$7!\mid7^7-2023$$
In[]:= PowerMod[7, 7, 7!]
Out[]= 2023
oeis.org/A063709

isee · Posted at 2023-1-6 23:54:07

后面的代码是啥，就是最上面居中的题？

kuing · Posted at 2023-1-7 00:11:26

isee 发表于 2023-1-6 23:54
后面的代码是啥，就是最上面居中的题？

PowerMod[a,b,m] 就是 `a^b\bmod m`
所以那结果就是说 `7^7\bmod7!=2023`，等价于居中的题。

isee · Posted at 2023-1-7 10:48:52

kuing 发表于 2023-1-7 00:11
PowerMod[a,b,m] 就是 `a^b\bmod m`
所以那结果就是说 `7^7\bmod7!=2023`，等价于居中的题。 ...

mathematica 功能真是多且强

		Remember me	Forgot password?
Password			Create new account