A257649-组织环境信息系统

A257649号

由两个整数（不带前导零）串联而成的平方，其和也是一个平方。

36, 81, 169, 196, 324, 361, 576, 729, 841, 1156, 1521, 1681, 1764, 2809, 3249, 3481, 4356, 5625, 6084, 6241, 6724, 7396, 7569, 7744, 7921, 8281, 9216, 12321, 12544, 12769, 12996, 13689, 15129, 16384, 17424, 18769, 19881, 24964, 25600, 31684, 32041, 34596, 36864, 38416, 39601 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,1`
	评论	`可以以多种方式分割的正方形，例如729（72+9和7+29），只出现一次。` `这样的正方形的数量是无限的，因为39…960…01（数字9和0的数字相等）可以分成3和9…960..01，其中3+9…960.01=（100…0-2）^2和39…960.01=（2*100…0-1）^2。` `发件人罗伯特·威尔逊v，2015年8月6日：（开始）` `术语数量<10^k:0，2，9，27，66，149，370，910，2164，5325，12916，29448。` `成员的术语A257649号不止一种方式：729、7569、15129、56169、86436、123201。` `成员的术语A257649号不止两种方式：881377344、3784833441、39999600001、54444755556、71111288889、89999400001、159999200001、321111488889、751111688889、。` `属于的最小项A257649号以k种方式：3672988137734439999996000001。（结束）`
	链接	`Robert G.Wilson v，n=1..10000时的n，a（n）表（前909个术语来自Reiner Moewald）`
	例子	`36=6^2和3+6=9=3^2。`
	数学	`f[n_]：=块[{a，b，c，k=1，idn=IntegerDigits@n，lng，lst={}}，lng=Length@idn；而[k<lng，a=FromDigits[Take[idn，{1，k}]]；b=起始数字[Take[idn，{k+1，lng}]]；c=a10^（lng-k）+b；如果[b>0&&Floor[1+Log10@b]==lng-k&&IntegerQ@Sqrt[a+b]，则追加到[lst，c]]；k++]；长度@lst]；k=1；lst={}；当[k<201时，如果[f[k^2]>0，则附加到[lst，k^2]]；k++]；第一次(罗伯特·威尔逊v2015年8月6日）` `ctiQ[n_]：=AnyTrue[Total/@Select[Table[FromDigits/@TakeDrop[IntegerDigits[n]，d]，{d，IntegerLength[n]-1}]，Integer Length[#[1]]+Integer-Length[#[2]]==IntegerLongth[n]&]，IntegerQ[Sqrt[#]]&]；选择[范围[200]^2，ctiQ](哈维·P·戴尔2023年6月4日*）`
	黄体脂酮素	`#Python公司` `导入数学` `打印（“开始”）` `列表=[]` `对于范围（11000）内的i：` `…a=ii` `…b=str（a）` `…l=长度（b）` `…对于范围（1，l）中的j：` `……a_1=b[：j]` `……a_2=b[j:]` `……c=int（a_1）+int（a_2）` `……sqrt_c=int（数学.sqrt（int（c）））` `……如果（sqrt_csqrt_c==c）和（int（a_2[：1]）>0）：` `如果不在列表中：` `…………列表.附录（a）` `…………列表.附录（a）` `打印（列表）` `打印（“结束”）`
	交叉参考	`的后续A052041号.` `上下文中的序列：A271629型 A171675号 A136359号A259240型 A341555型 A084006号` `相邻序列：A257646型 A257647型 A257648号A257650型 A257651型 A257652型`
	关键词	`非n,基础`
	作者	`雷纳·莫瓦尔德（Reiner Moewald）2015年7月25日`
	状态	`经核准的`