Happy 2026 Math!

In[]:=
"HAPPY "<>ToString[123/4!*56*7+8+9]<>"!!!"
Out[]=
HAPPY 2026!!!
In[]:=
{Plot[
x
2
,{x,1,14}],Plot[Cosh[x],{x,1,10}]}
Out[]=

2
4
6
8
10
12
14
2000
4000
6000
8000
,
2
4
6
8
10
1000
2000
3000
4000
5000


Integer factors for the third through ninth “innings”
of 123/4!*56*7+8+9

In[]:=
{FactorInteger[a=123],a}
Out[]=

3
1
41
1
,123
In[]:=
FactorIntegerb=
a
4!
,b
Out[]=

2
-3
41
1
,
41
8

In[]:=
{FactorInteger[c=56b],c}
Out[]=

7
1
41
1
,287
In[]:=
{FactorInteger[d=7c],d}
Out[]=

7
2
41
1
,2009
In[]:=
{FactorInteger[e=d+8],e}
Out[]=
{(
2017
1
),2017}
In[]:=
{FactorInteger[f=e+9],f}
Out[]=

2
1
1013
1
,2026