1234 - 5 + 6 + 789
Slight revision of the count down one I saw last year that someone else (not sure who to credit as it wasn't me): https://www.wolframalpha.com/input?i=%2810+%2B+%289+%2B8+%C3%97+7%29+%C3%97+6%29+%C3%97+5+%2B+4+%C3%97+3+%C3%97+2+%C3%97+1
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!
Fun with hyberbolic cosines:
Cosh[3 ArcCosh[8]]
Fun with squares
{64, 24}^2 {4096, 576} 2024^2 4096576
Equivalently,
In[]:= Total[PolygonalNumber /@ Range[22]] Out[]= 2024
Edward Vogel posted on Facebook:
In[]:=10^3+2^10 Out[]=2024
In[1]:= 2^2 (22 + 22^2) Out[1]= 2024