登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A261453型 具有奇数位数且除中间位数外的所有位数都相等的近重复位数回文。 1
101, 121, 131, 141, 151, 161, 171, 181, 191, 202, 212, 232, 242, 252, 262, 272, 282, 292, 303, 313, 323, 343, 353, 363, 373, 383, 393, 404, 414, 424, 434, 454, 464, 474, 484, 494, 505, 515, 525, 535, 545, 565, 575, 585, 595, 606, 616, 626, 636, 646, 656, 676 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
Michael S.Branicky,n=1..10000时的n,a(n)表(R.J.Mathar第1..171条)
配方奶粉
a(n)=A002113号(A210666型(A001633号(n) )。
MAPLE公司
isA261453:=进程(n)
本地ndg、dgs、d;
如果是A002113(n),则
ndgs:=A055642号(n) ;
if类型(ndgs,“奇数”)和A043537号(n) =2,则
dgs:=转换(n,基数,10);
对于d从2到nops(dgs)/2 do
如果op(d,dgs)<>op(d-1,dgs),则
返回false;
结束条件:;
结束do:
真;
其他的
假;
结束条件:;
其他的
假;
结束条件:;
结束进程:
n:=1:
对于我来说,从100到200万
如果是A261453(i),则
打印f(“%d%d\n”,n,i);
n:=n+1;
结束条件:;
结束do:#R.J.马塔尔2015年9月30日
数学
id[n_]:=整数位数[n];len[n_]:=长度[id[n]];
del[n_]:=删除[id[n],天花板[len[id[n]]/2]];
u[n_]:=并集[del[id[n]]];
选择[Range[10^5],StringMatchQ[ToString[#],a__~b_~~a__]&&Length[u[#]]==1&u[#]!=联盟[id[#]]&](*伊万·伊纳基耶夫2015年9月6日*)
黄体脂酮素
(Python)
从itertools导入计数,islice
def agen():#术语生成器
对于计数(1)中的d:
对于“123456789”中的输出:
对于“0123456789”中的中间部分:
如果中间!=输出:
产量int(out*d+mid+out*d)
打印(列表(islice(agen(),52))#迈克尔·布拉尼基2022年5月17日
(PARI)is_a002113(n)=我的(d=数字(n));d==Vecrev(d)
is_a210666(n)=我的(d=数字(n))#d> 2&&(#setintersect(vecsort(d),vector(#d,x,vecmax
is_a001633(n)=#Str(n)%2\\之后查尔斯·格里特豪斯四世在里面A001633号
是(n)=is_a002113(n)&&is_a210666(n)&&is_a001633(n)\\费利克斯·弗罗利奇(Felix Fröhlich)2022年5月25日
交叉参考
的后续A088882号.
囊性纤维变性。A001633号,A002113号,A210666型.
关键词
非n,基础,容易的
作者
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年6月22日00:43 EDT。包含373561个序列。(在oeis4上运行。)