登录
A006072号
中间镜像对称的数字。
(原名M4481)
11
0, 1, 8, 11, 88, 101, 111, 181, 808, 818, 888, 1001, 1111, 1881, 8008, 8118, 8888, 10001, 10101, 10801, 11011, 11111, 11811, 18081, 18181, 18881, 80008, 80108, 80808, 81018, 81118, 81818, 88088, 88188, 88888, 100001, 101101, 108801, 110011, 111111, 118811, 180081
抵消
1,3
评论
显然这个序列和A111065型具有相同的奇偶校验。 -杰里米·加德纳2005年10月15日
显然,该序列的项与A118594号,请参见下文。 -M.F.哈斯勒2013年5月8日
n位项的数量由下式给出A225367号--它以3为基数计算回文,A118594号这里的术语是这里考虑的基本3回文,其中2被8替换(这意味着这个序列A006072号来自A118594号不仅通过取每个数字的三次幂,还通过将数字与其水平或垂直反射叠加,在某种程度上显著地赋予了这里所考虑的数字的对称性)。 -M.F.哈斯勒,2013年5月5日[部分评论从A225367号至2013年5月8日]
参考文献
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
链接
Michael S.Branicky,n=1..10000时的n,a(n)表(文森佐·利班迪(Vincenzo Librandi)第1..1450条)
埃里克·魏斯坦的数学世界,四分位数
配方奶粉
a(n)=数字应用A000578号18594年(n) 。 -M.F.哈斯勒2013年5月8日
数学
NextPalindrome[n_]:=块[{l=Floor[Log[10,n]+1],idn=IntegerDigits[n]},如果[Union[idn]=={9},Return[2],如果[l<2,Return[n+1],如果[FromDigits[Reverse[Take[idn,Ceiling[l/2]]]>FromDiges[Take[idn,-Ciling[1/2]],FromDigs[Join[Take[2,Ceiling[l/2]],Reverse[Take[id,Floor[l/2]2]]]]],idfhn=FromDigits[Take[idn,Ceiling[l/2]]]+1;idp=FromDigits[Join[IntegerDigits[idfhn],Drop[Reverse[Integer Digits[idfhn]],Mod[l,2]]]]]];np=0;t={0};Do[np=下一个回文[np];如果[Union[Join[{0,1,8},IntegerDigits[np]]=={0,1,8}、AppendTo[t,np]]、{n,1150}];t吨(*罗伯特·威尔逊v*)
TetrNumsUpTo10powerK[k_]:=选择[FromDigits/@Tuples[{0,1,8},k],整数位数[#]=反转[IntegerDigits[#]]&];TetrNumsUpTo10powerK[7](*米克·海德马2017年5月21日*)
黄体脂酮素
(PARI){for(l=1,5,u=矢量((l+1)\2,i,10^(i-1)+(2*i-1<l)*10^(l-i))~;forvec(v=矢量((l+1)\2,i,[l>1&&i==1,2]),print1((v+v\2*6)*u“,”))}\\第n项可以通过使用(的部分和)产生A225367号跳过所有较短的项,然后跳过足够数量的向量v,直到达到n。 -M.F.哈斯勒2013年5月5日
(Python)
来自itertools导入计数、islice、product
定义代理():
[0,1,8]的产量
对于计数(2)中的d:
对于“18”中的开始:
对于产品中的其余部分(“018”,重复=d//2-1):
left=开始+“”.join(rest)
对于[[“”]、[“0”、“1”、“8”]][d%2]中的中间值:
yield int(左+中+左[::-1])
打印(列表(islice(agen(),42))#迈克尔·布拉尼基2022年3月29日
关键词
基础,非n,容易的
作者
扩展
更多术语来自罗伯特·威尔逊v2005年11月16日
状态
经核准的