数学研发论坛

 找回密码
 欢迎注册
查看: 138|回复: 3

[原创] 证明1729是最小的拉马努金数

[复制链接]
发表于 7 天前 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?欢迎注册

x
\[1729=1^3+12^3=9^3+10^3\]
如何证明呢?我只会穷举法
  1. Clear["Global`*"];(*Clear all variables*)
  2. (*产生三列数,第三列是立方和,穷举法*)
  3. aa=Append[#,Total[#^3]]&/@Tuples[Range[0,20],2]
  4. (*按照第三列的值分类*)
  5. bb=GatherBy[aa,#[[3]]&]
  6. (*分类后能合并的则合并,1^3+2^3=2^3+1^3属于同一个解答*)
  7. cc=Union@Flatten@#&/@bb
  8. (*选择列数大于3的,大于3肯定含有不同解*)
  9. dd=Select[cc,Length@#>3&]

  10. Clear["Global`*"];(*Clear all variables*)
  11. (*装逼写成一行代码*)
  12. Select[Union@Flatten@#&/@GatherBy[Append[#,Total[#^3]]&/@Tuples[Range[0,20],2],#[[3]]&],Length@#>3&]
复制代码

求解结果
  1. {{1, 9, 10, 12, 1729}, {2, 9, 15, 16, 4104}}
复制代码



毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 7 天前 | 显示全部楼层
本帖最后由 葡萄糖 于 2018-9-13 18:54 编辑

Hardy-Ramanujan Number
不应该叫的士车数吗?
https://bbs.emath.ac.cn/thread-5351-1-1.html
的士出租车数Cabtaxi number
出租的士车数Taxicab number
广义出租的士车数Generalized taxicab number

更多的立方情况的士车数尽在OEIS A001235:
Taxi-cab numbers: sums of 2 cubes in more than 1 way.
A001235
OEIS给出的一行MMA代码:
  1. Select[Range[750000], Length[PowersRepresentations[#, 2, 3]]>1&]
复制代码

\[(A^2+7AB-9B^2)^3+(2A^2-4AB+12B^2)^3=(2A^2+10B^2)^3+(A^2-9AB-B^2)^3\]
这个公式来自MathWorld的DiophantineEquation3rdPowers词条

点评

不错,学会了一个函数PowersRepresentations  发表于 6 天前
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 6 天前 | 显示全部楼层
我只会mod
mod7,x^3mod7=0,1,-1
从而拉马努金数mod7需为-2,-1,0,1,2,不可能为3或者4
mod13,x^3mod13=-5,-1,0,1,5,从而拉马努金数mod13为……都有可能
该mod9,发现只能余[0, 1, 2, 7, 8]
合起来,也只能发现mod63的情况……筛选比率差不多是25/63……平均三个能筛出来不到两个……
果然这种方法不靠谱
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2018-9-20 00:16 , Processed in 0.049647 second(s), 17 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表