Message Boards Message Boards

12
|
15616 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?

Ed Pegg, Wolfram Research
Posted 1 year ago

enter image description here
POSTED BY: Ed Pegg
12 Replies
Sort By:
Ed Pegg
Ed Pegg, Wolfram Research
Posted 11 months ago

1234 - 5 + 6 + 789

POSTED BY: Ed Pegg

enter image description here
POSTED BY: Douglas Kubler

Oscar Lanzi told me that dodecahedral numbers are tetrahedral numbers.
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

Fun with hyberbolic cosines: 

Cosh[3  ArcCosh[8]]

Fun with squares 

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

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

Equivalently,

In[]:= Total[PolygonalNumber /@ Range[22]]
Out[]= 2024
POSTED BY: Jose Martin-Garcia

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
POSTED BY: Jose Martin-Garcia
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract