13 Likes
In[1]:= 2^2 (22 + 22^2)
Out[1]= 2024
5 Likes
Edward Vogel posted on Facebook:
In[]:=10^3+2^10
Out[]=2024
4 Likes
Not quite a one-liner in this form, but 2024 is the 22nd tetrahedral number.
tet = {{-11, -11, 11}, {-11, 11, -11}, {11, -11, -11}, {11, 11, 11}};
pick = Select[Tuples[Range[-12, 12], {3}],
OddQ[Total[#]] && Total[#] != -11 &&
Min[ResourceFunction["Areal"][tet, #]] >= 0 &];
Graphics3D[Sphere[#, 1/Sqrt[2]] & /@ pick, Boxed -> False]
Here’s a check:
Total[Table[n (n + 1)/2, {n, 1, 22}]]
3 Likes
Equivalently,
In[]:= Total[PolygonalNumber /@ Range[22]]
Out[]= 2024
3 Likes
Fun with hyberbolic cosines:
Cosh[3 ArcCosh[8]]
Fun with squares
{64, 24}^2 {4096, 576}
2024^2 4096576
4 Likes
– you have earned Featured Contributor Badge 
Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!
1 Like
Perhaps a few more things can be found here:
Mathematical Beauties of the Happy New Year 2024
3 Likes
2024 is the digit sum of some Fibonacci numbers. Use built-in function in V14.0 or the correspoinding resource function in WFR:
In[1]:= DigitSum[Fibonacci[#]] & /@ {2118, 2147, 2149, 2166}
Out[1]= {2024, 2024, 2024, 2024}
2024 is also the digit sum of some Lucas numbers:
In[1]:= DigitSum[LucasL[#]] & /@ {2135, 2245}
Out[1]= {2024, 2024}
4 Likes
Slight revision of the count down one I saw last year that someone else (not sure who to credit as it wasn’t me):
Changed the minus one at the end (which returned 2023) to multiply by one and you get 2024. Remember for next year, it can be plus one at the end to get 2025 when that is relevant!
3 Likes
Oscar Lanzi told me that dodecahedral numbers are tetrahedral numbers.
3 Likes
1234 - 5 + 6 + 789
5 Likes