|
| |
|
| A273359型 |
| 对k进行编号，使十进制数concat（4，k）为正方形。 |
|
8
|
|
|
|
9, 41, 84, 225, 356, 489, 624, 761, 900, 1209, 1616, 2025, 2436, 2849, 3264, 3681, 4100, 4521, 4944, 5369, 5796, 6225, 6656, 7089, 7524, 7961, 8400, 8841, 9284, 9729, 10881, 12164, 13449, 14736, 16025, 17316, 18609, 19904, 21201, 22500
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
元素是（sqrt（41），sqrt，（50））*sqrt（10）^k中整数的平方，对于非负k，没有前导的4个元素-大卫·A·科内斯2016年5月20日
|
|
|
链接
|
|
|
|
例子
|
84是一个成员，因为484=22^2是一个正方形。
0不是成员，因为40不是正方形。
sqrt（410）<21和22<sqrt，（500）<23，因此21^2=441和22^2=484分别给出41和84。
64<sqrt（4100）<65和70<sqert（5000）<71所以65^2=4225，66^2=4356。。。，70^2=4900给出225，356。。。，分别为900-大卫·A·科内斯2016年5月20日
|
|
|
MAPLE公司
|
t1:=[]；
对于k从1到30000 do
如果issqr（k+4*10^长度（k）），则t1:=[op（t1），k]；fi；
od；
t1；
|
|
|
数学
|
选择[Range[45000]，IntegerQ[Sqrt[4 10 ^ IntegerLength[#]+#]]&](*文森佐·利班迪2020年2月20日*）
DeleteCases[（FromDigits[Drop[IntegerDigits[#]，1]]）&/@Select[Range[3500]^2，IntegerPigits[#][[1]==4&&IntegerBigits[#][[2]！=0 &], 0] (*阿隆索·德尔·阿特2020年2月20日*）
|
|
|
黄体脂酮素
|
（PARI）a（n）=｛my（k=1，t=0）；while（n>k，n-=k；t++；k=楼层（sqrt（50）*sqrt（10^t））-天花板（sqrt（41）*sqrt（10^t））+1）；（天花板（sqrt（41）*sqrt（10^t））+n-1）^2%（40*10^t）｝\\大卫·A·科内斯2016年5月20日
（Magma）[n:n in[1..50000]|IsSquare（Seqint（Intseq（n）cat Intseq（4）））]//文森佐·利班迪2020年2月20日
（Scala）（3到500）.map（n=>n*n）.filter（n=>n.toString.startsWith（“4”）&&！n.toString.startsWith（“40”））.map（n=>Integer.parseInt（n.toString.substring（1））//阿隆索·德尔·阿特2020年2月20日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
