Message Boards Message Boards

12
|
15017 Views
|
12 Replies
|
51 Total Likes
View groups...
Share
Share this post:

2024 = 2³+3³+4³+5³+6³+7³+8³+9³ What's your math one-liner for the New Year 2024?

Posted 11 months ago

enter image description here

POSTED BY: Ed Pegg
12 Replies
Posted 10 months ago

1234 - 5 + 6 + 789

POSTED BY: Ed Pegg
Posted 11 months ago

enter image description here

POSTED BY: Douglas Kubler
Posted 11 months ago
POSTED BY: Ed Pegg

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!

POSTED BY: Dorothy Evans

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}
POSTED BY: Shenghui Yang

Perhaps a few more things can be found here:

Mathematical Beauties of the Happy New Year 2024

https://math1089.in/2023/12/30/mathematical-beauties-of-the-happy-new-year-2024

POSTED BY: Vitaliy Kaurov

enter image description here -- you have earned Featured Contributor Badge enter image description here 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!

POSTED BY: EDITORIAL BOARD
Posted 11 months ago

Fun with hyberbolic cosines:

Cosh[3  ArcCosh[8]]

Fun with squares

{64, 24}^2    {4096, 576}
2024^2          4096576
POSTED BY: Ed Pegg

Equivalently,

In[]:= Total[PolygonalNumber /@ Range[22]]
Out[]= 2024
Posted 11 months ago

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]

2024 spheres

Here's a check:

 Total[Table[n  (n + 1)/2, {n, 1, 22}]]
POSTED BY: Ed Pegg

Edward Vogel posted on Facebook:

In[]:=10^3+2^10
Out[]=2024
POSTED BY: Vitaliy Kaurov
In[1]:= 2^2 (22 + 22^2)
Out[1]= 2024
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract