The remainder of
7
7
7!
is 2023. In Mathematica, that’s
In[]:=
PowerMod[7,7,7!]
Out[]=
2023
What are other fun ways to get 2023? Here’s a few.
In[]:=
717^2
Out[]=
2023
In[]:=
Floor[1/(Zeta[11]-1)]
Out[]=
2023
In[]:=
2^(2×6)JacobiP[6,1,1,1/2]
Out[]=
2023
This one is better seen in simple math notation:
6
6
30
+
6
240
+
6
345
+
6
1136
+
6
1320
+
6
1548
+
6
1902
==2023
computed as:
In[]:=
Total[{30,240,345,1136,1320,1548,1902}^6]^(1/6)
Out[]=
2023
What is your one-liner for getting 2023? Comment below!

CITE THIS NOTEBOOK

MAKE 2023 with MATH! PowerMod[7, 7, 7!] = 2023. Your turn!​
by Ed Pegg​
Wolfram Community, STAFF PICKS, December 27, 2022
​https://community.wolfram.com/groups/-/m/t/2749012