搜索： 编号：a077439
|
| |
| |
|
|
|
0, 1, 10, 100, 1000, 1049, 10000, 10490, 100000, 100499, 104900, 1000000, 1004990, 1049000, 10000000, 10004999, 10049900, 10490000, 100000000, 100049990, 100499000, 104900000, 1000000000, 1000049999, 1000499900, 1004990000, 1044049999, 1049000000, 10000000000, 10000499990, 10004999000, 10049900000, 10440499990
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
数字k，使k和k的平方只使用数字0、1、4和9。
注意第一个Mathematica程序中使用的技巧，将十进制数转换为以4为基数的数，然后将三映射为九，然后将二映射为四。这节省了大量计算-罗伯特·威尔逊v2002年11月8日
如果k是一个项，那么10*k也是。
不以0结尾的条款包括
对于j>=1，10^（2*j+1）+5*10^j-1，以及
对于i>=1和j>=4*i+3，10^（2*j+1）+5*10^（2*j-i）-10（2*j-2*i）+5*10 ^j-1。（结束）
|
|
|
链接
|
Jonathan Wellons，共享数字表[存档]。
|
|
|
例子
|
1049^2=1100401，因此1049是一个术语。
104900499999000^2 = 11004114900040199000001000000.
|
|
|
MAPLE公司
|
M： =15:#对于最多M位数的术语
f： =proc（n，d）n>=10^（d-1）和convert（convert（n^2，base，10），set）子集｛0，1，4，9｝结束proc:
g： =进程（n，d）转换（转换（n^2 mod 10^d，base，10），set）子集{0，1，4，9}结束进程：
R： =0，1：
C： =[0,1,9]：
对于从2到M的d do
C： =选择（g，映射（t->（t，t+10^（d-1），t+4*10^；
五： =选择（f，C，d）；
R： =R，op（V）；
日期：
|
|
|
数学
|
a={}；Do[d=FromDigits[ReplaceAll[IntegerDigits[n，4]，{3->9，2->4}]]；如果[Union[Join[IntegerDigits[d^2]，{0，1，4，9}]=={0，1,4，9{，a=Append[a，d]]，{n，0，3*10^5}]；一
使用[{c={0，1，4，9}}，选择[FromDigits/@Tuples[c，11]，SubsetQ[c，IntegerDigits[#^2]]&]]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2017年1月15日*）
|
|
|
黄体脂酮素
|
（Python）
从itertools导入计数，islice
对于计数（0）中的m：
s=箱（m）[2:]
如果长度&1:s='0'+s
n=int（''.join（{'00'：'0'，'01'：'1'，'10'：'4'，'11'：'9'}[s[i:i+2]]表示范围（0，len（s），2）中的i）
如果设置（str（n**2））<={'0'，'1'，'4'，'9'}：
产量n
（PARI）参见PARI链接
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
|
|
|
扩展
|
更多条款来自Jonathan Wellons（Wellons（AT）gmail.com），2008年1月22日
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.003秒内完成
|
