找回密码
 欢迎注册
查看: 25221|回复: 11

[提问] 有多少个这样的整数?

[复制链接]
发表于 2014-7-26 15:42:06 | 显示全部楼层 |阅读模式

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

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

×
1458
1+4+5+8=18
18*81=1458
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2014-7-26 17:28:53 | 显示全部楼层
8+1=9
9*9=81

1+7+2+9=19
19*91=1729

点评

哈代——拉马努金数,士的数  发表于 2014-7-30 10:42
1729=1^3+12^3=9^3+10^3  发表于 2014-7-26 18:40
又是1729...神奇的1729  发表于 2014-7-26 18:35
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2014-7-26 17:30:55 | 显示全部楼层
1 也应该算的
直觉大于4位的数字没有满足条件的,可以证明
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2014-7-26 17:48:48 | 显示全部楼层
一个五位数,数字和顶多是45,也就是说数字和乘上数字和的倒写数,不会超过99*99=9801,因此对于五位数及五位以上的数都不成立了。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2014-7-28 09:29:01 | 显示全部楼层
{127087,{1,2,7,0,8,7},167}平方和
{6747265,{6,7,4,7,2,6,5},1315}三次方和
6^3+7^3+4^3+7^3+2^3+6^3+5^3=1315
1314*5131=6747265
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2014-7-28 09:29:44 | 显示全部楼层
  1. Clear["Global`*"];(*Clear all variables*)
  2. Do[
  3.     nd=IntegerDigits@nn;
  4.     s=Total@Map[#^2&,nd];
  5.     news=FromDigits@Reverse@IntegerDigits@s;
  6.     If[s*news==nn,Print[{nn,nd,s}]],
  7.     {nn,1,10^5}
  8. ]
复制代码

我的代码

点评

居然我能写这样的代码  发表于 2015-9-11 12:38
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2017-1-24 17:38:46 | 显示全部楼层
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2017-1-24 17:40:04 | 显示全部楼层
cn8888 发表于 2014-7-28 09:29
{127087,{1,2,7,0,8,7},167}平方和
{6747265,{6,7,4,7,2,6,5},1315}三次方和
6^3+7^3+4^3+7^3+2^3+6^3+5^ ...

恭喜你,oeis上没收录
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

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

GMT+8, 2024-11-22 06:15 , Processed in 0.041731 second(s), 21 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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