|
| |
|
| A046851号 |
| 数字n，这样可以通过插入内部（但不一定是连续的）数字从n中获得n^2。 |
|
8
|
|
|
|
0, 1, 10, 11, 95, 96, 100, 101, 105, 110, 125, 950, 960, 976, 995, 996, 1000, 1001, 1005, 1006, 1010, 1011, 1021, 1025, 1026, 1036, 1046, 1050, 1100, 1101, 1105, 1201, 1205, 1250, 1276, 1305, 1316, 1376, 1405, 9500, 9505, 9511, 9525, 9600, 9605, 9625
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
如果n是任何正项，则b_n（k）：=n*10^k（k>=0）是无限子序列-里克·L·谢泼德，2016年11月1日
|
|
|
链接
|
|
|
|
例子
|
110^2=12100（在“1_1_0”中插入“2”和“0”）。
|
|
|
MAPLE公司
|
IsSublist:=进程（a，b）
局部i，bp，j；
bp：=b；
对于i从1到nops（a）do
j： =列表工具：-搜索（a[i]，bp）；
如果j=0，则返回假fi；
bp：=bp[j+1..-1]；
od；
真的
结束进程：
过滤器：=proc（n）局部A，B；
A： =换算（n，基数，10）；
B： =转换（n^2，基数，10）；
如果不是（A[1]=B[1]和A[-1]=B[-1]），则返回假fi；
如果nops（A）<=2，则返回真fi；
Is子列表（A[2..-2]，B[2..-2]]）
结束进程：
|
|
|
数学
|
id[n_]：=整数位数[n]；
insQ[n_]：=第一[id[n]]==第一[id[n^2]]&&最后[id[n]]==最后[id[n ^2]]；
sort[n_]：=扁平/@表格[位置[id[n^2]，id[n][i]]，{i，1，长度[id[n]]}]；
takeQ[n_]：=模块[{lst={First[sort[n][[1]]}}，
做[
做[
如果[Last[lst]<sort[n][[i]][[h]]，AppendTo[lst，sort[n][i][[h]]；中断[]]，
{h，1，长度[sort[n][[i]]}
],
{i，2，长度[sort[n]]}
]；
如果[Length[lst]==Length[id[n]]&&lst==排序[lst]，True，False]
]；
选择[Range[0，9625]，insQ[#]&&takeQ[#]&](*伊万·伊纳基耶夫2016年10月19日*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（isInfixOf）
a046851 n=a046851_列表！！（n-1）
a046851_list=过滤器chi a008851_llist，其中
chin n=（x==y&&xs`isSub`ys）其中
x： xs=显示$div n 10
y： ys=显示$div（n^2）10
isSub[]ys=真
isSub_[]=错误
isSub我们@（u:us）（v:vs）
|u==v=是Sub us vs
|否则=isSub us的vs
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础,容易的,美好的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
