1234 - 5 + 6 + 789
奥斯卡·兰齐告诉我的十二面体数是四面体数.
对我去年看到的倒计时法稍作修改,其他人(不知道该归功于谁,因为不是我):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%2+%C3%7+1
将末尾的-1(返回2023)更改为乘以1,得到2024。记住明年,如果相关的话,到2025年年底可以再加一个!
2024年是数字和的斐波那契数使用V14.0中的内置功能或相应的绑定资源函数在WFR中:
在[1]中:=DigitSum[Fibonacci[#]]&/@{2118,2147,2149,2166}输出[1]={2024202420242024}
2024年也是一些卢卡斯数字以下为:
在[1]中:=DigitSum[LucasL[#]]&/@{21352245}输出[1]={20242024}
也许可以在这里找到更多的东西:
2024年新年快乐数学之美https://math1089.in/2023/12/30/mathematical-beauties-of-the-happy-new-yeear-2024
2024年新年快乐数学之美
https://math1089.in/2023/12/30/mathematical-beauties-of-the-happy-new-yeear-2024
--你赢得了特色贡献者徽章 你的特殊帖子被选为我们的编辑专栏员工推荐 http://wolfr.am/StaffPicks网站和您的个人资料现在由一个特色贡献者徽章并显示在特色贡献者委员会。谢谢!
双曲余弦的乐趣:
余弦[3弧余弦[8]]
方形趣味
{64, 24}^2 {4096, 576}2024^2 4096576
在这种形式下,不是一条直线,但2024是第22个四面体数。
tet={{-11,-11,11},{-11、11、-11};pick=选择[Tuples[Range[-12,12],{3}],奇数Q[总计[#]]和总计[#]!=-11 && 最小[ResourceFunction[“Areal”][tet,#]]>=0&];Graphics3D[Sphere[#,1/Sqrt[2]]和/@pick,Boxed->False]
这里有一张支票:
总计[表[n(n+1)/2,{n,1,22}]]
等效地,
在[]中:=总计[多边形编号/@范围[22]]输出[]=2024
爱德华·沃格尔在Facebook上发布以下为:
在[]中:=10^3+2^10输出[]=2024
在[1]中:=2^2(22+22^2)输出[1]=2024